(Visual Basic 6.0) 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 xml As New ChilkatXml

Dim success As Long
success = xml.LoadXmlFile("qa_data/soap/soapWithPdf.xml")
If (success <> 1) Then
    Debug.Print xml.LastErrorText
    Exit Sub
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>

Dim pdfElement As ChilkatXml
Set pdfElement = xml.FindChild("s:Body|ObtenerPDFResponse|ObtenerPDFResult|a:PDF")
If (xml.LastMethodSuccess <> 1) Then
    Debug.Print "Did not find the PDF element at the expected location."
    Exit Sub
End If

success = pdfElement.SaveBinaryContent("qa_output/out.pdf",0,0,"")
If (success <> 1) Then
    Debug.Print xml.LastErrorText
    Exit Sub
End If

Debug.Print "Successfully extracted and saved the PDF."