DELPHI如何下载网络文件的例子
来源:互联网 发布:南方测绘KS软件 编辑:程序博客网 时间:2024/05/17 02:31
Http下载: (Delphi7)使用设计Indy控件下载网络文件 //////////
在Form1中添加控件:
两个Indy控件:IdAntiFreeze1,IdHTTP1;
一个按钮 :Button1;
一个进度条 :ProgressBar1 显示下载速度
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
IdHTTP1.Get('http://www.appcontrols.com/demos/exe/HTTPDemo.exe',MyStream);
except
Showmessage('没有下载成功!');
MyStream.Free;
Exit;
end;
MyStream.SaveToFile(ExtractFilePath(paramstr(0))+'HTTPDemo.zip');
MyStream.Free;
Showmessage('OK');
end;
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
//开始下载前,将ProgressBar1的最大值设置为需要接收的数据大小.
ProgressBar1.Max:=AWorkCountMax;
ProgressBar1.Min:=0;
ProgressBar1.Position:=0;
end;
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
//接收数据的时候,进度将在ProgressBar1显示出来.
ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
end;
- DELPHI如何下载网络文件的例子
- (Delphi)如和下载网络文件的例子
- (Delphi)如和下载网络文件的例子
- Delphi如何下载文件?
- 用 Delphi 下载网络文件
- 使用QHttp下载网络文件的简单例子
- ftpclient下载文件的例子
- ftpclient下载文件的例子
- ftpclient下载文件的例子
- 如何上传和下载的网络服务器上的文件
- 在delphi中用indy实现FTP上传 下载的例子
- 如何从网络下载文件到本地
- 网络---小文件的下载
- delphi idHttp下载文件
- delphi 文件下载汇总
- delphi idHttp下载文件
- delphi idHttp下载文件
- FLEX搭配JSP下载文件的例子
- 爱上了网络,谁来拯救我?
- Swing开源项目开发有感
- java的类载入原理(一)
- ytht特别服务程序安装指南
- vlc学习计划(4)--在EMACS中使用GDB调试
- DELPHI如何下载网络文件的例子
- 团队建设?
- SQL Server merge replication: 巧用Merge Agent的hostname参数创建dynamic filter
- JDBC事务优化
- 程序员如何做SOHO一族接私单做呢? (转)
- 有关网络服务和在线书签
- 英雄不问出处--十大名企用人理念
- 欢迎网络电影站点的站长和管理人测试分布式网络电影方案
- gdb基本使用方法