(VB.NET UWP/WinRT) Download Web Page to MHT and Extract Images (all in memory)

Downloads a web page to an MHT archive (in memory) and then extracts each image to a byte array in memory.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

' Note: This URL exists at the time of writing and testing this example (on 12-June-2020)
' However, it will surely not continue to exist for very long.
' You should choose a different URL.  (Any web page with images will do.)
Dim url As String = "https://www.fendi.com/it/abbigliamento-uomo/cravatta-fxc160a3nwf0qg2"

Dim mht As New Chilkat.Mht

' Downloads to an MHT string.
' MHT is just MIME, which is the same format as an email but with different semantics.
Dim mhtStr As String = Await mht.GetMHTAsync(url)
If (mht.LastMethodSuccess = False) Then
    Debug.WriteLine(mht.LastErrorText)
    Exit Sub
End If



' We can still treat the MHT MIME as an email and iterate over the "related items".
Dim email As New Chilkat.Email
Dim success As Boolean = email.SetFromMimeText(mhtStr)
If (success = False) Then
    Debug.WriteLine(email.LastErrorText)
    Exit Sub
End If


Dim numRelatedItems As Integer = email.NumRelatedItems
Dim i As Integer = 0
Dim sbContentType As New Chilkat.StringBuilder
While i < numRelatedItems
    sbContentType.SetString(email.GetRelatedContentType(i))
    Debug.WriteLine("Content-Type: " & sbContentType.GetAsString())

    If (sbContentType.StartsWith("image/",False) = True) Then
        ' We have an image.
        ' Get the image data.
        Dim imageData() As Byte = email.GetRelatedData(i)

        ' Do what you need with the image data..
    End If

    i = i + 1
End While