[Saint Garry]

Сообщение от samy

Помогите, пожалуйста, с компонентом Idftp

Код предельно прост:

Код:

var
  FileList : TStringList;
  i : integer;
...................................
 IdFTP.host := 'xxxx.yyyy.zz';
        IdFTP.username := 'user';
        IdFTP.password := 'password';
        IdFTP.Connect;
        IdFTP.List(FileList,'*.avi', False);
        if FileList.Count > 0 then
        for I := 0 to FileList.Count - 1 do
        IdFTP.Get(FileList.Strings[i], ImportPath + '\' + FileList.Strings[i], True, False);
        IdFTP.Disconnect;

код загрузит все файли с расширением avi, это к примеру,
можно FileList загрузить в визуальный компонент и сделать "качалку"
поместив код в обработчик кнопки.