Delphi ActiveX

Append Bytes to a Remote FTP File (BinData)

Demonstrates the Chilkat Ftp2.AppendFileBd method, which appends the bytes in a BinData to a remote file. The first argument is the remote filename and the second is the BinData. No conversion is performed.

Background: The binary append: add in-memory bytes to the end of a remote file without an intermediate local file and without any encoding or line-ending translation. It is the right choice for growing a binary file — concatenating captured data, for instance — where exact bytes matter.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
ftp: TChilkatFtp2;
bd: TChilkatBinData;

begin
success := 0;

//  Demonstrates the Ftp2.AppendFileBd method, which appends the bytes in a BinData to a remote
//  file.  The 1st argument is the remote filename and the 2nd is the BinData.

ftp := TChilkatFtp2.Create(Self);

ftp.Hostname := 'ftp.example.com';
ftp.Username := 'myFtpLogin';

//  Normally you would not hard-code the password in source.  You should instead obtain it
//  from an interactive prompt, environment variable, or a secrets vault.
ftp.Password := 'myPassword';

success := ftp.Connect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

bd := TChilkatBinData.Create(Self);
success := bd.LoadFile('qa_data/more_data.bin');
if (success = 0) then
  begin
    Memo1.Lines.Add(bd.LastErrorText);
    Exit;
  end;

success := ftp.AppendFileBd('data/collected.bin',bd.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Appended ' + IntToStr(bd.NumBytes) + ' bytes.');

success := ftp.Disconnect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;