Falscher ReadyState Return Value

[Andidreas]

Zitat:

Zitat von DeddyH (Beitrag 1226617)

Zitat:

Zitat von Andidreas (Beitrag 1226615)

Delphi-Quellcode:

Until ((webbrowser_fmcall.Busy <> True)

*Tztz*

Delphi-Quellcode:

until not webbrowser_fmcall.Busy

Das wird aber nicht der Fehler sein?

[DeddyH]

Glaub ich auch nicht, aber so ist es zumindest eine potentielle Fehlerquelle weniger.

[Olli73]

Zitat:

Zitat von Andidreas (Beitrag 1226615)

Des is glaub keine gute Idee... Wenn ich da einen Parameter ran häng den der Webserver nicht kenn bekomm ich nen Error zurück...

Dann natürlich nicht ;) Viele Server ignorieren das aber einfach.

Zitat:

Zitat von Andidreas (Beitrag 1226615)

Der liefert HTML zurück...

Dann hätte man zur Not ja auch HTTP get (Indy) verwenden können.

Zitat:

Zitat von Andidreas (Beitrag 1226615)

Bis jetzt siehts gut aus...

Dann ist ja alles gut...

[Andidreas]

Zitat:

Zitat von Olli73 (Beitrag 1226620)

Zitat:

Zitat von Andidreas (Beitrag 1226615)

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" :-D
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;

[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.

[Andidreas]

Zitat:

Zitat von Olli73 (Beitrag 1226626)

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 :lol: