(Delphi)如和下载网络文件的例子
来源:互联网 发布:英语写作如何提高 知乎 编辑:程序博客网 时间:2024/04/29 22:17
FTP下载: http://www.7880.com/Info/Article-19938be0.html
http://community.csdn.net/Expert/topic/3300/3300012.xml?temp=5.028933E-02
FTP下载: TIdFTP控件 (Delphi7 Indy)
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实现ftp下载文件
- 用 Delphi 下载网络文件
- 使用QHttp下载网络文件的简单例子
- 读取本地 文件 和 URL网络 文件 的 两个例子
- 完善flex调用jsp打开和下载文件的例子
- php文件上传、下载和删除的例子
- ftpclient下载文件的例子
- ftpclient下载文件的例子
- ftpclient下载文件的例子
- 网上只写了一个文件断点下载的例子! 我仿照别人得例子 自己增加了自己代码,异步下载文件 支持断点下载 多任务下载! 如有问题 请联系我
- 如何用nfs命令烧写内核和文件系统(网络下载文件到nandflash)(未完)
- 在delphi中用indy实现FTP上传 下载的例子
- 如何上传和下载的网络服务器上的文件
- 多线程和网络通信实现的简单文件下载
- 网络---小文件的下载
- My first Blog of csdn.net
- 动态语言
- SharpDevelop的AddInTree View 插件
- Log4j简明手册
- Fuck CMMI!
- (Delphi)如和下载网络文件的例子
- 古代最成功的项目
- ZT: 求职中的100个经典问题
- 100行Java代码构建一个线程池
- 用Java实现基于XML的购物车
- 用Ruby下载一个网页上的所有图片
- Webwork2结合Spring, Hibernate
- Delphi 对象与组件帮助文档
- Oracle SQLPLUS