(Delphi DLL) 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 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, SFtp, SshKey;

...

procedure TForm1.Button1Click(Sender: TObject);
var
sftp: HCkSFtp;
domain: PWideChar;
port: Integer;
success: Boolean;
sshKey: HCkSshKey;
keyText: PWideChar;
remoteFilePath: PWideChar;
localFilePath: PWideChar;

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

sftp := CkSFtp_Create();

// 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 := CkSFtp_Connect(sftp,domain,port);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSFtp__lastErrorText(sftp));
    Exit;
  end;

// Load your AWS SFTP private key PEM file..
sshKey := CkSshKey_Create();
keyText := CkSshKey__loadText(sshKey,'qa_data/pem/s3_sftp_privateKey.pem');
if (CkSshKey_getLastMethodSuccess(sshKey) <> True) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(sshKey));
    Exit;
  end;
success := CkSshKey_FromOpenSshPrivateKey(sshKey,keyText);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(sshKey));
    Exit;
  end;

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

// After authenticating, the SFTP subsystem must be initialized:
success := CkSFtp_InitializeSftp(sftp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSFtp__lastErrorText(sftp));
    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 := CkSFtp_UploadFileByName(sftp,remoteFilePath,localFilePath);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSFtp__lastErrorText(sftp));
    Exit;
  end;

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

CkSFtp_Dispose(sftp);
CkSshKey_Dispose(sshKey);

end;