Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: idFTP.Get & Gauge  (Прочитано 9853 раз)
0 Пользователей и 1 Гость смотрят эту тему.
CrazyDef
Гость
« : 23-12-2005 07:48 » 

  Здесь была моя ладья...

В программе идет закачка файла с помощью idFTP.Get,
необходимо сделать прогресс закачки с помощью TGauge, проблема в том что при закачке главное окно проги виснет, ожидает конца закачки, как быть?

Заранее спасибо. :flowers:
Записан
RomCom
Опытный

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 23-12-2005 14:28 » 

Добавь на форму компонент IdAntiFreeze с вкладки Indy Misc.
Записан

R.O.M.C.O.M.: Robotic Operational Mathematics and Ceaseless Observation Machine
Fatal_Error
Участник

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 24-12-2005 02:32 » 

а как вообще привезать компонент TGauge к idFTP.. чтобы он оттображал процесс подключения..ну и последуюший процесс закачки файлов? =)
Записан
RomCom
Опытный

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 24-12-2005 11:57 » 

Примерно так:
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
 IdFTP1.ChangeDir(dir);
 Gauge1.MaxValue:=IdFTP1.Size(filename);
 IdFTP1.Get(filename,'c:\'+filename,true);
end;

procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
 Gauge1.Progress:=AWorkCount;
 Application.ProcessMessages;
end;
« Последнее редактирование: 20-12-2007 17:57 от Алексей1153++ » Записан

R.O.M.C.O.M.: Robotic Operational Mathematics and Ceaseless Observation Machine
CrazyDef
Гость
« Ответ #4 : 26-12-2005 05:22 » 

Спасибо RomCom!!!
Записан
Fatal_Error
Участник

ru
Offline Offline
Пол: Мужской

« Ответ #5 : 27-12-2005 01:01 » 

=) спасибо!!! щас попробуем как это всё работает
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines