Extract all HTML Objects from a Web Page

Download Chilkat MHT ActiveX

Demonstrates how to download a Web page (at a URL) and extract all HTML objects. Eg. images, links, CSS files, JavaScript files, etc.

LOCAL loMht
LOCAL lnSuccess
LOCAL lcMhtDoc
LOCAL lcUnpackDir
LOCAL lcHtmlFilename
LOCAL lcPartsSubdir

loMht = CreateObject('Chilkat.Mht')

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

* Download a URL into an in-memory MHT web archive contained
* in a string variable:

lcMhtDoc = loMht.GetMHT("http://www.gopackaging.com/")
* On failure, the mhtDoc will be a zero-length string.
* Check the LastErrorText property for error information.

* Now extract the HTML and embedded objects:

lcUnpackDir = "c:/temp/"

lcHtmlFilename = "gopackaging.html"

lcPartsSubdir = "objects"
* Extract to c:/temp/gopackaging.html.
* images and other embedded objects are placed in
* c:/temp/objects.  Directories are automatically
* created if they don't already exist.
lnSuccess = loMht.UnpackMHTString(lcMhtDoc,lcUnpackDir,lcHtmlFilename,lcPartsSubdir)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loMht.LastErrorText)
ELSE
    =MESSAGEBOX("Unpacked!")
ENDIF