![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отобразить ход выполнения закачки IdFTP? [D6]
anis © (2006-11-13 13:38:00)Как отобразить ход выполнения закачки IdFTP через ProgressBar?
Плохиш (2007-02-26 02:01:00) [1]
> DiX © (22.02.07 23:14) [6]
Перед передачей файла запоминай его размер, и если в IdFTPWorkBegin AWorkCountMax будет равно нулю или меньше, то устанавливай в ProgressBar1.Max сохранённый ранее размер файла.
DiX (2007-02-22 23:14:00) [2]
procedure TUpdateForm.IdFTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Position:=0;
ProgressBar1.Max:=AWorkCountMax;
Application.ProcessMessages;
end;
procedure TUpdateForm.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position:=AWorkCount;
Application.ProcessMessages;
end;
Затем использую IdFTP.Get(), но индикации процесса закачки не происходит, что я делаю не так?
anis (2006-11-13 15:19:00) [3]Огромное спасибо.
Понял: AWorkCount - то что нужно.
Anatoly Podgoretsky (2006-11-13 15:02:00) [4]> anis (13.11.2006 14:06:02) [2]
А что за параметры у обработчика, смотрел? В справке конечно.
--
Dmitrij_K (2006-11-13 14:15:00) [5]см. Demo FTPClient
http://www.indyproject.org
anis (2006-11-13 14:06:00) [6]А как узнать количество уже отправленных байтов?
Dmitrij_K (2006-11-13 13:45:00) [7]OnWorkBegin OnWork