twebbowser URL´s nacheinander aufrufen

[Scorp11]

Zitat von Mendelsohn:

Du könntest es mit dem "DocumentComplete"-Ereignis von TWebbrowser versuchen.
Allerdings habe ich die Erfahrung gemacht, dass dies (wie so einiges rund um den Internet Explorer) nicht immer zuverlässig funktioniert. Ich nutze daher:

Delphi-Quellcode:

procedure ladeSeite;
begin
    while ((Form1.Webbrowser1.ReadyState <> ReadyState_complete) or
    (Form1.Webbrowser1.Document = nil) or
    ((Form1.Webbrowser1.Document AS IHTMLDocument2).readyState <> 'complete')) do
    begin
        Application.ProcessMessages;
        sleep (1);
    end;
end;

Beispiel-Code wäre:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.WebBrowser1.Navigate ('www.yahoo.de');
    ladeSeite;
    Form1.WebBrowser1.Navigate ('www.google.de');
    ladeSeite;
end;

danke dir

Zitat von toms:

Diese ladeSeite() Procedure ist so nicht zu empfehlen, da das Programm unter Umständen nicht mehr
beendet werden kann wenn nicht aus der while-Schleife gesprungen wird.

Siehe meinn Beitrag Warten bis der TWebBrowser fertig geladen hat?

dir auch danke werde ich mir gleich mal anschauen

mfg,scorp