(Delphi ActiveX) AWS Transfer for SFTP (Amazon S3)

Once you've setup your AWS Transfer for SFTP in the AWS Console, interacting with it is no different than any other SSH/SFTP server. AWS will provide a private key in PEM format. It is used for authentication (instead of a password).

For more information, see https://docs.aws.amazon.com/transfer/latest/userguide/getting-started-use-the-service.html

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
sftp: TChilkatSFtp;
domain: WideString;
port: Integer;
success: Integer;
sshKey: TChilkatSshKey;
keyText: WideString;
remoteFilePath: WideString;
localFilePath: WideString;

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

sftp := TChilkatSFtp.Create(Self);

// Connect to the AWS SFTP server.
// Change the domain to your value.
domain := 's-123456df999999fab.server.transfer.eu-west-2.amazonaws.com';
port := 22;
success := sftp.Connect(domain,port);
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

// Load your AWS SFTP private key PEM file..
sshKey := TChilkatSshKey.Create(Self);
keyText := sshKey.LoadText('qa_data/pem/s3_sftp_privateKey.pem');
if (sshKey.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(sshKey.LastErrorText);
    Exit;
  end;
success := sshKey.FromOpenSshPrivateKey(keyText);
if (success = 0) then
  begin
    Memo1.Lines.Add(sshKey.LastErrorText);
    Exit;
  end;

// Authenticate with the SSH server using the private key.
success := sftp.AuthenticatePk('myUsername',sshKey.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

// After authenticating, the SFTP subsystem must be initialized:
success := sftp.InitializeSftp();
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

// Upload from the local file to the SSH server.
// Important -- the remote filepath is the 1st argument,
// the local filepath is the 2nd argument;
remoteFilePath := 'hamlet.xml';
localFilePath := 'c:/temp/hamlet.xml';

success := sftp.UploadFileByName(remoteFilePath,localFilePath);
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Success.');
end;