Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loMht

lnSuccess = 0

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

loMht = CreateObject('Chilkat.Mht')

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

* Tell the MHT component to save files to cache,
* and to retrieve from cache if possible:
loMht.FetchFromCache = 1
loMht.UpdateCache = 1

* 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.
lnSuccess = loMht.GetAndSaveMHT("http://www.intel.com/","intel.mht")
IF (lnSuccess <> 1) THEN
    ? loMht.LastErrorText
ELSE
    ? "MHT Created!"
ENDIF

RELEASE loMht