Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#6

AW: Falscher ReadyState Return Value

  Alt 29. Aug 2013, 08:44
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!
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat