怎么判断Webbrowser打开网页全部加载完毕?

问答知识库用户 |浏览201次
收藏|2014/05/17 22:00
如题,一个网页里有很多frame,如何判断该网页全部加载完毕呢?

满意回答

2014/05/17 22:00

参考如下代码:
procedure TForm1.EWBDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OLEvariant;
  WindowName: string;
begin
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (ASender as TEmbeddedWB).DefaultInterface;
  if CurWebrowser = TopWebBrowser then
    LogEvent(ASender, 'OnDocumentComplete', 'All frames loaded.')
  else
  begin
    Document := CurWebrowser.Document;
    WindowName := Document.ParentWindow.Name;
    LogEvent(ASender, 'OnDocumentComplete', 'Frame ' + WindowName);
  end;
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...