Indy Http Warten bis Seite geladen ist

[waldforest]

Hallo,
ich habs so gelöst

Delphi-Quellcode:

procedure Wait(eWebBrowser: TWebBrowser);

procedure TForm.Wait(eWebBrowser: TWebBrowser);
begin
  repeat 
    Sleep(600); // 600ms warten
    Application.ProcessMessages; // Andere Events verarbeiten
  until (eWebBrowser.ReadyState = READYSTATE_COMPLETE) or (Application.Terminated);
end;

Aufruf:

Delphi-Quellcode:

  WebBrowser1.Navigate('http://www.delphipraxis.net');
  Wait( WebBrowser1);