100分高求INDY控件中的IDHTTP问题，在线等...........

Question

我要用INDY控件中的IDHTTP下载一个文本，关键是服务器是SERVLET向网页中写数据，我只能用GET方法去获得，他不是一次写完，而是写一部分停一下，我如何实现用进度条去显示下载的准确进度
//正在工作的时候
procedure HttpDownWork(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCount: Integer);
begin  
   if (AWorkMode = WmRead)  then
   begin
      CurGetByte :=  CurGetByte + AWorkCount;
      RzProgressBar1.Progress := CurGetByte ;
   end;
end;
//开始工作的时候
procedure HttpDownWorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
   if AWorkMode =WmRead then begin
     MaxGetByte := MaxGetByte + AWorkCountMax;
     RzProgressBar1.MaxValue := MaxGetByte;
   end;
end;如何解决?

Answer 1

IdHTTP好像无法实现下载的准确进度