WebBrowserNavigateComplete2 beginnt schon bevor laden fertig

[knolli]

Hallo!

und zwar hab ich schon wieder ein problem...
ich möchte eine internetseite komplett laden lassen und danach automatisch die nächste prozedur auslösen...

da hab ich mir gedacht nehm ich doch

WebBrowserNavigateComplete2

aber da fängt die nächste prozedur schon an wenn das erste element der seite geladen wurde...

meine frage: wie kann ich die prozedur auslösen wenn die GANZE seite fertig ist?


ich hoffe mir kann jemnad helfen!

[marabu]

Hallo,

du musst das Ereignis OnDocumentComplete() benutzen:

Delphi-Quellcode:

procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  with Sender as TWebBrowser do
    if pDisp = DefaultInterface then
    begin
      Inc(iDownload); 
      Navigate(UrlList[iDownload]);
    end;
end;

Getippt und nicht getestet.

Grüße vom marabu