B4X

Download Web Page to MHT with w/ Disk Cache

See more MHT / HTML Email Examples

Downloads a web page into a .mht web archive. Embedded images and style sheets are loaded and/or saved to a disk cache. B4X

Dim success As Boolean = False

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

Dim mht As ChilkatMht
mht.Initialize("mht")

'  Use a single directory to hold cached files.
'  (Make sure it is a directory your app has permission to create files.)
mht.NumCacheLevels = 0
mht.AddCacheRoot("/Users/chilkat/temp/mhtCache/")

'  Tell the MHT component to save files to cache,
'  and to retrieve from cache if possible:
mht.FetchFromCache = True
mht.UpdateCache = True

'  The 1st time this is run, the parts (image files,
'  style sheets, etc.) will be saved to the disk cache.
'  The 2nd time this is run, the parts will load from cache.
'  Note: The main content (i.e. the HTML page) 
'  is not saved to cache, nor is it retrieved from cache.
'  It is only the sub-parts (embedded images, style sheets)
'  that are saved to and loaded from cache.
success = mht.GetAndSaveMHT("http://www.intel.com/", "intel.mht")
If success <> True Then
    Log(mht.LastErrorText)
Else
    Log("MHT Created!")
End If