![]() |
Delphi-Version: XE
Falscher ReadyState Return Value
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:
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...
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 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? |
AW: Falscher ReadyState Return Value
|
AW: Falscher ReadyState Return Value
Heißt ich soll auf TWebBrowser.Busy abfragen?
|
AW: Falscher ReadyState Return Value
Wäre einen Versuch wert, das scheint damals ja auch geholfen zu haben.
|
AW: Falscher ReadyState Return Value
U.U. kannst Du auch
Code:
nutzen?
.onDocumentComplete
Gruß K-H |
AW: Falscher ReadyState Return Value
Ich habs jetzt mit dem TWebBrowser.Busy probiert... Funktioniert einwandfrei :)
Delphi-Quellcode:
Danke für den Tipp!
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; |
AW: Falscher ReadyState Return Value
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? |
AW: Falscher ReadyState Return Value
Zitat:
Liefert der Webserver eine reine HTML-Seite zurück, oder verwendet der Javascript & Co? |
AW: Falscher ReadyState Return Value
Zitat:
Zitat:
Ich hab jetzt mal folgendes probiert, was zu funktionieren scheint:
Delphi-Quellcode:
Ich teste gerade ob das auch funktioniert in meinem Service Programm wo ich die TWebBrowser Komponente zur Laufzeit erstelle...
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; Bis jetzt siehts gut aus... |
AW: Falscher ReadyState Return Value
Zitat:
Delphi-Quellcode:
until not webbrowser_fmcall.Busy
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz