Quelltext aus TWebBrowser ermitteln?

[RonnyPower]

Ist es möglich aus der WebBRowser-Komponente den Quelltext der angezeigten Seite in einem Memo darstellen zu lassen? Oder gibts dafür andere bessere Komponenten?

Danke

[Andreas Kosch]

Hallo,

ja das geht, wie das folgende Beispiel zeigt:
<pre>
procedure TForm1.ToolButtonGetHTMLClick(Sender: TObject);
var
aHTMLDoc : IHTMLDocument2;
aHTMLBody : IHTMLElement;
swHTMLText : WideString;
begin
if not VarIsEmpty(WebBrowser1.Document) then
begin
aHTMLDoc := WebBrowser1.Document as IHTMlDocument2;
aHTMLBody := aHTMLDoc.Get_body;
swHTMLText := aHTMLBody.outerHTML;
ShowMessage(swHTMLText);
end;
end;
</pre&gt

[RonnyPower]

Hallo, leider funktioniert das nicht bei mir. Bringt andauernd Fehlermeldung Undefinierter Bezeichner: IHTMLDocument2 bzw IHTMLElement

[schlaemmer]

oben im uses teil "MSHTML" net vergessen dann läuft es bei mir