TWebBrowser.Document为什么老是NIL！(50分)

A

Andy Xie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #1

我想调用TWebBrowser.Document，可是老是nil.

 

S

Slong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #2

没问题啊，请看：
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.sohu.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Doc : Variant;
begin
Doc := WebBrowser1.Document;
if VarIsEmpty(Doc) then Exit;
ShowMessage(Doc.Title);
end;
你要等WebBrowser1显示出网页后才行。

 

腾

腾龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-13

• #3

是不是用错了，应该是Twebbrowser的名字的DOCUMENT，你是不是用成了twebbrowser,
不是名字呀[]

 

A

Andy Xie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #4

to 腾龙:这个不会弄错！
我其实就是想写一个收发MAIL的程序，但用MIME发出的邮件在MEMO上显示的是HTML源码，怎么办？

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #5

在有 TWEBBROWSER 控件的窗体的 ONCREATE 事件中：
var
URL : OleVariant;
begin
URL := 'about:blank';
WebBrowser1.Navigate2(URL);
end;

这样 DCOUMENT 就不会为 NIL 了。

 

A

Andy Xie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-09

• #6

多人接受答案了。