使用ICS实现多线程分块下载文件

August 18, 2010

8593views

1128 words

现在的下载软件一般都是多线程,多资源的下载模式,本文用ICS中的TMultipartHttpDownloader组件实现多线程,单资源的分块下载模式,鲁大师的升级就是这样的原理,可以参考. 先看组件的几个事件: HTTPRequestDone(Sender: TObject; ErrorCode: Integer; const Reason: string); 下载完成事件,在这里可以释放下载的文件流 &nbsp; FMultiPartHTTP.FileStream.Free; &nbsp; FMultiPartHTTP.FileStream := nil; HTTPShowStats(Sender: TObject); 下载显示状态信息事件 &nbsp; '已下载(MB):' + Format('%2f',[FMultiPartHTTP.TotalCount / 1024 / 1024]) + &nbsp; ' 完成:' + Format('%3.0f', [FMultiPartHTTP.PercentDone])+'%' + &nbsp; ' 速度(KB/秒):' + Format('%6.2f', [FMultiPartHTTP.CurSpeed]) + &nbsp; ' 耗时:' + FormatDateTime('hh:nn:ss', FMultiPartHTTP.ElapsedTime); 下面2个事件和进度条有关,ICS自带了个下载进度条 HTTPProgressAddSegment(Sender: TObject; StartOffset, ASpan, InitPos: Int64); ASpan分段大小,InitPos分段开始大小, StartOffset，分段开始大小 HTTPProgressSetPosition(Sender: TObject;Index: Integer; Position: Int64); Index第几个分段 Position 分段已下载的大小 下面是用法,非常简单： &nbsp;&nbsp;&nbsp; FMultiPartHTTP.URL:=下载文件地址; &nbsp;&nbsp;&nbsp; FMultiPartHTTP.PartCount:=分块个数; &nbsp;&nbsp;&nbsp; FMultiPartHTTP.FileStream:=TFileStream.Create('下载本地文件名',fmCreate); &nbsp;&nbsp;&nbsp; FMultiPartHTTP.Start; 注意:PartCount要大于1,这个组件支持断网断点下载,如果要控制下载的线程数量需要改ICS的源代码