Extract all HTML Objects from a Web Page

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

Download Chilkat MHT ActiveX

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

loMht = CreateObject('Chilkat.Mht')

lnSuccess = loMht.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loMht.LastErrorText
    QUIT
ENDIF

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

lcMhtDoc = loMht.GetMHT("http://www.gopackaging.com/")
IF (lcMhtDoc = NULL ) THEN
    ? loMht.LastErrorText
    QUIT
ENDIF

*  Now extract the HTML and embedded objects:

lcUnpackDir = "/Users/chilkat/temp/"

lcHtmlFilename = "gopackaging.html"

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