Quelltext auslesen

[Chaismo]

Hey ho! ich will aus einem Link gern den Quelltext auslesen und in ein Memo reinschreiben...hab das ganze jetz mal so probiert...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('view-source:'+Edit1.text);
   try
    WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER);
    WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
   except
   end;
   Memo1.PasteFromClipboard;
end;

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;
end.

aber das funktioniert nicht?!
Kann mir jemand sagen was da falsch is bzw. wies rüsch is?!
Danke schonmal im voraus!

[SirThornberry]

willst du nur den quelltext oder soll die webseite auch visuell angezeigt werden? Wenn du die Webseite nicht darstellen willst sondern nur den Quelltext haben willst ist TWebbrowser overkill. Dann würde ich eher TIdHttp verwenden (dazu einfach die Indies herunterladen).

[Chaismo]

1. jap genau richtig will nur den Quelltext auslesen.
2. Indies habsch schon aber noch nix wirklich mit denen realisiert und kennmich mit denen nich so aus, gibts da paar nette Tutorials oder kann jemand mal Code für den Quelltext auslesen geben mit der Indi?

[Matze]

Einfach so:

Delphi-Quellcode:

Quellcode := IdHTTP.Get('http://www.die_url.de');

Das hättest du über die Suchfunktion aber auch gefunden.