(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim xml As New Chilkat.Xml

Dim success As Boolean = xml.LoadXmlFile("qa_data/soap/soapWithPdf.xml")
If (success <> True) Then
    Debug.WriteLine(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 Chilkat.Xml = xml.FindChild("s:Body|ObtenerPDFResponse|ObtenerPDFResult|a:PDF")
If (xml.LastMethodSuccess <> True) Then
    Debug.WriteLine("Did not find the PDF element at the expected location.")
    Exit Sub
End If


success = pdfElement.SaveBinaryContent("qa_output/out.pdf",False,False,"")
If (success <> True) Then
    Debug.WriteLine(xml.LastErrorText)
    Exit Sub
End If


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