Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];

Вниз

Как отобразить ход выполнения закачки IdFTP?   Найти похожие ветки 

 
anis   (2006-11-13 13:38) [0]

Как отобразить ход выполнения закачки IdFTP через ProgressBar?


 
Dmitrij_K   (2006-11-13 13:45) [1]

OnWorkBegin OnWork


 
anis   (2006-11-13 14:06) [2]

А как узнать количество уже отправленных байтов?


 
Dmitrij_K   (2006-11-13 14:15) [3]

см. Demo FTPClient
http://www.indyproject.org


 
Anatoly Podgoretsky ©   (2006-11-13 15:02) [4]

> anis  (13.11.2006 14:06:02)  [2]

А что за параметры у обработчика, смотрел? В справке конечно.

--


 
anis   (2006-11-13 15:19) [5]

Огромное спасибо.
Понял: AWorkCount - то что нужно.


 
DiX ©   (2007-02-22 23:14) [6]

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(), но индикации процесса закачки не происходит, что я делаю не так?


 
Плохиш ©   (2007-02-26 02:01) [7]


> DiX ©   (22.02.07 23:14) [6]

Перед передачей файла запоминай его размер, и если в IdFTPWorkBegin AWorkCountMax будет равно нулю или меньше, то устанавливай в ProgressBar1.Max сохранённый ранее размер файла.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.037 c
2-1190362266
АндрейК
2007-09-21 12:11
2007.10.21
Delphi7 и FastReport 3.19


1-1184482205
atruhin
2007-07-15 10:50
2007.10.21
Cannot access package information


2-1190706757
Uchenik
2007-09-25 11:52
2007.10.21
Поведение кнопки TToolButton со стилем tbsDropDown


2-1190717380
Washington
2007-09-25 14:49
2007.10.21
TabSet


15-1190304543
Yegorchic
2007-09-20 20:09
2007.10.21
Недопустимое разрешение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский