Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как отобразить ход выполнения закачки 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


Наверх

Титульная страница Поиск, карта сайта Написать письмо