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;