Lianja

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). Lianja

llSuccess = .F.

loXml = createobject("CkXml")

llSuccess = loXml.LoadXmlFile("qa_data/soap/soapWithPdf.xml")
if (llSuccess <> .T.) then
    ? loXml.LastErrorText
    release loXml
    return
endif

// 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>

loPdfElement = loXml.FindChild("s:Body|ObtenerPDFResponse|ObtenerPDFResult|a:PDF")
if (loXml.LastMethodSuccess <> .T.) then
    ? "Did not find the PDF element at the expected location."
    release loXml
    return
endif

llSuccess = loPdfElement.SaveBinaryContent("qa_output/out.pdf",.F.,.F.,"")
if (llSuccess <> .T.) then
    ? loXml.LastErrorText
    release loXml
    return
endif

? "Successfully extracted and saved the PDF."


release loXml