(DataFlex) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMht
    String sMhtDoc
    String sUnpackDir
    String sHtmlFilename
    String sPartsSubdir
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

    // 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

    // 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:
    Get ComGetMHT Of hoMht "https://www.tetonlodge.com/" To sMhtDoc
    Get ComLastMethodSuccess Of hoMht To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoMht To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Extract the HTML and embedded objects:
    Move "C:/AAWorkarea/mhtTesting/" To sUnpackDir
    Move "lodge.html" To sHtmlFilename
    Move "objects" To sPartsSubdir

    // 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.
    Get ComUnpackMHTString Of hoMht sMhtDoc sUnpackDir sHtmlFilename sPartsSubdir To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMht To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Unpacked!"
    End



End_Procedure