TWebBrowser的疑问。(50分)

Q

qf0421

Unregistered / Unconfirmed
GUEST, unregistred user!
var a,b,c,d:eek:levariant;
doc:ihtmldocument2;
begin
self.WebBrowser.Navigate(url,a,b,c,d);
doc:=self.WebBrowser.Document as ihtmldocument2;
self.Caption:=doc.title;//为什么运行时这里报错?
end;

还有:
WebBrowser.Goback
WebBrowser.GoForward
//报“未知的错误”
 
D

DreamTiger

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
IDoc1: IHTMLDocument2;
i:integer;
begin
if WebBrowser1.Document = nil then
ShowMessage('unload!')
else
begin
WebBrowser1.Document.QueryInterface(ihtmldocument2,idoc1);
SHowMessage(idoc1.title);
end;
end;
你的错误可能是因为:
self.WebBrowser.Navigate(url,a,b,c,d);
doc:=self.WebBrowser.Document as ihtmldocument2;
这里WebBrowser还没有能够下载页面,你就调用了Document。
最好是把它放到OnDocumentComplete中。

 
Q

qf0421

Unregistered / Unconfirmed
GUEST, unregistred user!
Let me have a try!
 
Q

qf0421

Unregistered / Unconfirmed
GUEST, unregistred user!
DreamTiger,你的话是对的。可我在别的地方写
WebBrowser.Goback
WebBrowser.GoForward
//报“未知的错误”
为什么?
 
D

DreamTiger

Unregistered / Unconfirmed
GUEST, unregistred user!
如果根本就不能GoBack或者GoForward,调用就会出错。
比如你刚刚Load了一个页面,那就不能GoBack,也不能GoForward。
所以,最好用
try
WebBrowser.GoBack;
except
end;
这样,就算不能GoBack,也不会出错。
 
Q

qf0421

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
515
import
I
I
回复
0
查看
561
import
I
顶部