24.06.2015 - ЖЗГ

Получение кода html страницы по заданному URL (Lazarus, FreePascal)

24.06.2015 Павел Грибов Lazarus

Без сторонних компонентов обойтись к сожалению не удалось. Модуль который рекомендуют использовать в интернетиках fphttpclient — заставить работать не удалось — падал в access violation… Поэтому пришлось подключать компоненты synaptic:

var httpsend;
function GetWebPageContent(const Url: string): String;
var fs: TStringList; HTTP: THTTPSend;
begin
   fs := TStringList.Create;
   HTTP := THTTPSend.Create;
   try
      HTTP.HTTPMethod('GET', Url);
      fs.LoadFromStream(Http.Document);
      Result := fs.Text;
   finally
      fs.Free;
      http.Free;
   end;
end;

var httpsend;

function GetWebPageContent(const Url: string): String;

var fs: TStringList; HTTP: THTTPSend;

begin

fs := TStringList.Create;

HTTP := THTTPSend.Create;

try

HTTP.HTTPMethod('GET', Url);

fs.LoadFromStream(Http.Document);

Result := fs.Text;

finally

fs.Free;

http.Free;

end;

Оставить комментарий freepascal, http, lazarus, web

Пн	Вт	Ср	Чт	Пт	Сб	Вс
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30