请问wb1.document.all.item((i,varempty).??? 可取该标记的内容！(50分)

Z

ztzdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-08

• #1

我代码如下：
wb1.nevigate(url);
memo1.text:=wb1.document.all.item((i,varempty).text;
结果是 wb1.document.all.item((i,varempty).text是 ''(空字符）
请问wb1.document.all.item((i,varempty).??? 可取该标记的内容！

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-08

• #2

试试在TWebBrowser.OnNavigateComplete2中
memo1.text:=wb1.document.all.item((i,varempty).text;

可能是wb1.nevigate(url)还未牛腩完毕

 

Z

ztzdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-08

• #3

网页确实完全显出来了，可仍不行，能否赐教！

 

Z

ztzdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-08

• #4

我是在按钮click事件中写的代码！

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-08

• #5

你i,varempty是否搞反了？？？

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-08

• #6

//是不是这样，我得到“Table”，抱歉，我也是初学。

procedure TForm1.Button2Click(Sender: TObject);
var
a:IHTMLDocument2;
olevariant;
begin
o:=(wb.document as IHTMLDocument2).all.item(100,varempty);
memo1.text:=o.TagName;
end;

 

L

luket

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #7

用innerhtml属性即可.
var
doc:Ihtmldocument2;
var
all:IHTMLElementcollection;
doc:IHTMLDocument2;
item:OleVariant;i,len:integer;
begin
memo.Clear;
doc:=getbrowser.document as ihtmldocument2;
all:=doc.all;
len:=all.length;
for i:=0 to len-1 do
begin
item:=all.item(i,varEmpty);
memo.Lines.Add(item.innerhtml);
end;
另外:
Uses MSHTML_TLB;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #8

多人接受答案了。