Twebbrowser:determine when a page with Frames is completed

Twebbrowser:determine when a page with Frames is completed

6 comments. Current Rating: (3 votes). Leave comments and/or rate it.

Question:

If I Load a Web page with Twebbrowser This contains frames then theOnDocumentComplete () is hits for each frame. How can I recognize the page are completely loaded (no more frames missing)?

Answer:

Indeed, in case of multiple frames, OnDocumentComplete gets fired multiple times. Not every frame fires this event, but each frame that fires a Downloadbegin event would fire a corresponding documentcomple Te event.

How can the ' real completion ' be recognized?

The OnDocumentComplete event sends parameter Pdisp:idispatch, which is the IDispatch of the frame (SHDOCVW) for which DocumentComplete is fired. The top-level frame fires the documentcomplete in the end.

So, to-check if a page is do downloading, need to check if pdisp is same as the IDispatch of the WebBrowser cont Rol.

That's what the code below demonstrates.

	procedure tform1.webbrowser1documentcomplete (Sender: TObject; Const Pdisp:idispatch; var Url:olevariant); var Curwebrowser:iwebbrowser; Topwebbrowser:iwebbrowser; Document:olevariant; windowname:string; Begin {tform1.webbrowser1documentcomplete} curwebrowser: = Pdisp as Iwebbrowser; Topwebbrowser: = (Sender as Twebbrowser). Defaultinterface; If Curwebrowser=topwebbrowser then begin ShowMessage ( " Document is complete. ' ] End Else Begin Document: = curwebrowser.document; Windowname: = Document.ParentWindow.Name; ShowMessage (' Frame ' + Windowname + ' is loaded. ') end; end;

Twebbrowser:determine when a page with Frames is completed