(DataFlex) PDF File Encoding to Base64

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoPdfData
    Boolean iSuccess
    String sB64
    Handle hoPdfData2

    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