请各位大大帮忙解决,一个头疼的小问题,在线等 (50分)

  • 主题发起人 主题发起人 whitesamuel
  • 开始时间 开始时间
W

whitesamuel

Unregistered / Unconfirmed
GUEST, unregistred user!
我在写一个小程序时遇到以下问题:
我先调用
webbrowser1.Navigate(URLstr);
然后根据返回的文档中的关键字来判断操作成功与否。
Doc :=WebBrowser1.Document as IHtmlDocument2;
当两行代码顺序执行时会报错。因为可能文档还没有下载完,就去取文档操作。

请问有没有什么办法能判断文档下载结束,然后再顺序运行取文档操作。

我试过利用WebBrowser1.DocumentComplete事件来触发,但是这样一来很多参数没法
传递,真是头疼!
 
你自己做个等待的操作,试试这样行不行:
.....
tag:=0;
webbrowser1.Navigate(URLstr);
while tag=0 do Application.ProcessMessages;
Doc :=WebBrowser1.Document as IHtmlDocument2;
.....
在你的WebBrowser1.DocumentComplete事件中使tag:=1;
 
谢谢,我试了一下,可以用,但是会出现“拒绝访问”的错误,能不能帮我看一下
主要出问题的部分如下
Doc :=WebBrowser1.Document as IHtmlDocument2;
if Doc.QueryCommandEnabled('SELECTALL') then
Doc.ExecCommand('SELECTALL',false,EmptyParam);

分数是你的了
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部