Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#9

Re: Webbrowser warten bis fertig geladen, dann code weiter!

  Alt 17. Jan 2008, 18:12
Ich hatte das schon so verstanden. Versuch es mal so:
-Du definierst Dir eine Boolean-Variable im private-Abschnitt Deines Formulars (nennen wir sie mal "FirstRun").
-Diese Variable setzt Du auf true, bevor Du die erste Seite im WebBrowser aufrufst.
Delphi-Quellcode:
FirstRun := true;
 WebBrowser2.Navigate('http://www.temporaryinbox.com/');
Im OnDocumentComplete machst Du Folgendes:
Delphi-Quellcode:
if FirstRun then //erste Seite aufgerufen
  begin
    New_INBOXEMAIL := WebBrowser1.OleObject.document.forms.item(0).elements.item('inbox').value;
    WebBrowser2.Navigate('http://neueseite.de');
  end
else //zweite Seite aufgerufen
  begin
    WebBrowser1.OleObject.document.forms.item(0).elements.item('Name').value := Name;
    WebBrowser1.OleObject.document.forms.item(0).elements.item('Kennwort').value := Kennwort;
    WebBrowser1.OleObject.document.forms.item(0).elements.item('Email').value := New_INBOXEMAIL;
  end;
FirstRun := false; //wenn wir hier ankommen, war die erste Seite auf jeden Fall schon einmal geladen
Getippt und nicht getestet.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat