Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL loBd

lnSuccess = 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.

loFtp = CreateObject('Chilkat.Ftp2')

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

lnSuccess = loFtp.Connect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile("qa_data/more_data.bin")
IF (lnSuccess = 0) THEN
    ? loBd.LastErrorText
    RELEASE loFtp
    RELEASE loBd
    CANCEL
ENDIF

lnSuccess = loFtp.AppendFileBd("data/collected.bin",loBd)
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    RELEASE loBd
    CANCEL
ENDIF

? "Appended " + STR(loBd.NumBytes) + " bytes."

lnSuccess = loFtp.Disconnect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    RELEASE loBd
    CANCEL
ENDIF

RELEASE loFtp
RELEASE loBd