(DataFlex) Extract and Save PDF from SOAP XML

Demonstrates how to extract and save PDF file that is embedded in SOAP XML (or any XML).

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    Boolean iSuccess
    Variant vPdfElement
    Handle hoPdfElement
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End

    Get ComLoadXmlFile Of hoXml "qa_data/soap/soapWithPdf.xml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXml To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The XML we loaded looks like this:

    // <?xml version="1.0" encoding="utf-8" ?>
    // <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
    //     <s:Body>
    //         <ObtenerPDFResponse xmlns="http://xyz.org/">
    //             <ObtenerPDFResult xmlns:a="http://schemas.xyz.org/something" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
    //                 <a:CBB i:nil="true" />
    //                 <a:CodigoConfirmacion i:nil="true" />
    //                 <a:ErrorDetallado />
    //                 <a:ErrorGeneral i:nil="true" />
    //                 <a:FechaGenerada i:nil="true" />
    //                 <a:FolioGenerado i:nil="true" />
    //                 <a:OperacionExitosa>true</a:OperacionExitosa>
    //                 <a:PDF>JVBERi0xLjQKJe...</a:PDF>
    //                 <a:XML i:nil="true" />
    //             </ObtenerPDFResult>
    //         </ObtenerPDFResponse>
    //     </s:Body>
    // </s:Envelope>

    Get ComFindChild Of hoXml "s:Body|ObtenerPDFResponse|ObtenerPDFResult|a:PDF" To vPdfElement
    If (IsComObject(vPdfElement)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoPdfElement
        Set pvComObject Of hoPdfElement To vPdfElement
    End
    Get ComLastMethodSuccess Of hoXml To bTemp1
    If (bTemp1 <> True) Begin
        Showln "Did not find the PDF element at the expected location."
        Procedure_Return
    End

    Get ComSaveBinaryContent Of hoPdfElement "qa_output/out.pdf" False False "" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXml To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Successfully extracted and saved the PDF."


End_Procedure