"Использование TIdFTP для FTPS в Delphi XE3"

Delphi , Интернет и Сети , FTP

Использование TIdFTP для FTPS в Delphi XE3

При работе с компонентом TIdFTP в Delphi XE3 может возникнуть потребность в использовании FTPS (FTP over SSL) вместо обычного FTP. FTPS обеспечивает безопасность передачи данных при работе с FTP-сервером. В этой статье мы рассмотрим, как настроить TIdFTP для работы с FTPS.

Проблема

Возникает ошибка компиляции при попытке использовать опцию UseTLS для настройки FTPS в коде:

Application.FTP.UseTLS := utUseRequireTLS;

Подтвержденный ответ

Для настройки FTPS в TIdFTP необходимо выполнить несколько шагов:

1. Добавьте компонент TIdSSLIOHandlerSocketOpenSSL на форму и свяжите его с TIdFTP.IOHandler.
2. Настройте опции SSL в TIdSSLIOHandlerSocketOpenSSL.
3. Укажите, что данные должны быть защищены, установив TIdFTP.DataPortProtection в ftpdpsPrivate.

Пример кода:

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
  IdSSLIOHandlerSocketOpenSSL1.SSLVersion := tvSSLv3;
  IdSSLIOHandlerSocketOpenSSL1.SSLMode := smClient;
  IdSSLIOHandlerSocketOpenSSL1.CertFile := 'path\to\your\certificate.pem';
  IdSSLIOHandlerSocketOpenSSL1.KeyFile := 'path\to\your\key.pem';
  IdSSLIOHandlerSocketOpenSSL1.Passphrase := 'your_password';

  Application.FTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  Application.FTP.UseTLS := utUseExplicitTLS;
  Application.FTP.DataPortProtection := ftpdpsPrivate;

  Application.FTP.Host := vHost;
  Application.FTP.Port := vPort;
  try
    Application.FTP.AutoLogin := False;
    Application.FTP.Connect;
    Application.FTP.IOHandler.RecvBufferSize := 2048;
  finally
    Application.FTP.Disconnect;
    IdSSLIOHandlerSocketOpenSSL1.Free;
  end;
end;

Обратите внимание, что вам понадобятся файлы сертификата и ключа для настройки TIdSSLIOHandlerSocketOpenSSL. Также не забудьте добавить единицы IdExplicitTLSClientServerBase и IdFTPCommon в раздел uses вашего файла единицы.

Альтернативный ответ

Если вам нужен SFTP (FTP over SSH), то Indy не поддерживает SSH. В этом случае вам придется использовать другой компонент, такой как TSFTPClient из пакета IdSSH2.

В заключение, настройка FTPS в TIdFTP требует дополнительных компонентов и настроек, но позволяет обеспечить безопасность передачи данных при работе с FTP-сервером.

Создано по материалам из источника по ссылке.

Контекст: "Настройка компонента TIdFTP в Delphi XE3 для работы с FTPS (FTP over SSL) и решение проблемы с ошибкой компиляции при использовании опции UseTLS."

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: FTP ::