событие OnWorkBegin:
IdHTTP1.Response.ContentLength
что бы лишний HEAD не посылать
прогресс апдейтим в OnWork
OnWorkEnd - все, приехали
-- или --
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
// AWorkCountMax - ничего не напоминает?
end;
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
// AWorkCount - а чтобы это значило?
end;
procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
// приехали
end;
|