Delphi ActiveX

Use Explicit FTP over TLS

See more FTP Examples

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

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
success: Integer;
ftp: TChilkatFtp2;

begin
success := 0;

// 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;