idhttp下载文件添加进度条

procedure  TfrmMain . IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

   const  AWorkCountMax:  Integer );

begin

   ProgressBar1 . Max:=AWorkCountMax;

   ProgressBar1 . Min:= 0 ;

   ProgressBar1 . Position:= 0 ;

end ;

 

procedure  TfrmMain . IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

   const  AWorkCount:  Integer );

begin

  ProgressBar1 . Position:=ProgressBar1 . Position+AWorkCount;

end ;