TWebBrowser的疑问。(50分)

  • 主题发起人 主题发起人 qf0421
  • 开始时间 开始时间
Q

qf0421

Unregistered / Unconfirmed
GUEST, unregistred user!
var a,b,c,d:olevariant;
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
//报“未知的错误”
 
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中。

 
Let me have a try!
 
DreamTiger,你的话是对的。可我在别的地方写
WebBrowser.Goback
WebBrowser.GoForward
//报“未知的错误”
为什么?
 
如果根本就不能GoBack或者GoForward,调用就会出错。
比如你刚刚Load了一个页面,那就不能GoBack,也不能GoForward。
所以,最好用
try
WebBrowser.GoBack;
except
end;
这样,就算不能GoBack,也不会出错。
 
接受答案了.
 

Similar threads

后退
顶部