Lazarus: HTML einer Website laden

Du kannst einfach fphttpclient verwenden. Das ist Teil des fcl-web Packets und bei FreePascal und Lazarus automatisch dabei ohne irgendwelche zusätzlichen Komponenten zu installieren. Du musst einfach nur "fphttpclient" zum "uses"-Abschnitt deiner Unit hinzufügen.

Hier ist ein sehr einfaches Beispiel:

uses fphttpclient;
  
procedure TForm1.Button1Click(Sender: TObject);
var
  url, html : String;
begin
  url := 'http://www.example.com';
  html := TFPCustomHTTPClient.SimpleGet(url);
  memo1.Text := html;
end;

Hier lesen wir den HTML-Code von example.com aus und zeigen diesen in einem Memo an. Dazu nutzen wir die Klassenfunktion SimpleGet von TFPCustomHTTPClient und kommen daher mit nur einer Zeile aus.

Etwas ausführlicher geht es so:

uses fphttpclient;

procedure TForm1.Button2Click(Sender: TObject);
var
  httpclient: TFPHTTPClient;
  url, html : String;
begin

  url := 'http://www.example.com';

  httpclient := TFPHttpClient.Create(Nil);
  try
    html := httpclient.Get(url);
  finally
    httpclient.Free;
  end;

  memo1.Text := html;

end;   

Das Ergebnis ist aber in beiden Fällen identisch. Das zweite Beispiel ist zwar länger, kann aber als Basis genutzt werden, wenn man den Code noch irgendwie erweitern möchte.
22.03.2015 um 18:00