得到网页的原文(50分)

L

laqo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-20

• #1

怎样象IE中右键上的“查看源文件”一样，得到网页的原文？

 

D

delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-20

• #2

直接用TIdHTTP连到网站下。

 

L

laqo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-20

• #3

可是在WebBrower中网页已经显示了，再下载有点多余，
再说TIdHTTP功能也偏弱，比如它就通不过msproxy的代理服务器。

 

L

laqo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #4

很难么？

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #5

NMHTTP1.Get('http://cn.search.yahoo.com);

然后,取HtmlStr := NMHTTP1.Body
htmlstr就是该网页的源代码.

 

L

laqo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #6

NMHTTP1还不如TIdHTTP好使。

 

L

laqo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #7

再加100分，如果能有完美答案，总分值150。

 

W

wolfsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #8

uses mshtml
memo1.Text:=IHtmlDocument2(WebBrowser1.Document).Body.innerHtml;

 

L

laqo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #9

试了一下，用
uses mshtml
memo1.Text:=IHtmlDocument2(WebBrowser1.Document).Body.innerHtml;
不能得到全部内容。

 

W

wolfsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #10

memo1.Text:=WebBrowser1.OleObject.document.documentelement.innerhtml;

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #11

memo1.Text:=IHtmlDocument2(WebBrowser1.Document).head.innerHtml;
memo1.Text:=IHtmlDocument2(WebBrowser1.Document).Body.innerHtml;

 

L

laqo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #12

用
memo1.Text:=WebBrowser1.OleObject.document.documentelement.innerhtml;
得到的内容和原文不一样，是怎么会儿事？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #13

使用 TWebBrowser

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;


参考下贴：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1412942

 

K

kegumx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #14

 

E

epic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #15

up