关于WebBrowser的问题,我怎么知道网页是否已经加载完毕？

凋零的老树 2006-07-03 01:35:54

我用了
'等待加载完毕
Do Until WebBrowser1.Busy = False
DoEvents
Loop
不管用哦，为什么？最好是怎么写了？

...全文

188 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

凋零的老树 2006-07-04

打赏
举报

不是按钮，实际上是个超连接，我是让程序自动点的

一笑拔剑 2006-07-03

打赏
举报

if instr(webbrowser1.innertext,"soft")>0 then

elseif instr(webbrowser1.innertext,"down")>0 then

end if

一笑拔剑 2006-07-03

打赏
举报

可以以内容来区分的

比如
if第一个页面上有一个soft字符　　而第２个没有而有个＂down＂
那么可以这样写

if instr(webbrowser1.innertext,"soft")>0 then

end if

TechnoFantasy 2006-07-03

打赏
举报

如果这个按钮是通过跳转方式访问另外一个页面的话，应该是可以得到documentcomplete事件的，如果通过脚本写入就很难获得了。

凋零的老树 2006-07-03

打赏
举报

问题是我有了两次触发，只有一个documentcomplete事件
我在用代码点WebBrowser1的一个按钮，得到另外一个页面，怎么判断第二个界面也加载完毕了

一笑拔剑 2006-07-03

打赏
举报

楼上你那是vb代码吗．．．．

dehpi的也拿来了

蒋晟 2006-07-03

打赏
举报

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;

一笑拔剑 2006-07-03