HTML-Code aus TWebBrowser in TMemo anzeigen

[Daniel B]

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