IHTMLDocument2 wird nicht geladen

Gerhard_S · Beiträge: 98

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 · Beiträge: 98

Problem gelöst:

markieren

Delphi-Quelltext

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

direkt nach dem Navigate-Befehl wirkt Wunder.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme