idFTP.Get & Gauge

[CrazyDef]

 

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

Заранее спасибо. :flowers:

[RomCom]

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

[Fatal_Error]

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

[RomCom]

Примерно так:

Код:

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;

[CrazyDef]

Спасибо RomCom!!!

[Fatal_Error]

=) спасибо!!! щас попробуем как это всё работает