Falscher ReadyState Return Value

[Andidreas]

Zitat von Olli73:

Nur mal so ins Blaue: Ändert sich der Busy-Status evtl. mehrfach, also dass er kurzeitig "not busy" ist, um kurz darauf wieder "busy" anzuzeigen? Dann könnte/müsste man prüfen, ob er für n Sekunden nicht mehr "busy" war.

Wäre auch eine Idee...
Ich teste grad das folgende (Edit --> das geht ja in die selbe richtung was Du vorgeschlagen hast?!):

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;

Meine erste Version hat bei ca. 95% der Produkte Funktioniert wofür ich die Daten über den Webserver abgerufen habe...
Ich vermute mal bzw. hoffe jetzt einfach dadrauf das in den restlichen 5% der Fälle der Busy Status mein Problem löst...
Also wenn der TWebBrowser über den ReadyState sagt er hat alles geladen hoffe ich, das wenn dass falsch ist, der Busy Status auf True ist und die weitere Verarbeitung erst einmal blockiert...

Mein Programm läuft grad... aber ich halt erst mal meine Klappe bis es fertig ist