(Tcl) Unpack MHT to Files
Demonstrates how to unpack a .mhtml to files. Unpacks the HTML and to a directory, and image files to a sub-directory located under the directory where the HTML file is unpacked. The image links in the HTML are updated to point to the image files.
load ./chilkat.dll
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set mht [new_CkMht]
# This should be an absolute or relative path to the MHT file.
# It is the MHT to be unpacked.
set mhtPath "qa_data/mht/test.mht"
set unpackDir "C:/AAWorkarea/mht_unpack"
set htmlFilename "test.html"
set partsSubDir "images"
# Unpacking will create the HTML file C:/AAWorkarea/mht_unpack/test.html
# The image files are unpacked to C:/AAWorkarea/mht_unpack/images
# The unpackDir and partsSubDir are automatically created if needed.
set success [CkMht_UnpackMHT $mht $mhtPath $unpackDir $htmlFilename $partsSubDir]
if {$success == 0} then {
puts [CkMht_lastErrorText $mht]
puts "Failed."
} else {
puts "Success."
}
delete_CkMht $mht
|
