PureBasic

Set a MIME Body from Binary Bytes (BinData)

Demonstrates the Chilkat Mime.SetBodyBd method, which sets the decoded body bytes from a BinData, changes the transfer encoding to base64, and preserves the bytes exactly. The only argument is the BinData.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is the direct way to put arbitrary binary content into a part from memory — a generated image, a decrypted blob — without a temporary file. Chilkat base64-encodes it so the bytes survive text-based transports unchanged. Note it does not set a Content-Type or disposition, so assign those yourself to describe what the bytes are.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkMime.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the Mime.SetBodyBd method, which sets the decoded body bytes from a BinData,
    ;  changes the transfer encoding to base64, and preserves the bytes exactly.  The only argument is
    ;  the BinData.

    ;  Put the binary body bytes into a BinData.
    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkBinData::ckLoadFile(bd,"qa_data/photo.jpg")
    If success = 0
        Debug CkBinData::ckLastErrorText(bd)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf

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

    ;  Set a Content-Type for the binary content (SetBodyBd does not set one itself).
    CkMime::setCkContentType(mime, "image/jpeg")

    success = CkMime::ckSetBodyBd(mime,bd)
    If success = 0
        Debug CkMime::ckLastErrorText(mime)
        CkBinData::ckDispose(bd)
        CkMime::ckDispose(mime)
        ProcedureReturn
    EndIf

    Debug "Body set from " + Str(CkBinData::ckNumBytes(bd)) + " bytes."


    CkBinData::ckDispose(bd)
    CkMime::ckDispose(mime)


    ProcedureReturn
EndProcedure