Как использовать progressbar при работе с IdHTTP(indy)? Как посмотреть, сколько процентов загружено на сайт через IdHTTP?
Code
procedure TmainForm.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
pb.Position := 0;
pb.Max := AWorkcountMax;
end;
procedure TmainForm.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
pb.Position := AWorkCount;
end;
procedure TmainForm.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
pb.Position := 0;
end;
