(Delphi DLL) Append to Existing File on FTP Server

Uploads a file to the FTP server. If the remote file (on the FTP server) does not already exist, it is created. Otherwise the uploaded file is appended to the remote file.

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
ftp: HCkFtp2;
success: Boolean;
localFilePath: PWideChar;
remoteFilename: PWideChar;

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

ftp := CkFtp2_Create();

CkFtp2_putHostname(ftp,'ftp.myftpserver.com');
CkFtp2_putUsername(ftp,'myUsername');
CkFtp2_putPassword(ftp,'myPassword');

// Connect to the FTP server.
success := CkFtp2_ConnectOnly(ftp);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

// Authenticate with the FTP server.
success := CkFtp2_LoginAfterConnectOnly(ftp);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

localFilePath := '/someDirectory/hamlet.xml';
remoteFilename := 'hamlet.xml';

// Upload to the FTP server, creating the file if it does not yet exist
// on the FTP server, or appending to the remote file if it already exists.
success := CkFtp2_AppendFile(ftp,localFilePath,remoteFilename);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

CkFtp2_Disconnect(ftp);

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

CkFtp2_Dispose(ftp);

end;