Falscher ReadyState Return Value

[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

[Andidreas]

Zitat von DeddyH:

Zitat von Andidreas:

Until ((webbrowser_fmcall.Busy <> True)

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

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

Der liefert HTML zurück...

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

Zitat von Andidreas:

Bis jetzt siehts gut aus...

Dann ist ja alles gut...

[Andidreas]

Zitat von Olli73:

Zitat von Andidreas:

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