如何才能通过webbroswer组件获得网页的原码？？或者有没有别的好方法可以获得网页的原码？

Question

我想做一个从网上下载新闻的程序，我想第一步先要获得网页的原码，可是不知道该怎么做，还请大家帮忙，我希望能在不看到网页只有URL的情况下直接获得原码！

Answer 1

delphi里有http空间可以获的原码

Answer 2

在form中放一个fastnet页中的TNMHttp控件,再放一个button控件,在button1的Onclick事件中书写如下代码,c:\webpage.htm就是所获取的html文件了,可以打开看看了:procedure TForm1.Button1Click(Sender: TObject);
Var
  fn:TextFile;
begin
nmhttp1.Get('http://www.csdn.net/');
assignfile(fn,'c:\webpage.htm');
rewrite(fn);
write(fn,nmhttp1.body);
closefile(fn);
end;