(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMht
    Boolean iSuccess
    String sTemp1

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

    Get Create (RefClass(cComChilkatMht)) To hoMht
    If (Not(IsComObjectCreated(hoMht))) Begin
        Send CreateComObject of hoMht
    End

    // Use a single directory to hold cached files.
    // (Make sure it is a directory your app has permission to create files.)
    Set ComNumCacheLevels Of hoMht To 0
    Send ComAddCacheRoot To hoMht "/Users/chilkat/temp/mhtCache/"

    // Tell the MHT component to save files to cache,
    // and to retrieve from cache if possible:
    Set ComFetchFromCache Of hoMht To True
    Set ComUpdateCache Of hoMht To 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.
    Get ComGetAndSaveMHT Of hoMht "http://www.intel.com/" "intel.mht" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMht To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "MHT Created!"
    End



End_Procedure