Hallo,
bitte aufs Formular ein TWebBroser, ein Button und eine Memo legen.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
vTemp : variant;
begin
vTemp := WebBrowser1.Document;
if Webbrowser1.LocationURL <> '' then
Memo1.Text := vTemp.Body.OuterHTML
else
ShowMessage('Seite nicht vorhanden!');
end;
Grüsse, Daniel