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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
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