(PureBasic) 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.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkMht.pb"

Procedure ChilkatExample()

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

    mht.i = CkMht::ckCreate()
    If mht.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Use a single directory to hold cached files.
    ; (Make sure it is a directory your app has permission to create files.)
    CkMht::setCkNumCacheLevels(mht, 0)
    CkMht::ckAddCacheRoot(mht,"/Users/chilkat/temp/mhtCache/")

    ; Tell the MHT component to save files to cache,
    ; and to retrieve from cache if possible:
    CkMht::setCkFetchFromCache(mht, 1)
    CkMht::setCkUpdateCache(mht, 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.
    success.i = CkMht::ckGetAndSaveMHT(mht,"http://www.intel.com/","intel.mht")
    If success <> 1
        Debug CkMht::ckLastErrorText(mht)
    Else
        Debug "MHT Created!"
    EndIf



    CkMht::ckDispose(mht)


    ProcedureReturn
EndProcedure