用webbrowser访问html 文件后能否直接提取其文本内容？谢谢。(100分)

X

xjlqs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #1

用webbrowser访问html 文件后能否直接提取其文本内容？谢谢。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #2

uses ........mshtml;

procedure TForm1.Button3Click(Sender: TObject);
var
doc:IHTMLDocument2;
begin
doc:=IHTMLDocument2(webbrowser1.document);
showmessage(doc.body.outerhtml);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
doc:IHTMLDocument2;
begin
doc:=IHTMLDocument2(webbrowser1.document);
doc.location.replace('view-source:'+doc.location.href)
end;

 

X

xli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #3

showmessage(doc.body.outerhtml);
doc.location.replace('view-source:'+doc.location.href)

不行啊，这两句提示有错啊？应该怎么办！！！？？？？？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #4

先要装载页面：

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('D:/temp/aaaa.htm');
end;

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #5

gz

 

X

xjlqs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #6

我将outerhtml改为outertext后得到纯文本文件，但每行中间的空格都没有了

 

R

rebirth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #7

为什么不试试用http控件？

 

5

5i1zhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #8

可以从
http://www.hbdadao.com/web/下载偶的“网页浏览王"源码

 

X

xjlqs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #9

接受答案了.