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