[samy]

Помогите, пожалуйста, с компонентом Idftp. Какие свойства отвечают за логин и пароль, и каким образом можно открыть фаил с сервера. И еще, если возможно, как можно открывать файл на чтение не сохраняя его на жеский диск. Заранее благодарен

[lmikle]

UserName и Pasword соответсвенно. Использовать метод get с параметром-потоком.

[samy]

Можешь по подробнее осановиться на методе get. Немогу понять, каким образом задать адрес к нужному файлу и путь к его сохранению?

[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 загрузить в визуальный компонент и сделать "качалку"
поместив код в обработчик кнопки.

[Saint Garry]

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

Можешь по подробнее осановиться на методе get. Немогу понять, каким образом задать адрес к нужному файлу и путь к его сохранению?

метод GET :

procedure Get(
const ASourceFile: string, // Файл на сервере
const ADestFile: string, // путь к локальной папке
const ACanOverwrite: boolean = false, // разрешить заменять файл
AResume: Boolean = false // разрешить завершение частичной загрузки
);

[Sevas]

Как сделать обработчик для ситуации когда соединение не удалось?
Использовал пример FTP-client.
на соединение там вроде предусмотрен обработчик:

Код:

begin
 ConnectButton.Enabled:=false;
 if IdFTP1.Connected
 then
  try
   if TransferrignData
   then IdFTP1.Abort;
   IdFTP1.Quit;
  finally
   CurrentDirEdit.Text:='/';
   DirectoryListBox.Items.Clear;
   ConnectButton.Caption:='Connect';
   ConnectButton.Enabled:=true;
   ConnectButton.Default:=true;
  end
 else
  with IdFTP1 do try
   //Username:=UserIDEdit.Text;
   //Password:=PasswordEdit.Text;
   //Host:=FtpServerEdit.Text;
   Connect;
   Self.ChageDir(CurrentDirEdit.Text);
  finally
   ConnectButton.Enabled:=true;
   if Connected
   then
    begin
     ConnectButton.Caption:='Disconnect';
     ConnectButton.Default:=false;
    end;
  end;
end;

Я тестил с отключённым интернетом, но после 10 секунд выпадает ошибка. Нужно чтобы при неудачном подключении просто ничего не выполнялось.