PureBasic

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

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkFtp2.pb"
IncludeFile "CkBinData.pb"

Procedure ChilkatExample()

    success.i = 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.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.example.com")
    CkFtp2::setCkUsername(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::setCkPassword(ftp, "myPassword")

    success = CkFtp2::ckConnect(ftp)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkBinData::ckLoadFile(bd,"qa_data/more_data.bin")
    If success = 0
        Debug CkBinData::ckLastErrorText(bd)
        CkFtp2::ckDispose(ftp)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckAppendFileBd(ftp,"data/collected.bin",bd)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf

    Debug "Appended " + Str(CkBinData::ckNumBytes(bd)) + " bytes."

    success = CkFtp2::ckDisconnect(ftp)
    If success = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf



    CkFtp2::ckDispose(ftp)
    CkBinData::ckDispose(bd)


    ProcedureReturn
EndProcedure