(Delphi DLL) FTPS / Implicit SSL

Demonstrates how to connect using implicit SSL on port 990. The FTP component connects using SSL on port 990, which is the de-facto standard FTP SSL port. Not all FTP servers support implicit SSL. An alternative is to use AUTH SSL (also called AUTH TLS).

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Ftp2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: HCkFtp2;
success: Boolean;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

ftp := CkFtp2_Create();

// If this example does not work, try using passive mode
// by setting this to True.
CkFtp2_putPassive(ftp,False);
CkFtp2_putHostname(ftp,'ftp.something.com');
CkFtp2_putUsername(ftp,'test');
CkFtp2_putPassword(ftp,'test');
CkFtp2_putPort(ftp,990);

// We don't want AUTH SSL:
CkFtp2_putAuthTls(ftp,False);

// We want Implicit SSL:
CkFtp2_putSsl(ftp,True);

// Connect and login to the FTP server.
success := CkFtp2_Connect(ftp);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end
else
  begin
    // LastErrorText contains information even when
    // successful. This allows you to visually verify
    // that the secure connection actually occurred.
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
  end;

Memo1.Lines.Add('FTPS Channel Established!');

// Do whatever you're doing to do ...
// upload files, download files, etc...

success := CkFtp2_Disconnect(ftp);

CkFtp2_Dispose(ftp);

end;