(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

loSftp = createobject("CkSFtp")

// Connect to the AWS SFTP server.
// Change the domain to your value.
lcDomain = "s-123456df999999fab.server.transfer.eu-west-2.amazonaws.com"
lnPort = 22
llSuccess = loSftp.Connect(lcDomain,lnPort)
if (llSuccess = .F.) then
    ? loSftp.LastErrorText
    release loSftp
    return
endif

// Load your AWS SFTP private key PEM file..
loSshKey = createobject("CkSshKey")
lcKeyText = loSshKey.LoadText("qa_data/pem/s3_sftp_privateKey.pem")
if (loSshKey.LastMethodSuccess <> .T.) then
    ? loSshKey.LastErrorText
    release loSftp
    release loSshKey
    return
endif

llSuccess = loSshKey.FromOpenSshPrivateKey(lcKeyText)
if (llSuccess = .F.) then
    ? loSshKey.LastErrorText
    release loSftp
    release loSshKey
    return
endif

// Authenticate with the SSH server using the private key.
llSuccess = loSftp.AuthenticatePk("myUsername",loSshKey)
if (llSuccess = .F.) then
    ? loSftp.LastErrorText
    release loSftp
    release loSshKey
    return
endif

// After authenticating, the SFTP subsystem must be initialized:
llSuccess = loSftp.InitializeSftp()
if (llSuccess = .F.) then
    ? loSftp.LastErrorText
    release loSftp
    release loSshKey
    return
endif

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

llSuccess = loSftp.UploadFileByName(lcRemoteFilePath,lcLocalFilePath)
if (llSuccess = .F.) then
    ? loSftp.LastErrorText
    release loSftp
    release loSshKey
    return
endif

? "Success."


release loSftp
release loSshKey