Upload File via FTPS +Indy10 (D7)

L_argo
Дата: 31.05.2019 11:38:23
Имеем Д7, Indy10 и необходимые 100% верные SSL DLL (SMTP с ними работает).
Нужна отправка через FTPS.
Делаю так:
uses IdSSLOpenSSL, IdIOHandler, IdIOHandlerSocket, IdMessage, IdExplicitTLSClientServerBase, IdFTPCommon
....
  idFtp1.Host := 'ххххххххххх';
  idFtp1.Username := 'хххх';
  idFtp1.Password := 'хххххххххх';

  fSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  fSSL.SSLOptions.Mode:=sslmClient;
  fSSL.SSLOptions.Method:=sslvSSLv23;
  fSSL.SSLOptions.SSLVersions:=[sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
  idFtp1.IOHandler:=fSSL;   // Вот тут происходит ошибка
  idFtp1.UseTLS:=utUseExplicitTLS;
  idFtp1.DataPortProtection:=ftpdpsPrivate;
  idFtp1.Port := 21;
  idFtp1.Connect;
............................
Рунтайм-ошибка при присваивании IOHandler (AV)
Инициализацию fSSL делаю по аналогии с работающим SMTP.
Возможно проблема именно тут.
Отбросить строки с fSSL.SSLOptions не помогло.

Что не так ?
L_argo
Дата: 31.05.2019 12:09:35
Чуть протупил. Забыл строку idFtp1 := TidFtp.Create(application);
Теперь ошибка при Connect:
Ошибка
Project xxxx.exe raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL.
error:14077410:SSL routines:SSL23_GET_SERVER_HELLO:sslv3 alert handshake failure'. Process stopped. Use Step or Run to continue.
Работает ли нормально этот ФТП - пока неизвестно. Просто прислали письмом параметры соединения.
Есть ли способ проверить работу этого ФТП другим способом ?
Какие параметры SSLOptions попробовать перебрать ?
s62
Дата: 31.05.2019 13:22:59
L_argo
Работает ли нормально этот ФТП - пока неизвестно. Просто прислали письмом параметры соединения.
Есть ли способ проверить работу этого ФТП другим способом ?
Конечно есть. Любым FTP-клиентом попробуй подключиться к серверу. Например Filezilla.