Falscher ReadyState Return Value

[Andidreas]

Hallo zusammen,

in unserer Firma gibt es einen Webserver der zu Produkten diverse Informationen liefert.
Funktioniert so das ich in einer URL diverse Parameter mitgebe und entsprechend dieser Parameter kann ich mir dann im Internet Explorer die Daten dazu anzeigen lassen...
Der Webserver liefert mir die Daten in einem csv ähnlichen Format.

Damit die Daten für die User besser lesbar werden bereite ich die Daten in einem eigenen Programm auf...
Das Abrufen der Daten habe ich über die TWebBrowser Komponente realisiert...
Über den ReadyState der TWebBrowser Komponente versuche ich mitzubekommen wann der TWebBrowser die Daten erhalten hatt...

Anbei meine Code Schnipsel:

Delphi-Quellcode:

      webbrowser_fmcall.Navigate(strl_urlfmcall.Text);
      Repeat
        Sleep(1000);
        Application.ProcessMessages;
      Until (webbrowser_fmcall.ReadyState <> READYSTATE_LOADING) or (Application.Terminated);
      Sleep(2000);
      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;

Ich Frage hier nicht den ReadyState READYSTATE_COMPLETE ab, da ich den TWebBrowser zur Laufzeit erst erstelle und ich hab hier im Forum irgendwo gelesen das man dann diesen Status nicht abfragen kann...

Ich habe jetzt aber das Problem das in manchen Fällen anscheinends der ReadyState nicht mehr gleich READYSTATE_LOADING ist und mein Programm somit denkt das die Daten komplett sind...
Allerdings sind die Daten nicht komplett!

Hat jemand eine Idee woran das liegen kann, bzw. was ich falsch mache?

[DeddyH]

Hilft das? http://www.delphipraxis.net/147559-t..._complete.html

[Andidreas]

Heißt ich soll auf TWebBrowser.Busy abfragen?

[DeddyH]

Wäre einen Versuch wert, das scheint damals ja auch geholfen zu haben.

[p80286]

U.U. kannst Du auch

Code:

.onDocumentComplete

nutzen?

Gruß
K-H

[Andidreas]

Ich habs jetzt mit dem TWebBrowser.Busy probiert... Funktioniert einwandfrei :)

Delphi-Quellcode:

      webbrowser_fmcall.Navigate(strl_urlfmcall.Text);
      While (webbrowser_fmcall.Busy) And Not (Application.Terminated) Do
      Begin
        Sleep(50);
        Application.ProcessMessages;
      End;
      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;

Danke für den Tipp!

[Andidreas]

Hmm...

Es Funktioniert doch net so wie ich dachte... Und ich kann es zum Teil nicht nachvollziehen...

Im Front End Programm Funktioniert das mit dem TWebBrowser.Busy nur beim ersten ausführen nach Programm Start. Führe ich die Funktion ein zweites mal aus ist der TWebBrowser.Busy nicht mehr aktiv, also er ist sofort auf False, obwohl er die Daten noch nicht aktualisiert hat.

Muss ich den TWebBrowser vor dem Navigate irgendwie Initialisieren / Reseten?

[Olli73]

Zitat:

Zitat von Andidreas (Beitrag 1226611)

Muss ich den TWebBrowser vor dem Navigate irgendwie Initialisieren / Reseten?

Du könntest mal versuchen einen zufälligen Paramter an die URL anzuhängen, um eventuelles Caching-Verhalten zu vermeiden.

Liefert der Webserver eine reine HTML-Seite zurück, oder verwendet der Javascript & Co?

[Andidreas]

Zitat:

Zitat von Olli73 (Beitrag 1226612)

Du könntest mal versuchen einen zufälligen Paramter an die URL anzuhängen, um eventuelles Caching-Verhalten zu vermeiden.

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

Zitat:

Zitat von Olli73 (Beitrag 1226612)

Liefert der Webserver eine reine HTML-Seite zurück, oder verwendet der Javascript & Co?

Der liefert HTML zurück...

Ich hab jetzt mal folgendes probiert, was zu funktionieren scheint:

Delphi-Quellcode:

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

      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;

Ich teste gerade ob das auch funktioniert in meinem Service Programm wo ich die TWebBrowser Komponente zur Laufzeit erstelle...
Bis jetzt siehts gut aus...

[DeddyH]

Zitat:

Zitat von Andidreas (Beitrag 1226615)

Delphi-Quellcode:

Until ((webbrowser_fmcall.Busy <> True)

*Tztz*

Delphi-Quellcode:

until not webbrowser_fmcall.Busy

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