Архив метки: http

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

Lazarus_IDE_GTK2_Linux Без сторонних компонентов обойтись к сожалению не удалось.  Модуль который рекомендуют использовать в интернетиках 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;