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
