Falscher ReadyState Return Value

[Andidreas]

Zitat von Olli73:

Zitat von Andidreas:

Bis jetzt siehts gut aus...

Dann ist ja alles gut...

Wie heißt es so schön "Man soll den Tag nicht vor dem Abend loben"
Hat natürlich nicht funktioniert, mit meiner letzten Source Änderung waren die Daten teilweise wieder nicht komplett geladen...

Neuer Versuch:

Delphi-Quellcode:

      webbrowser_fmcall.Navigate(strl_urlfmcall.Text);
      Repeat
        Sleep(50);
        Application.ProcessMessages;
      Until (webbrowser_fmcall.ReadyState <> READYSTATE_LOADING) Or (Application.Terminated);

      Repeat
        Sleep(50);
        Application.ProcessMessages;
      Until Not (webbrowser_fmcall.Busy);

      strl_datafmcall.Clear;
      varContent := webbrowser_fmcall.Document;
      If webbrowser_fmcall.LocationURL <> '' Then
      Begin
        strl_datafmcall.Text := varContent.Body.OuterHTML
      End Else
      Begin
        strl_datafmcall.Text := 'Error...';
      End;