(VB.NET UWP/WinRT) Convert MIME to XML

Demonstrates how to convert MIME to XML, and how to access the MIME parts and data from XML.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads

Chilkat for the Universal Windows Platform (UWP)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim mime As New Chilkat.Mime

' The contents of this MIME file are shown below, 
' and is also available at https://www.chilkatsoft.com/sampleMime.txt
Dim success As Boolean = mime.LoadMimeFile("qa_data/mime/sampleMime.txt")
If (success <> True) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If


' The MIME used in this example has the following nested structure
' 
' multipart/alternative
'     text/plain
'     multipart/related
'         text/html
'         image/jpeg
' 

' Convert to XML.
Dim xmlStr As String = mime.GetXml()

' Load into a Chilkat XML object so we can emit in indented format.
' (and also to demonstrate how to access the MIME content from XML).
Dim xml As New Chilkat.Xml
xml.LoadXml(xmlStr)
' The XML emitted by this statement is shown below, following the remainder of sample code.
Debug.WriteLine(xml.GetXml())

' To get the top-level Subject header field:
Debug.WriteLine("Subject = " & xml.ChilkatPath("header|subject|*"))

' Another way of getting the Subject:
xml.FirstChild2()
Debug.WriteLine("Subject = " & xml.GetChildContent("subject"))
xml.GetRoot2()

' Using the Chilkat XML API, there are many different ways of accomplishing a goal.
' This example shows only a few possibilities...

' Let's go to the <body> tag containing the HTML.
' First we find the XML node where the content-type is text/html.
' (XML methods ending in "2" update the internal reference to the XML node.)
success = xml.SearchForContent2(xml,"content-type","text/html")
If (success = True) Then
    ' From this point, we know the HTML content is two levels up (to the <mime_message> node),
    ' and one level down (to the <body> node).  We can get the HTML content from here:
    Dim htmlContent As String = xml.ChilkatPath("..|..|body|*")
    Debug.WriteLine(htmlContent)
    Debug.WriteLine("-")
End If


' Back to the root...
xml.GetRoot2()

' How to iterate over all image/jpeg bodies and access the bytes of each?
success = xml.SearchForContent2(xml,"content-type","image/jpeg")
While success = True
    ' "$" in the Chilkat path indicates to update the internal reference of the caller
    ' if the path could be traversed.
    Dim notUsed As String = xml.ChilkatPath("..|..|body|$")
    If (xml.LastMethodSuccess = True) Then
        Dim jpgBytes() As Byte
        jpgBytes = xml.GetBinaryContent(False,False,"")

        Debug.WriteLine("Found JPG image!")

        ' Find the next JPG image.
        success = xml.SearchForContent2(xml,"content-type","image/jpeg")
    Else
        success = False
    End If

End While


' --------------------------------------------------------------
' --------------------------------------------------------------
' The MIME converted to XML:

' <?xml version="1.0" encoding="utf-8" ?>
' <mime_message>
'     <header>
'         <subject>Test email.</subject>
'         <content-type boundary="------------DB171738719FB06D67DEBAA0">multipart/alternative</content-type>
'         <mime-version>1.0</mime-version>
'     </header>
'     <body>
'         <subpart>
'             <mime_message>
'                 <header>
'                     <content-type charset="utf-8" format="flowed">text/plain</content-type>
'                     <content-transfer-encoding>7bit</content-transfer-encoding>
'                 </header>
'                 <body><![CDATA[This is a test.
' ]]></body>
'             </mime_message>
'         </subpart>
'         <subpart>
'             <mime_message>
'                 <header>
'                     <content-type boundary="------------A940F1230E6F0105F03DB2CB">multipart/related</content-type>
'                 </header>
'                 <body>
'                     <subpart>
'                         <mime_message>
'                             <header>
'                                 <content-type charset="utf-8">text/html</content-type>
'                                 <content-transfer-encoding>8bit</content-transfer-encoding>
'                             </header>
'                             <body><![CDATA[<html><head>
' <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
'   </head>
'   <body bgcolor="#FFFFFF" text="#000000">
'     <p>This is a test.&nbsp; <img src="cid:part1.E16AE3B4.1505C436@chilkatsoft.com" height="20" width="20"></p>
'   </body>
' </html>
' ]]></body>
'                         </mime_message>
'                     </subpart>
'                     <subpart>
'                         <mime_message>
'                             <header>
'                                 <content-type name="starfish20.jpg">image/jpeg</content-type>
'                                 <content-transfer-encoding>base64</content-transfer-encoding>
'                                 <content-id>&lt;part1.E16AE3B4.1505C436@chilkatsoft.com&gt;</content-id>
'                                 <content-disposition filename="starfish20.jpg">inline</content-disposition>
'                             </header>
'                             <body>/9j/4AAQSkZJRgABAQEASABIAAD//gAmRmlsZSB3cml0dGVuIGJ5IEFkb2JlIFBob3Rvc2hvcD8g
' NC4w/9sAQwAQCwwODAoQDg0OEhEQExgoGhgWFhgxIyUdKDozPTw5Mzg3QEhcTkBEV0U3OFBtUVdf
' YmdoZz5NcXlwZHhcZWdj/9sAQwEREhIYFRgvGhovY0I4QmNjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
' Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj/8IAEQgAFAAUAwERAAIRAQMRAf/EABcAAAMBAAAA
' AAAAAAAAAAAAAAIDBAX/xAAYAQADAQEAAAAAAAAAAAAAAAABAgMEAP/aAAwDAQACEAMQAAAB2kZY
' NNEijWKddfTmLgALWH//xAAbEAACAgMBAAAAAAAAAAAAAAABAgMRAAQSE//aAAgBAQABBQL0XqN+
' pM2aqJGMiqFFCyg7z//EABwRAAICAgMAAAAAAAAAAAAAAAERAAIQIQMSUf/aAAgBAwEBPwHqU5aq
' Axx+y1tMQl4elj//xAAcEQEAAQUBAQAAAAAAAAAAAAABEQACEBIhA1H/2gAIAQIBAT8B3Bhqy7Zc
' enyiwmGgDhiOzj//xAAdEAABAwUBAAAAAAAAAAAAAAABAAIREBIhIkFR/9oACAEBAAY/ArZyn+Cg
' xtxWuJaoCnqDuin/xAAcEAABBAMBAAAAAAAAAAAAAAABABEhYRAxQVH/2gAIAQEAAT8hkEwPUUR9
' DYfE4nxtRpIkBTsayuALIiuY/9oADAMBAAIAAwAAABDWPTsf/8QAGhEAAwADAQAAAAAAAAAAAAAA
' AAEREDFBIf/aAAgBAwEBPxC0DVPcWm+Ce4OesrkE6bjH/8QAGBEBAQEBAQAAAAAAAAAAAAAAAREA
' QRD/2gAIAQIBAT8QahMiOc8YgSrnTY3ELclHXn//xAAcEAEBAAIDAQEAAAAAAAAAAAABEQAhMUFx
' EFH/2gAIAQEAAT8Qn3igmSZSj+c4N4zapMy9IjFV98wncN2iuLFsCEbDGxQkI6RO/n//2Q==</body>
'                         </mime_message>
'                     </subpart>
'                 </body>
'             </mime_message>
'         </subpart>
'     </body>
' </mime_message>
' 

' --------------------------------------------------------------
' --------------------------------------------------------------
' The MIME sample file loaded at the beginning of this example
' contains the following MIME:

' Subject: Test email.
' Content-Type: multipart/alternative;
' 	boundary="------------DB171738719FB06D67DEBAA0"
' MIME-Version: 1.0
' 
' --------------DB171738719FB06D67DEBAA0
' Content-Type: text/plain; charset="utf-8"; format=flowed
' Content-Transfer-Encoding: 7bit
' 
' This is a test.
' 
' --------------DB171738719FB06D67DEBAA0
' Content-Type: multipart/related;
' 	boundary="------------A940F1230E6F0105F03DB2CB"
' 
' --------------A940F1230E6F0105F03DB2CB
' Content-Type: text/html; charset="utf-8"
' Content-Transfer-Encoding: 8bit
' 
' <html><head>
' <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
'   </head>
'   <body bgcolor="#FFFFFF" text="#000000">
'     <p>This is a test.&nbsp; <img src="cid:part1.E16AE3B4.1505C436@chilkatsoft.com" height="20" width="20"></p>
'   </body>
' </html>
' 
' --------------A940F1230E6F0105F03DB2CB
' Content-Type: image/jpeg; name="starfish20.jpg"
' Content-Transfer-Encoding: base64
' Content-ID: <part1.E16AE3B4.1505C436@chilkatsoft.com>
' Content-Disposition: inline; filename="starfish20.jpg"
' 
' /9j/4AAQSkZJRgABAQEASABIAAD//gAmRmlsZSB3cml0dGVuIGJ5IEFkb2JlIFBob3Rvc2hvcD8g
' NC4w/9sAQwAQCwwODAoQDg0OEhEQExgoGhgWFhgxIyUdKDozPTw5Mzg3QEhcTkBEV0U3OFBtUVdf
' YmdoZz5NcXlwZHhcZWdj/9sAQwEREhIYFRgvGhovY0I4QmNjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
' Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj/8IAEQgAFAAUAwERAAIRAQMRAf/EABcAAAMBAAAA
' AAAAAAAAAAAAAAIDBAX/xAAYAQADAQEAAAAAAAAAAAAAAAABAgMEAP/aAAwDAQACEAMQAAAB2kZY
' NNEijWKddfTmLgALWH//xAAbEAACAgMBAAAAAAAAAAAAAAABAgMRAAQSE//aAAgBAQABBQL0XqN+
' pM2aqJGMiqFFCyg7z//EABwRAAICAgMAAAAAAAAAAAAAAAERAAIQIQMSUf/aAAgBAwEBPwHqU5aq
' Axx+y1tMQl4elj//xAAcEQEAAQUBAQAAAAAAAAAAAAABEQACEBIhA1H/2gAIAQIBAT8B3Bhqy7Zc
' enyiwmGgDhiOzj//xAAdEAABAwUBAAAAAAAAAAAAAAABAAIREBIhIkFR/9oACAEBAAY/ArZyn+Cg
' xtxWuJaoCnqDuin/xAAcEAABBAMBAAAAAAAAAAAAAAABABEhYRAxQVH/2gAIAQEAAT8hkEwPUUR9
' DYfE4nxtRpIkBTsayuALIiuY/9oADAMBAAIAAwAAABDWPTsf/8QAGhEAAwADAQAAAAAAAAAAAAAA
' AAEREDFBIf/aAAgBAwEBPxC0DVPcWm+Ce4OesrkE6bjH/8QAGBEBAQEBAQAAAAAAAAAAAAAAAREA
' QRD/2gAIAQIBAT8QahMiOc8YgSrnTY3ELclHXn//xAAcEAEBAAIDAQEAAAAAAAAAAAABEQAhMUFx
' EFH/2gAIAQEAAT8Qn3igmSZSj+c4N4zapMy9IjFV98wncN2iuLFsCEbDGxQkI6RO/n//2Q==
' 
' --------------A940F1230E6F0105F03DB2CB--
' 
' --------------DB171738719FB06D67DEBAA0--
'