Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
ftp: HCkFtp2;
bd: HCkBinData;

begin
success := False;

//  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 := CkFtp2_Create();

CkFtp2_putHostname(ftp,'ftp.example.com');
CkFtp2_putUsername(ftp,'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.
CkFtp2_putPassword(ftp,'myPassword');

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

bd := CkBinData_Create();
success := CkBinData_LoadFile(bd,'qa_data/more_data.bin');
if (success = False) then
  begin
    Memo1.Lines.Add(CkBinData__lastErrorText(bd));
    Exit;
  end;

success := CkFtp2_AppendFileBd(ftp,'data/collected.bin',bd);
if (success = False) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;
Memo1.Lines.Add('Appended ' + IntToStr(CkBinData_getNumBytes(bd)) + ' bytes.');

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

CkFtp2_Dispose(ftp);
CkBinData_Dispose(bd);