Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL oBd

nSuccess := 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.

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "ftp.example.com"
oFtp: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.
oFtp:Password := "myPassword"

nSuccess := oFtp:Connect()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

oBd := CreateObject("Chilkat.BinData")
nSuccess := oBd:LoadFile("qa_data/more_data.bin")
IF (nSuccess == 0)
    ? oBd:LastErrorText
    oFtp:destroy()
    oBd:destroy()
    RETURN
ENDIF

nSuccess := oFtp:AppendFileBd("data/collected.bin", oBd)
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    oBd:destroy()
    RETURN
ENDIF

? "Appended " + Str(oBd:NumBytes) + " bytes."

nSuccess := oFtp:Disconnect()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    oBd:destroy()
    RETURN
ENDIF

oFtp:destroy()
oBd:destroy()