Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.430 Beiträge
 
Delphi 7 Professional
 
#2

AW: TWebBrowser "AfterPageLoaded"?

  Alt 11. Sep 2018, 09:37
Gibt es da nicht mehrere Ereignisse die mit Complete enden?

Wie das wären:
Delphi-Quellcode:
OnDocumentComplete
OnDownloadComplete
OnNavigateComplete2
Schlimmstenfalls kann man noch in OnStatusTextChange abfragen, ob da der Text 'Fertig' (oder so ähnlich) erscheint

Achso: Man kann auch im Quelltext abfragen ob's fertig ist (ungetestet, nur aus 'nem Programmfragment rauskopiert):
Delphi-Quellcode:
begin
  Statusbar1.SimpleText := Format('lade %s ...',[StringMitDerUrl]);
  Refresh;
  WebBrowser1.HandleNeeded;
  WebBrowser1.Navigate(StringMitDerUrl);
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do begin
    Sleep(500);
    Refresh;
  end;
  IrgendwasMachenWennFertig;
end;
  Mit Zitat antworten Zitat