Delphi DLL

Unpack MHT MIME Text into Files

Demonstrates Mht.UnpackMHTString, which extracts MHT data into its constituent parts: the HTML document and its referenced resources. The source is MHT MIME text supplied as a string.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background. Despite the method name, the source may be either literal MHT MIME text or a local MHT file path; Chilkat distinguishes the two by detecting MIME headers. The HTML is written under the chosen filename, and referenced parts are written into a sub-directory.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mht: HCkMht;
sbMht: HCkStringBuilder;
bLoaded: Boolean;

begin
success := False;

mht := CkMht_Create();

//  The file paths are relative to the application's current working directory.  Absolute paths may
//  also be used.  Supply the paths appropriate to your own environment.

//  Load the MHT MIME text into a string.
sbMht := CkStringBuilder_Create();
bLoaded := CkStringBuilder_LoadFile(sbMht,'qa_data/page.mht','utf-8');
if (bLoaded <> True) then
  begin
    Memo1.Lines.Add('Failed to load the MHT file.');
    Exit;
  end;

//  Unpack the MHT MIME text into its constituent parts.  The 1st argument may be MHT MIME text or a
//  file path; the 2nd is the unpack directory, the 3rd is the main HTML filename, and the 4th is the
//  sub-directory (relative to the unpack directory) for the referenced parts such as images and style
//  sheets.
success := CkMht_UnpackMHTString(mht,CkStringBuilder__getAsString(sbMht),'qa_output/unpacked','index.html','parts');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMht__lastErrorText(mht));
    Exit;
  end;
Memo1.Lines.Add('MHT unpacked.');

CkMht_Dispose(mht);
CkStringBuilder_Dispose(sbMht);