VBScript

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set xml = CreateObject("Chilkat.Xml")

success = xml.LoadXmlFile("qa_data/soap/soapWithPdf.xml")
If (success <> 1) Then
    outFile.WriteLine(xml.LastErrorText)
    WScript.Quit
End If

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

' pdfElement is a Chilkat.Xml
Set pdfElement = xml.FindChild("s:Body|ObtenerPDFResponse|ObtenerPDFResult|a:PDF")
If (xml.LastMethodSuccess <> 1) Then
    outFile.WriteLine("Did not find the PDF element at the expected location.")
    WScript.Quit
End If

success = pdfElement.SaveBinaryContent("qa_output/out.pdf",0,0,"")
If (success <> 1) Then
    outFile.WriteLine(xml.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Successfully extracted and saved the PDF.")

outFile.Close