(SQL Server) 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

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @mht int
    EXEC @hr = sp_OACreate 'Chilkat.Mht', @mht OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    EXEC sp_OAMethod @mht, 'UnlockComponent', @success OUT, 'Anything for 30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @mht, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mht
        RETURN
      END

    --  Use a single directory to hold cached files.
    --  (Make sure it is a directory your app has permission to create files.)
    EXEC sp_OASetProperty @mht, 'NumCacheLevels', 0
    EXEC sp_OAMethod @mht, 'AddCacheRoot', NULL, '/Users/chilkat/temp/mhtCache/'

    --  Tell the MHT component to save files to cache,
    --  and to retrieve from cache if possible:
    EXEC sp_OASetProperty @mht, 'FetchFromCache', 1
    EXEC sp_OASetProperty @mht, '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.
    EXEC sp_OAMethod @mht, 'GetAndSaveMHT', @success OUT, 'http://www.intel.com/', 'intel.mht'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @mht, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
      END
    ELSE
      BEGIN
        PRINT 'MHT Created!'
      END
    EXEC @hr = sp_OADestroy @mht


END
GO