DataFlex

Extract and Save PDF from SOAP XML

See more XML Examples

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

Use ChilkatAx-win32.pkg

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

    Move False To iSuccess

    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