(Delphi DLL) Wasabi FTP Upload

See more Wasabi Examples

Note: This example requires Chilkat v9.5.0.89 or greater.

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, Ftp2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
ftp: HCkFtp2;
localFilePath: PWideChar;
remoteBucketPath: PWideChar;

begin
success := False;

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

ftp := CkFtp2_Create();

// Use the domain for the bucket you'll be managing.
CkFtp2_putHostname(ftp,'s3.s3.us-west-1.wasabisys.com');

// Use your root account username (email address) and root account password
CkFtp2_putUsername(ftp,'root_account_username');
CkFtp2_putPassword(ftp,'root_account_password');
CkFtp2_putSsl(ftp,True);
CkFtp2_putPort(ftp,990);

success := CkFtp2_Connect(ftp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

// Upload a file (starfish.jpg) to the bucket named "chilkat"
localFilePath := 'qa_data/jpg/starfish.jpg';
remoteBucketPath := '/chilkat/starfish.jpg';
success := CkFtp2_PutFile(ftp,localFilePath,remoteBucketPath);
if (success = False) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

Memo1.Lines.Add('File uploaded.');

CkFtp2_Dispose(ftp);

end;