Как загрузить страничку из интернета

[Climber]

Я нашел компонент TIpHtmlPanel (он не умеет обрабатывать css и javascript, но мне это и не нужно), смотрел пример в папке examples, нашел два топика на этом форуме. И, я так понимаю, в Lazarus нет компонента, который может загрузить страничку из интернета?

[Mr.Smart]

synapse - прекрасно выполняет функцию загрузки.

[carrots]

Еще есть родной фрипаскалевський THTTPClient в юните HTTPClient

[carrots]

Вот пример как на основе имеющихся в FPC средств загрузить в стрим страничку с интернета.
(используется библиотека curl)

Код: Выделить всё

{$mode objfpc}
{$H+}
program teststream;

uses classes,libcurl,unixtype;

Function DoWrite(Ptr : Pointer; Size : size_t; nmemb: size_t; Data : Pointer) : size_t;cdecl;

begin
  Result:=TStream(Data).Write(Ptr^,Size*nmemb);
end;

Var
  f : TFileStream;
  URL : Pchar = 'http://www.freepascal.org';
  hCurl : pCurl;

begin
  F:=TFileStream.Create('fpc.html',fmCreate);
  Try
    hCurl:= curl_easy_init;
    if Assigned(hCurl) then
      begin
      curl_easy_setopt(hCurl,CURLOPT_VERBOSE, [True]);
      curl_easy_setopt(hCurl,CURLOPT_URL,[URL]);
      curl_easy_setopt(hCurl,CURLOPT_WRITEFUNCTION,[@DoWrite]);
      curl_easy_setopt(hCurl,CURLOPT_WRITEDATA,[Pointer(F)]);
      curl_easy_perform(hCurl);
      curl_easy_cleanup(hCurl);
      end;
  Finally
    F.Free;
  end;
end.