How can I make my delphi application use FTPS instead of FTP (indy)

Question

Here's my program:

Application.FTP.Host:= vHost;
Application.FTP.Port:= vPort;
try
  Application.FTP.AutoLogin := false;
  Application.FTP.Connect;
  Application.FTP.IOHandler.RecvBufferSize := 2048;

I'm using TIdFTP component in Delphi XE3.

I think I have to use something like this...

 Application.FTP.UseTLS := utUseRequireTLS;

but the compiler doesn't like that line

How can I get my FTP application to use FTPS ?

What versions of Delphi and Indy? – afrazier Feb 13 '13 at 14:27 — afrazier, Feb 13 '13 at 14:27

score 8 · Answer 1 · answered Feb 13 '13 at 14:39

First, do you need SFTP (FTP over SSH) or FTPS (FTP over SSL)? They are not the same thing. Indy does not support SSH at this time. For SSL, you can attach an SSL IOHandler, such as TIdSSLIOHandlerSocketOpenSSL, to the TIdFTP.IOHandler property and then set the TIdFTP.UseTLS property to anything other than utNoTLSSupport (yes, TIdFTP does have a UseTLS property). If you need to encrypt the actual file transfer connections, not just the command connection, then set the TIdFTP.DataPortProtection property to ftpdpsPrivate.

score 3 · Answer 2 · answered Feb 13 '13 at 14:40

3

With Indy10 you can add an TIdSSLIOHandlerSocketOpenSSL component and set FTP.IOHandler to point to this component.

And then in TIdSSLIOHandlerSocketOpenSSL you set your SSL options.

Ex.

ftpC.IOHandler:=iohFTPSE; //TIdSSLIOHandlerSocketOpenSSL 
ftpC.UseTLS:=utUseExplicitTLS;
ftpC.DataPortProtection:=ftpdpsPrivate;

answered Feb 13 '13 at 14:40

Daniel

1,052
9
11

And you need to set this before `FTP.Connect` – Daniel Feb 13 '13 at 14:46
`IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(nil); Application.FTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1; //TIdSSLIOHandlerSocketOpenSSL Application.FTP.UseTLS:=utUseExplicitTLS; Application.FTP.DataPortProtection:=ftpdpsPrivate;` – user1398287 Feb 13 '13 at 15:21
i got this error: [dcc32 Error] untOpenCommand.pas(103): E2003 Undeclared identifier: 'utUseExplicitTLS' – user1398287 Feb 13 '13 at 15:24
Add `IdExplicitTLSClientServerBase` unit to your uses clause. – TLama Feb 13 '13 at 15:28
that worked but i got this one now: [dcc32 Error] untOpenCommand.pas(104): E2003 Undeclared identifier: 'ftpdpsPrivate' – user1398287 Feb 13 '13 at 15:32
fixed it with IdFTPCommon in the uses – user1398287 Feb 13 '13 at 15:41

How can I make my delphi application use FTPS instead of FTP (indy)

2 Answers2