Bob Murphy - Sa 28.02.09 08:55
Titel: TWebBrowser - warten funktioniert nicht richtig
Moin,
also ich möchte mich gerne auf einer Seite mit dem TWebBrowser einloggen. Das einloggen funktioniert soweit, allerdings das warten bis die Seite geladen wurde nicht.
Aufrufen tue ich die Seite so:
Delphi-Quelltext
1:
2:
| try
WebBrowser1.Navigate('http://www.meineseite.de'); |
Danach warte ich bis die Seite geladen wurde:
Delphi-Quelltext
1:
2:
3:
| repeat
Application.ProcessMessages;
until (WebBrowser1.ReadyState = READYSTATE_COMPLETE) or (Application.Terminated); |
Das funktioniert perfekt.
Jetzt fülle ich die Eingabefelder und klicke den Button:
Delphi-Quelltext
1:
2:
3:
| WebBrowser1.OleObject.document.forms.item(0).elements.item('USER').value := Username.Text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('PW').value := Password.Text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('Submit').Click; |
So jetzt kommt mein Problem, nachdem der Submit-Button geklickt wurde, soll wieder gewartet werden bis die Seite fertig geladen ist. Probiert habe ich es schon mit dem Ereignis "OnDocumentComplete", mit der repeat Schleife von oben und mit noch einigen anderen Sachen die ich bei Google gefunden habe. Aber nichts funktioniert, hat jemand eine Idee wie ich den WebBrowser dazu bringe nach dem Klick auf dem Submit-Button zu warten bis die Seite fertig geladen ist?
Am liebsten würde ich es mit den Indys machen, der Login funktioniert auch mit den Indys, allerdings wird später noch Javascriptcode ausgeführt der nicht mit den Indys funktioniert. Lasse mich aber gerne eines besseren belehren^^
Danke schonmal
LG Bob