Delphi中判断WebBrowser的页面是否加载完成

wjw806

于 2021-04-22 06:57:10 发布

阅读量768

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.csdn.net/wjw806/article/details/115996004

delphi 专栏收录该内容

18 篇文章

订阅专栏

该代码段展示了如何使用WebBrowser组件在Delphi中创建一个简单的网页加载程序。首先，设置WebBrowser的silent属性以屏蔽脚本错误，然后导航到指定URL。当下载完成时，获取网页的body文本并显示在Memo组件中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm2.FormCreate(Sender: TObject);
var
url:String;
begin
WebBrowser1.silent:=true; //屏蔽脚本错误
url:='http://zhanhua.binzhou.gov.cn/zwgk/news/detail?tcode=N5a8a781acfdeaa227ae234f6b75e22b7&code=10000000233500';
url:='http://www.cbrhq.gov.cn/Item/126452.aspx';
WebBrowser1.Navigate(url);
end;

procedure TForm2.WebBrowser1DownloadComplete(Sender: TObject);
var
webText:string;
Webpg:IHTMLDocument2;
begin
if (WebBrowser1.ReadyState=READYSTATE_COMPLETE) then
begin
Webpg:=WebBrowser1.document as Ihtmldocument2;
webText:=webpg.body.innerText;
Memo1.Text :=webText;
end;
end;