И снова вопрос о FTP

← →
graf © (2006-06-09 09:22) [0]

Работаю с компонентой Indy IdFTP. Получаю размер файла лежащего на ФТП сервере функцией Size. А как получить объем данных в момент скачивания файла?

← →
Palladin © (2006-06-09 10:57) [1]

TIdFTP.OnWork

← →
graf © (2006-06-09 11:28) [2]

Пишу вот так:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
pbProgress.Max := AWorkCountMax;
pbProgress.Position := 0;
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
pbProgress.Position := AWorkCount;
end;

Но работать отказывается, файл с сервака копируется а в прогрессе просто ничего не происходит. В чем может быть дело?

← →
Palladin © (2006-06-09 13:59) [3]

дело может быть в том что не вызываешь Application.ProcessMessages

Скорее всего AWorkCountMax=0.

да, и в этом тоже...

И снова вопрос о FTP Найти похожие ветки