WebBrowser判断页面是否下载结束

方法1：procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
   const pDisp: IDispatch; var URL: OleVariant);
begin    if WebBrowser1.Application = pDisp then showmessage('页面已全部下载完毕')end;    说明一下,每个iframe下载完毕都会触发DocumentComplete事件,所以一个页面在真正下载完毕前可能被触发多次

方法2：procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
if CurWebrowser = TopWebBrowser then
ShowMessage('Complete document was loaded')
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
end;
end;

方法3：

var isok::boolean

procedure TForm1.wbProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
  if progress=-1 then isok:=true;
end;

总结：三个方法都可能对，也都可能不对，特别是现在还有AJAX的存在，我的想法是把每一种方法都试一下，自己看一下变量变化，相应的调整方法，得到满意的结果，偶个人建议使用第三种，简单明了而且实用。针对AJAX可以通过获取的HTML来判断，因为它是不刷新页面的，所以不用担心取不到HTML，同时它虽然没刷新页面，但它肯定会刷新数据，如果新新数据出现了，那么页也就加载完成了，当然具体问题具体分析。