Download Web Page to MHT with w/ Disk Cache

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

Download Chilkat MHT ActiveX

LOCAL loMht
LOCAL lnSuccess

loMht = CreateObject('Chilkat.Mht')

lnSuccess = loMht.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Mht component unlock failed")
    QUIT
ENDIF

*  Use a single directory to hold cached files.
loMht.NumCacheLevels = 0
loMht.AddCacheRoot("c:/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")

? loMht.LastErrorText

IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("MHT Failed!")
ELSE
    =MESSAGEBOX("MHT Created!")
ENDIF