Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - IHTMLDocument2 wird nicht geladen


Gerhard_S - Sa 21.09.13 21:10
Titel: IHTMLDocument2 wird nicht geladen
Hallo,
ich habe schon auf Dutzenden Seiten den Code gefunden:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
var  wb: TWebBrowser; Doc: IHTMLDocument2;
begin
wb := TWebBrowser.Create(MyTabsheet);
wb.Navigate(Edit1.Text);
Doc := wb.Document as IHTMLDocument2;
if Assigned(Doc) then  ...

Leider wird Assigned(Doc) bei mir nie wahr.
In der uses-Klausel werden SHDocVw, MSHTML, ActiveX, ComObj eingeschlossen, der Compiler (Delphi XE 2) meckert nicht.
Die Ereignisse OnDownloadComplete und OnDocumentComplete treten ein, doch auch bei Einbau des obigen Codes wird das Webbrowser.Document nie zugeordnet (assigned).
Woran kann das liegen?


Gerhard_S - So 22.09.13 00:25
Problem gelöst:

Delphi-Quelltext 
1:
 
 while wb.ReadyState <> READYSTATE_COMPLETE do application.processmessages;

direkt nach dem Navigate-Befehl wirkt Wunder.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!