对“网页内容查询控制”主题所得(下载):
来源:互联网 发布:软件模块化的缺点 编辑:程序博客网 时间:2024/04/27 13:57
^知道了可以用nmhttp控件下载网页,可是D7找不到这个控件了。
^找到了idhttp控件似乎可以实现相同的功能,可是线上关于其的讨论太少
^摘录一点代码:
____________________________________________________________________________________________
直接采用Delphi自带的控件的INDY组件为例.新建一个工程,放上一个TIdHTTP控件,一个TIdAntiFreeze控件,一个TProgressBar用于显示下载进度.最后放上一个TButton用于开始执行我们的命令.代码如下:
procedure TForm1.Button1Click(Sender: TObject);//点击按钮的时候开始下载我们的文件
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);//下载我站点的一个ZIP文件
except//INDY控件一般要使用这种try..except结构.
Showmessage('网络出错!');
MyStream.Free;
Exit;
end;
MyStream.SaveToFile('c:/Mp3ToExe.zip');
MyStream.Free;
Showmessage('OK');
end;
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);//开始下载前,将ProgressBar1的最大值设置为需要接收的数据大小.
begin
ProgressBar1.Max:=AWorkCountMax;
ProgressBar1.Min:=0;
ProgressBar1.Position:=0;
end;
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);//接收数据的时候,进度将在ProgressBar1显示出来.
begin
ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
end;
IdHTTP1的Get还有一种形式就是获取字符串:例如,上面的程序可以改写成:
procedure TForm1.Button1Click(Sender: TObject);
var
MyStr:String;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
try
MyStr:=IdHTTP1.Get('http://www.138soft.com/default.htm');
except
Showmessage('网络出错!');
Exit;
end;
Showmessage(MyStr);
end;
___________________________________________________________________________________________
^找到了idhttp控件似乎可以实现相同的功能,可是线上关于其的讨论太少
^摘录一点代码:
____________________________________________________________________________________________
直接采用Delphi自带的控件的INDY组件为例.新建一个工程,放上一个TIdHTTP控件,一个TIdAntiFreeze控件,一个TProgressBar用于显示下载进度.最后放上一个TButton用于开始执行我们的命令.代码如下:
procedure TForm1.Button1Click(Sender: TObject);//点击按钮的时候开始下载我们的文件
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);//下载我站点的一个ZIP文件
except//INDY控件一般要使用这种try..except结构.
Showmessage('网络出错!');
MyStream.Free;
Exit;
end;
MyStream.SaveToFile('c:/Mp3ToExe.zip');
MyStream.Free;
Showmessage('OK');
end;
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);//开始下载前,将ProgressBar1的最大值设置为需要接收的数据大小.
begin
ProgressBar1.Max:=AWorkCountMax;
ProgressBar1.Min:=0;
ProgressBar1.Position:=0;
end;
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);//接收数据的时候,进度将在ProgressBar1显示出来.
begin
ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
end;
IdHTTP1的Get还有一种形式就是获取字符串:例如,上面的程序可以改写成:
procedure TForm1.Button1Click(Sender: TObject);
var
MyStr:String;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
try
MyStr:=IdHTTP1.Get('http://www.138soft.com/default.htm');
except
Showmessage('网络出错!');
Exit;
end;
Showmessage(MyStr);
end;
___________________________________________________________________________________________
- 对“网页内容查询控制”主题所得(下载):
- Bambook 网页内容下载器
- 简单网页内容下载 NIO
- java下载网页中的内容
- WebClient.DownLoadData下载网页内容
- 即见即听即所得,网页视频音乐下载利器-收费音乐免费下
- 基于htmlparser实现网页内容解析 (主题爬虫)
- select控制网页内容隐藏和显示
- 控制网页中表格内容自动换行
- java下载网页并读取内容
- 关于chunked gzip,socket下载网页内容.
- java下载网页内容和网络图片
- 使用Python访问并下载网页内容
- 使用Python访问并下载网页内容
- 使用Python访问并下载网页内容
- JAVA:获得网页下载文件内容
- java下载网页内容和网络图片
- iOS 自定义网页内容下载器
- 这两天学习了ISO8583的知识。
- 一种基于R-Tree的改进多维索引[待正稿]
- 开了几天的会,也没时间来灌个水.....
- Cannot create JDBC driver of class '' for connect URL 'null' 解决方案
- ASP.NET HTTP 运行时
- 对“网页内容查询控制”主题所得(下载):
- 有选择地显示预加载内容,提高网站的性能
- 二级联动菜单详解
- 什么是DIV?
- 查看当前使用的shell名称
- java.util包学习笔记一
- about face 2.0——第二版说明(术语)
- 对个人Blog的定制
- www.eygle.com上作了几个图片链接:)