I have it working. This is what I use.
var
FTP: TidFTP;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
FTP := TidFTP.Create;
if Secure then
begin
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(FTP);
SSLhandler.SSLOptions.Method := sslvSSLv23;
FTP.IOHandler := SSLHandler;
if FTPPort = 990 then FTP.UseTLS := utUseImplicitTLS
else FTP.UseTLS := utUseExplicitTLS;
FTP.DataPortProtection := ftpdpsPrivate;
end;
etc
From: [email protected]
[mailto:[email protected]] On Behalf Of John Bird
Sent: Monday, 26 January 2015 4:19 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] XE7 and Indy FTPs
Trying to switch some existing Indy FTP code to FTPs, it connects but fails the
moment try to either list dir/Get or Put file with errors like: “Policy
requires SSL”.
The connection is set up according to the real sparse information on the web
about Indy and FTPs, (for instance the Indy FTP demo has no FTPs options).
Have had FTPs working in the past using Clever Components, and noticed there is
almost nothing when googling for FTPs and Indy – has anyone had success in
implementing it or know if it works?
(otherwise likely to have to switch back to Clever Components)
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: [email protected]
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [email protected] with
Subject: unsubscribe
