WebBrowser auf Seite warten

[GouJetir]

Hi,
ich möchte eine Seite öffnen und sobald diese fertiggeladen ist,soll er sich einloggen,dass tu ich so:

Delphi-Quellcode:

Webbrowser1.OleObject.document.forms.item(0).elements.item('Login').value := Edit1.Text;
Webbrowser1.OleObject.document.forms.item(0).elements.item('Password').value := Edit2.Text;
Webbrowser1.OleObject.document.forms.item(0).elements.item('LoginButton').click;

Als ersten startet er ja die Seite,aber wie kann ich dann einstellen,dass Delphi warten soll,bis die Seite fertiggeladen wurde,bis er sich dann einloggt?


Gruß
GouJetir

[Luckie]

Guck dir doch einfach mal die Ereignisse an.

[GouJetir]

Welche Ereignisse? ^^

[DeddyH]

Rechter Reiter im OI.

[GouJetir]

Achso,muss ich dann bei OnDocumentComplete doppelklick machen?
Dann kommt das hier:

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin

end;

Ich denke ich dann die nächste Aktion und so schreiben oder?

[DeddyH]

So wie ich Dich verstanden habe: ja. Das Ereignis wird ja ausgelöst, wenn die angeforderte Seite vollständig geladen ist.

[GouJetir]

Okay danke,werde es später probieren muss jetzt aber erstmal weg. Melde mich wieder wenn ich Probleme hab :) Danke

[GouJetir]

Okay so hab ich das gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.visible := false;
Webbrowser1.OleObject.document.forms.item(0).elements.item('Login').value := Edit1.Text;
Webbrowser1.OleObject.document.forms.item(0).elements.item('Password').value := Edit2.Text;
Webbrowser1.OleObject.document.forms.item(1).Submit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('www.MEINESEITE.net');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.Navigate('www.MEINESEITE.net');
end;

end.

Aber wenn ich es starte,hängt das Programm.Wahrscheinlich startet sich die Seite jedesmal neu oder so keine Ahnung woran es liegt.

[Luckie]

Was meinst du was hier:

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.Navigate('www.MEINESEITE.net');
end;

passiert?

DocumentComplete wird ausgelöst, wenn die Seite fertig geladen hat. Und was machst du dann? :roll:

[GouJetir]

Ja ich wollte eigentlich , sobald Seite1 aufgerufen und fertig geladen worden ist,dass Seite2 aufgerufen wird und ebenfalls geladen wird

[DeddyH]

Das erinnert mich gerade an den Witz mit dem Blatt Papier, bei dem auf beiden Seiten "Bitte wenden" steht :roll:

[GouJetir]

Hä xD

Okay ich erklär mal genau was ich machen will ^^

1.Starte Programm und es öffnet sich "Seite1"
2.Sobald die Seite fertig geladen ist,will ich ein paar Befehle benutzen,wie einloggen und sowas
3.Dann sobald alle Befehle fertig sind,soll sich "Seite2" öffnen

Aber irgendwie öffnet sich ja dauernd,wenn ich zum Beispiel einen Befehl bei OnDocumentComplete eingebe mehrmals die Seite.

[DeddyH]

Natürlich tut sie das, Du sagst es ja auch so. Pack doch testhalber einmal das, was im ButtonClick steht, in das OnDocumentComplete. Das ist zwar auch noch nicht die endgültige Lösung, aber schau mal, was dann passiert.

[GouJetir]

Ich hab es endlich.