Delphi ICS 多線程下載

 1、FMultiPartHTTP 的事件:

  下載完成事件

      HTTPRequestDone(Sender: TObject; ErrorCode: Integer; const Reason: string);

    在這裏釋放下載的文件流

      FMultiPartHTTP.FileStream.Free;

     FMultiPartHTTP.FileStream := nil;

     

2、下載顯示狀態信息事件

   HTTPShowStats(Sender: TObject);

   在這裏顯示當前下載狀態   

  str :=  '已下載(MB):' + Format('%2f',[FMultiPartHTTP.TotalCount / 1024 / 1024]) +

  ' 完成百分比:' + Format('%3.0f', [FMultiPartHTTP.PercentDone])+'%' +

  ' 下載速度(KB/秒):' + Format('%6.2f', [FMultiPartHTTP.CurSpeed]) +

  ' 耗時:' + FormatDateTime('hh:nn:ss', FMultiPartHTTP.ElapsedTime);

3、,ICS進度條有關的事件

下面2個事件和進度條有關,ICS自帶了個下載進度條

HTTPProgressAddSegment(Sender: TObject; StartOffset, ASpan, InitPos: Int64);

ASpan分段大小,InitPos分段開始大小, StartOffset，分段開始大小

HTTPProgressSetPosition(Sender: TObject;Index: Integer; Position: Int64);

Index第幾個分段 Position 分段已下載的大小

4、用法示例：

    FMultiPartHTTP.URL:=下載文件地址;

    FMultiPartHTTP.PartCount:=分塊個數;

    FMultiPartHTTP.FileStream:=TFileStream.Create('下載本地文件名',fmCreate);

    FMultiPartHTTP.Start;