帮帮忙！能否通过delphi的webbrowser控件读取网页的源文件信息。60送上！

[jmj83]

[huzi]

哈哈，我也为这个问题困扰了很长时间。
后来，朋友介绍了一个控件，一切OK。
该控件是 ICS, 你到网上去找，很多地方都有。

[kkk2000]

方法1:直接在它上面点右键，选查看源文件。
2：用Webbrowser1.ExeWB(OLECMDID_SAVEAS,0);把页面内容存到指定的位置。
3：不用Webborser,用Fastnet中的控件。
如：nmhttp,powersock....
try
nmhttp1.get('www.263.net');
finally
memo1.text:=nmhttp1.body;
end;

[kkk2000]

方法1:直接在它上面点右键，选查看源文件。
2：用Webbrowser1.ExeWB(OLECMDID_SAVEAS,0);把页面内容存到指定的位置。
3：不用Webborser,用Fastnet中的控件。
如：nmhttp,powersock....
try
nmhttp1.get('www.263.net');
finally
memo1.text:=nmhttp1.body;
end;

[kkk2000]

得到网页的源文件“信息”，你是指网页的内容吧。如果非用webbrowser控件,你就等下载完毕后用它的ExeWB方法将页面保存起来。如果只是要得到Html文档的内容，用FastNet中的控件比较好。

[kkk2000]

不知你做什么用。
如果只想看源文件，那你就等webbrowser下载一个页面后，在它上面点鼠标右键，查看源文件即可。
或者可用用webbrowser1.ExeWB(OLECMDID_SAVECOPYAS,OLECMDEXECOPT_DODEFAULT)将网页内容存在一个指定的地方。

要不你就别用webbrowser控件了，在FastNet中,有很多控件可以使用。
如：NMHttp,PowerSock控件。
一个简单的例子。
procedure TForm1.Button1Click(Sender: TObject);
begin
try
nmhttp1.Get('www.sina.com.cn');//
finally
memo1.Text:=nmhttp1.Body;//memo1中将显视出sina首页的源文件。
end;
end;

[kkk2000]

不知你做什么用。
如果只想看源文件，那你就等webbrowser下载一个页面后，在它上面点鼠标右键，查看源文件即可。
或者可用用webbrowser1.ExeWB(OLECMDID_SAVECOPYAS,OLECMDEXECOPT_DODEFAULT)将网页内容存在一个指定的地方。

要不你就别用webbrowser控件了，在FastNet中,有很多控件可以使用。
如：NMHttp,PowerSock控件。
一个简单的例子。
procedure TForm1.Button1Click(Sender: TObject);
begin
try
nmhttp1.Get('www.sina.com.cn');//
finally
memo1.Text:=nmhttp1.Body;//memo1中将显视出sina首页的源文件。
end;
end;

[alin]

html
webbrowser.OleObject.document.documentelement.innerhtml;
Text
webbrowser.OleObject.document.documentelement.innerText;

[skeeter_bj]

其实用webbrowser自己的属性就够了

var
doc : Variant;
begin
doc := Webborwser1.document;
Memo.Text := Doc.body.innerhtml(html 源码);(innerhtml 取页面所有的文字信息)
end;