Xbase++

Extract all HTML Objects from a Web Page

See more MHT / HTML Email Examples

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

LOCAL nSuccess
LOCAL oMht
LOCAL cMhtDoc
LOCAL cUnpackDir
LOCAL cHtmlFilename
LOCAL cPartsSubdir

nSuccess := 0

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

oMht := CreateObject("Chilkat.Mht")

//  Download a URL into an in-memory MHT web archive contained
//  in a string variable.
//  The following URL is randomly picked and was valid at the time of writing this example:
cMhtDoc := oMht:GetMHT("https://www.tetonlodge.com/")
IF (oMht:LastMethodSuccess != 1)
    ? oMht:LastErrorText
    oMht:destroy()
    RETURN
ENDIF

//  Extract the HTML and embedded objects:
cUnpackDir := "C:/AAWorkarea/mhtTesting/"
cHtmlFilename := "lodge.html"
cPartsSubdir := "objects"

//  Extract to C:/AAWorkarea/mhtTesting/lodge.html.
//  images and other embedded objects are placed in
//  C:/AAWorkarea/mhtTesting/objects.  Directories are automatically
//  created if they don't already exist.
nSuccess := oMht:UnpackMHTString(cMhtDoc, cUnpackDir, cHtmlFilename, cPartsSubdir)
IF (nSuccess != 1)
    ? oMht:LastErrorText
ELSE
    ? "Unpacked!"
ENDIF

oMht:destroy()