第一种方法:
我们用Twebbrowser来得到
新建application,加入memo,button,webbrowser三个组件

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.baidu.com');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
vv:olevariant;
s:string;
begin
memo1.Lines.Clear;
vv:=webbrowser1.Document;
s:=vv.all.item(0).outerhtml;
memo1.Lines.Add(s);
end;
这样就会在memo中得到百度所有的代码了
s:=vv.all.item(0).outerhtml;
在这句中,请使用item(0)
如果你在面度中输入111,再点下'百度一下',会出现很多关于'111'的内容,这时你使用
s:=vv.all.item(0).outerhtml;
memo1.Lines.Add(s);
memo1中不会出现真正网页的源码了,些时只要改一点:item(1)就可以了






第二种方法:
我们使用Tidhttp来得到
var
s:string;

s:=idhttp1.get(url);//URL必须带有HTTP：//
而webbrowser可以是www.***.com或***.com

这也是我使用idhttp1.get(url)出错的原因

还有一点s:=idhttp1.get('http://www.baidu.com');还是出错，不知道为什么百度不可以
等待高手解释