如何显示TIdHttp的上传或者下载进度
用indy上传下载文件时，可以先在IdHTTP1WorkBegin中获得总大小，然后在IdHTTP1Work中实时得到当前的传输量，一遍算出整体的传输进度。
procedure TForm1.IdHTTP1WorkBegin(Sender:TObject; AWorkMode:TWorkMode;
const AWorkCountMax:Integer);
begin
ShowMessage(IntToStr(AWorkCountMax));
end;
procedure TForm1.IdHTTP1Work(Sender:TObject; AWorkMode:TWorkMode;
const AWorkCount:Integer);
begin
Caption := IntToStr(AWorkCount);
end;