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

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

在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