Delphi 使用idhttp下載显示进度以及大小

最新推荐文章于 2026-05-16 06:00:26 发布
转载 最新推荐文章于 2026-05-16 06:00:26 发布 · 2.9k 阅读 · 1
本文介绍如何在Delphi中使用idhttp和IdAntiFreeze组件实现文件下载时的进度显示和错误处理，包括关键代码示例。
转自： http://www.delphitop.com/html/kongjian/2528.html


在更新程式時，需要知道目前下載到多少百分比及大小怎麼做？

在Delphi使用idhttp及IdAntiFreeze（防止程式看起來當掉）二個元件就可以做得到。順便列下關鍵程式碼

procedure TForm1 . BtnDownloadClick(Sender: TObject);
var
   tStream: TMemoryStream;
begin
   tStream := TMemoryStream . Create;
   try
     IdHTTP1 . Get(EdtSource . Text, tStream);
     tStream . SaveToFile(EdtTarget . Text);
     ShowMessage( 'Download Success!' );
   except
     ShowMessage( 'Download Fail！' );
   end ;
   tStream . Free;
end ;
 
procedure TForm1 . IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
   AWorkCount: Int64 );
begin
   Label1 . Caption := BytesToStr(aWorkCount);
   ProgressBar1 . Position := aWorkCount;
   <a title="Update" href="http: //superlevin.ifengyuan.tw/tag/update/">Update</a>;
end ;
 
procedure TForm1 . IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
   AWorkCountMax: Int64 );
begin
   ProgressBar1 . Max := aWorkCountMax;  // Set File total size
   Label2 . Caption := BytesToStr(aWorkCountMax);
   Update;

end;


代码：http://pan.baidu.com/s/1kp9hs

利用idhttp进行多线程下载 修正版
04-23
利用idhttp进行多线程下载，带进度条显示，可以暂停下载和继续下载，未使用第三方控件，在delphi xe7下测试通过。 昨天发的代码发现一个bug，就是无论几线程，都是从文件首部开始下载，才发现xe7下idhhtp控件的IdHttp.Response.ContentRangeStart 和 IdHttp.Response.ContentRangeEnd 属性不起作用。(delphi 7好像可以)修改了一下代码，这次没问题了。顺便测试了一下线程不同时的下载速度。单线程1分29秒，4线程23秒，10线程10秒。请管理员替换到昨天的原贴吧。原贴位置：https://download.csdn.net/download/worldcup12/10366413#comment
Delphi XE实现FTP上传下载文件
zxm8513CSDN博客
04-05 2298
Delphi非常容易的实现FTP文件的上传与下载，搭建一个文档管理平台非常方便，可以将记录存储到数据库，文件存储在指定的目录中去。 Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,.
STM32开发环境搭建避坑指南：从CubeMX版本选择到OpenOCD配置，我的CLion踩坑全记录
最新发布
weixin_30542079的博客
05-16 206
本文详细记录了使用CLion搭建STM32开发环境的完整过程，涵盖STM32CubeMX版本选择、OpenOCD配置等关键环节，特别针对常见问题提供解决方案。通过实战指南帮助开发者避开环境搭建中的各种陷阱，提升嵌入式开发效率。
用delphi实现ftp多线程下载源代码(转载)
a381989813的专栏
05-19 3688
//接收文件 function TForm1.GetURLFileName(aURL: string): string; var i: integer; s: string; begin //返回下载地址的文件名 s := aURL; i := Pos(/, s); while i begin Delete(s, 1, i); i := Pos(/, s); end; Result :=
Delphi实现的一个文件在线查询显示下载功能
PRSoft的博客
08-08 470
一直想做个类似360那样的在线文件检索并下载的功能PC端也就是winform端
Delphi 实现网络下载的几个方法
众纳百川的博客
11-27 1164
CS开发中下载功能也相当实用，比如软件更新等，接下来我会介绍下载的几种方式。
Delphi IdHTTP1下载文件防止假死 ( - 大悟还俗
03-05 1190
在Form1中添加控件：  两个Indy控件:IdAntiFreeze1,IdHTTP1;  一个按钮 :Button1;  一个进度条 :ProgressBar1 显示下载速度  procedure TForm1.Button1Click(Sender: TObject);  var  MyStream:TMemoryStream;  begin  IdAntiFreeze1.O
Delphi下载指定网址（URL）的文件，带进度条显示
killer0717的专栏
05-01 1040
主要使用的是Delphi自带的TIdhttp控件。 一、界面设置 在窗体上放置两个TEdit控件，一个用于输入要下载的文件URL，一个用于输入要保存到本地的文件路径；放置两个TLabel控件，一个显示文件总大小，一个显示当前已下载大小；放置一个按钮TButton，一个TIdhttp控件（在Indy Clients面板）和一个TIdAntiFreeze控件（放置该控件可避免下载过程中程序无响应，...
delphi 下载
dkopg24406的专栏
08-13 881
获取网络文件大小 //delphi 获取网络文件大小 function GetUrlFileSize(aURL: string): integer; var FileSize: integer; var IdHTTP: TidHttp; begin IdHTTP:= Tidhttp.Create(nil); IdHTTP.Head(aURL); FileSiz...
Delphi IdHttp组件 IdHttpServer组件实现文件下载服务，HTTP上传文件
qq_18932003的博客
10-18 1837
Delphi IdHttp组件+IdHttpServer组件实现文件下载服务 https://blog.csdn.net/xxkku521/article/details/16864759 关于HTTP上传文件报文代码片记录 https://blog.csdn.net/xxkku521/article/details/61197565 IDHTTP用法详解（六种用法）朝闻道 https...
idhttp post 上传或下载时显示进度条
08-03 4167
<br />通过 idhttp 带进度条上传演示一下，下载和上传原理差不多，说明一下下面例子中的的idhttp 是动态创建的 <br /><br /> 第一步：添加一个StatusBar或者gauge 进度条，这2个都可以。我用的是 statusbar ，因为这个好看，属性保持默认就可。<br /> 第二步：获取上传进度需要填写idhttp中的onwork，onworkbegin，onworkend，由于idhttp是动态创建的所以需要覆盖一下。<br /> 在主窗体类中添加如下几个公有函数（函数名可
Delphi 文件下载IDHTTP实现
无名小卒菜的博客
07-10 2554
function TbsFileBackUpForm.DownloadFile( aurl: string): string; var MemoryStream: TMemoryStream; URL, SavePath, sFileName,sFileType: string; SaveDialog: TSaveDialog; iPos: Integer; DMHttp...
[delphi]indy10 idhttp get方法
怪才技术家园
03-11 8964
idhttp中对于get方法的定义： procedure Get(AURL: string; AResponseContent: TStream); overload; procedure Get(AURL: string; AResponseContent: TStream; AIgnoreReplies: array of SmallInt); overload
DELPHI如何下载网络文件的例子
hxhappy's eyes
01-19 1563
Http下载: (Delphi7)使用设计Indy控件下载网络文件  //////////在Form1中添加控件：  两个Indy控件:IdAntiFreeze1,IdHTTP1;  一个按钮    :Button1;  一个进度条  :ProgressBar1 显示下载速度 procedure TForm1.Button1Click(Sender: TObject);var  MyStream:
Delphi XE2 使用IdHttp下载文件（Get方法），支持断点续传
yueyun889的专栏
06-19 4149
历时2天封装并自测了本页中的线程类。使用IdHttp实现文件下载，支持暂停下载、断点续传，使得文件下载更快；与UI的交互使用消息传递机制实现。源码已经在项目中使用，现将源码成果公布出来，供需要的人参考。线程处理的逻辑大致如下：1、先判断本地是否存在文件，如果没有，使用文件名+.tmp作为下载过程中的文件名；下载完成后更名为原始文件名；2、如果存在文件名+.tmp，载入内存后继续下载（断点续传）；3...
delphi 7中使用idhttp抓取网页 解决假死现象
期待下集是个可爱梦儿
09-15 2666
在delphi 7中使用idhttp抓取网页，造成窗口无反应的假死状态。通过搜索获得两种方法。          1.写在线程中，但是调用比较麻烦          2.使用delphi 提供的idantifreeze（必须安装indy）。在indy misc中将idfree
delphi IdHTTP实现Get方法下载文件，断点续传
热门推荐
夏日白云的boke
06-06 1万+
delphi XE10 下用IdHttp控件实现Get方法从网站下载文件的，实现断点续传，不会出现网上很多断点续传demo出现的，每次续传文件大小都会变大，实际是从头开始下载的问题。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值