IdHTTP.Post - 진행률 표시 줄에 진도가 표시되지 않습니다.

Question

TIdHTTP 구성 요소에서 POST 호출 진행 상황을 표시하려고합니다. 나는이 문제를 디버깅 할 때

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; 
    AWorkCount: Int64); 
begin 
ProgressBar1.Position := AWorkCount; 
end; 

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode; 
    AWorkCountMax: Int64); 
begin 
Progressbar1.Max := AWorkCountMax; 
end; 

그러나, 나는 .Max = AWorkCountMax; 줄에 2 번 착륙, 처음으로이 값은 65이며, 2 시간 값이 나는하지 않을 수 있습니다 알고 0

입니다 필요한 시간은 오래 걸리지 만 반환되는 데이터 양에 따라 길어질 수 있습니다.

Answer 1

이

procedure TForm1.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; 
    const AWorkCountMax: Integer); 
begin 
    if AWorkMode = wmRead then 
    begin 
     ProgressBar.Max := AWorkCountMax; 
     ProgressBar.Position := 0; 
    end; 
end; 

tranfert

procedure TForm1.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode; 
    const AWorkCount: Integer); 
begin 
    if AWorkMode=wmRead then 
    ProgressBar.Position := AWorkCount; 
end; 

끝

procedure TForm1.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode); 
begin 
    ProgressBar.Position := 0; 
end;