(PureBasic) PDF File Encoding to Base64

Demonstrates how to encode a PDF file to base64, and then decode.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"

Procedure ChilkatExample()

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

    success.i = CkBinData::ckLoadFile(pdfData,"qa_data/helloWorld.pdf")
    If success <> 1
        Debug "failed to load PDF file."
        CkBinData::ckDispose(pdfData)
        ProcedureReturn
    EndIf

    ; Encode the PDF to base64
    ; Note: to produce base64 on multiple lines (as it would appear in the MIME of an email),
    ; pass the string "base64_mime" instead of "base64".
    b64.s = CkBinData::ckGetEncoded(pdfData,"base64")
    Debug b64

    ; Decode from base64 PDF.
    pdfData2.i = CkBinData::ckCreate()
    If pdfData2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckAppendEncoded(pdfData2,b64,"base64")
    success = CkBinData::ckWriteFile(pdfData2,"qa_output/helloWorld2.pdf")
    If success <> 1
        Debug "failed to write PDF file."
        CkBinData::ckDispose(pdfData)
        CkBinData::ckDispose(pdfData2)
        ProcedureReturn
    EndIf



    CkBinData::ckDispose(pdfData)
    CkBinData::ckDispose(pdfData2)


    ProcedureReturn
EndProcedure