(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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
url = "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
mhtStr = mht.GetMHT(url)
If (mht.LastMethodSuccess = False) Then
    System.DebugLog(mht.LastErrorText)
    Return
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
success = email.SetFromMimeText(mhtStr)
If (success = False) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

Dim numRelatedItems As Int32
numRelatedItems = email.NumRelatedItems
Dim i As Int32
i = 0
Dim sbContentType As New Chilkat.StringBuilder
While i < numRelatedItems
    success = sbContentType.SetString(email.GetRelatedContentType(i))
    System.DebugLog("Content-Type: " + sbContentType.GetAsString())

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

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

    i = i + 1
Wend