随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 143118
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

第一种方法:
我们用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');还是出错,不知道为什么百度不可以
等待高手解释
posted on 2009-01-06 00:15 小叶子 阅读(1467) 评论(1)  编辑 收藏 引用 所属分类: delphi网络编程

FeedBack:
# re: 得到网页源代码方法两种 2009-11-20 10:31 tnianshao
百度 就是get不了 别试了  回复  更多评论
  
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅