(Delphi ActiveX) Use Explicit FTP over TLS

Demonstrates how to connect to an FTP server using explicit FTP over TLS.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;

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

ftp := TChilkatFtp2.Create(Self);

ftp.Hostname := 'ftp.your-ftp-server.com';
ftp.Username := 'ftpAccountLogin';
ftp.Password := 'ftpAccountPassword';

// Indicate that the "AUTH TLS" command should be use to convert the connection to TLS
// after the initial TCP connection to port 21 is established.
ftp.AuthTls := 1;

// Connect and convert the connection to TLS automatically.
success := ftp.ConnectOnly();
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

success := ftp.LoginAfterConnectOnly();
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('TLS connection established and successfully authenticated.');
end;