WebBrowser判断页面是否下载结束

关注

转载最新推荐文章于 2024-07-24 12:00:50 发布 789 阅读 AI 写同款· GEO 优化 ›

vue3 script setup 语法糖用了才知道有多爽 (四) vue3 script setup 语法糖用了才知道有多爽 (四) script setup的分析和使用 vue3 中 script setup 和普通的 script 一起使用以及路由 useRoute,useRouter 的使用方式阅读详情

方法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，同时它虽然没刷新页面，但它肯定会刷新数据，如果新新数据出现了，那么页也就加载完成了，当然具体问题具体分析。

收录于