Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > передача через idhttp post

Автор: SultanOFF 2.2.2010, 17:54

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

Автор: Matematik 2.2.2010, 21:06

События OnWork OnWorkBegin OnWorkEnd

Код


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;

Автор: SultanOFF 3.2.2010, 16:00

спасибо, работает smile