DataFlex

PDF File Encoding to Base64

See more Base64 Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoPdfData
    String sB64
    Handle hoPdfData2

    Move False To iSuccess

    Get Create (RefClass(cComChilkatBinData)) To hoPdfData
    If (Not(IsComObjectCreated(hoPdfData))) Begin
        Send CreateComObject of hoPdfData
    End

    Get ComLoadFile Of hoPdfData "qa_data/helloWorld.pdf" To iSuccess
    If (iSuccess <> True) Begin
        Showln "failed to load PDF file."
        Procedure_Return
    End

    // 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".
    Get ComGetEncoded Of hoPdfData "base64" To sB64
    Showln sB64

    // Decode from base64 PDF.
    Get Create (RefClass(cComChilkatBinData)) To hoPdfData2
    If (Not(IsComObjectCreated(hoPdfData2))) Begin
        Send CreateComObject of hoPdfData2
    End
    Get ComAppendEncoded Of hoPdfData2 sB64 "base64" To iSuccess
    Get ComWriteFile Of hoPdfData2 "qa_output/helloWorld2.pdf" To iSuccess
    If (iSuccess <> True) Begin
        Showln "failed to write PDF file."
        Procedure_Return
    End



End_Procedure