(Delphi ActiveX) Wasabi FTP Upload

See more Wasabi Examples

Demonstrates how to upload a file to Wasabi using FTP.

Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.

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

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

ftp := TChilkatFtp2.Create(Self);

// Use the domain for the bucket you'll be managing.
ftp.Hostname := 's3.s3.us-west-1.wasabisys.com';

// Use your root account username (email address) and root account password
ftp.Username := 'root_account_username';
ftp.Password := 'root_account_password';
ftp.Ssl := 1;
ftp.Port := 990;

// Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.
success := ftp.Connect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

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

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