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 von Andidreas:

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 von Olli73:

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 von Olli73:

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 von Andidreas:

Until ((webbrowser_fmcall.Busy <> True)

*Tztz*
until not webbrowser_fmcall.Busy