передача через idhttp post

Здравствуйте. Произвожу передачу файла методом post. Возник вопрос можно ли отследить скока % файла уже передано?(ну или сколько кб передано)

 

Попробуй так. я незнаю

Code:

idHTTP.Post('http://vk.com/upload.php', Params, Content);

procedure TMainForm.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
beign
  If AWorkMode = wmWrite Then { Действия }
end;

 

так это ведь поможет лишь отследить идет ли передача в данный момент, а как узнать сколько байт уже передано?

 

Code:

procedure TMainForm.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
beign
  If AWorkMode = wmWrite Then { Действия }
end;

а это что?

переменная AWorkCount тебе покажет сколько переданно

 

Code:

var k:Integer;
procedure HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if k<>0 then
    Progress.Position := Round(AWorkCount / k * 100) // подсчет процентов %
end;
procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  if AWorkMode=wmWrite then
    k:= AWorkCountMax;  // запомнить размер отправляемого
end;

 

ааааааа.. тока щас врубился! те расчет процентов надо был только?))

 

ну да)