Delphi IdHTTP1下载文件防止假死 ( - 大悟还俗
来源:互联网 发布:ubuntu安装ssh server 编辑:程序博客网 时间:2024/04/30 00:57
在Form1中添加控件:
两个Indy控件:IdAntiFreeze1,IdHTTP1;
一个按钮 :Button1;
一个进度条 :ProgressBar1 显示下载速度
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
//http://www.delphitop.com/
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;
0 0
- Delphi IdHTTP1下载文件防止假死 ( - 大悟还俗
- DELPHI 调用淘宝API 例子 IdHTTP1 控件
- c#防止程序假死
- 防止程序假死
- winform 防止界面假死
- delphi idHttp下载文件
- delphi 文件下载汇总
- Delphi如何下载文件?
- delphi idHttp下载文件
- delphi idHttp下载文件
- html5 WebWorkers 防止浏览器假死
- vc防止程序假死状态
- Application.DoEvent() 防止ui假死
- delphi假死线程堵塞解决办法
- 用 Delphi 下载网络文件
- 防止IIS文件被下载方法
- MFC CInternetSession OpenUrl 下载文件 防止异常
- response.setContentType防止输出文件被下载
- PL/SQL之二-块结构和组成元素
- 设计模式——代理模式
- 又是惊蛰
- 小亚细亚半岛—地图
- 排序算法:冒泡排序
- Delphi IdHTTP1下载文件防止假死 ( - 大悟还俗
- elipse中批量导入项目
- PL/SQL之三- 流程控制语句
- java学习之三——java基础入门
- 全局事件-广播(Broadcast)
- android h.264文件帧头信息
- PureAutoLayout 自动适配主要方法解析
- DELPHI 通过idhttp实现登录验证
- 第一次面试