TWebBrowser Sourcecode auslesen

[Hoschie]

Moin Moin,

ich wollte mal nachfragen, ob es zu dem Kernproblem schon eine praktikable Lösung gibt. Auch ich habe dieses Problem : Ich habe mit der TWebBrowser Komponente einen Browser erstellt, den ich nach meinen Wünschen automatisieren kann. Das läuft auch soweit. Mein Problem ist eben, dass ich auch wie der Ersteller dieses Posts den XML-Code benötige, der Browser aber über

Delphi-Quellcode:

...body.innerHtml

nur das generierte HTML in die Textdatei schreibt.

Im Endeffekt brauche ich nur die gleiche Funktion wie "rechte Maustaste->Quelltext anzeigen", denn da zeigt auch der IE den XML Text an.

Danke.
Hoschie

[marabu]

Hallo Hoschie,

an den XML-Source des WebBrowsers kommst du per late binding:

Delphi-Quellcode:

var
  ws: WideString;
  doc: OleVariant;
begin
  doc := WebBrowser.Document;
  ws := doc.XMLDocument.XML;
  ShowMessage(ws);
end;

Freundliche Grüße

[Hoschie]

Super, danke.

Das werde ich gleich nachher mal ausprobieren. Ich darf das aber auch erst aufrufen, wenn die Seite fertig geladen wurde oder ?

Gruß
Hoschie

[marabu]

Besser ist das.

[Hoschie]

Moin,

habs getestet und es funktioniert einwandfrei.

Vielen Dank,

Hoschie