FTP загружает поврежденный файл в Delphi, используя IdFTP

Question

Я использую IdFTP для загрузки файла .exe или .zip с FTP-сервера. Файл загружается и приходит на мой компьютер с FTP, проблема в том, что .exe повреждается во время передачи, и я не могу открыть его внутри своего компьютера.

Вот код .

  IdFTP1.Connect;
  IdFTP1.Get(EdtRemoteFile.Text,EdtDirectory.Text + '\' + EdtRemoteFile.Text, True, true);

Answer 1

Протокол FTP по умолчанию работает в текстовом режиме ASCII. В этом режиме разрывы строк нормализуются во время передачи, что приведет к повреждению двоичных файлов (и это также может потенциально повредить текстовые файлы не в формате ASCII, например, UTF-8). Таким образом, вам нужно переключиться в режим IMAGE (двоичный) при передаче нетекстовых файлов, например:

uses
  ..., IdFTPCommon; 

IdFTP1.Connect;
IdFTP1.TransferType := ftBinary; // <-- ADD THIS
IdFTP1.Get(EdtRemoteFile.Text,EdtDirectory.Text + '\' + EdtRemoteFile.Text, True, true);

Answer 2

A .txt файл будет работать, проблема с .exe и .zip файлами. Вам нужно добавить эту строку в ваш код:

uses
  ..., IdFTPCommon;

IdFTP1.TransferType := ftBinary;

Не забудьте импортировать IdFTPCommon, иначе вы не сможете использовать ftBinary.