Download Web Page to MHT with w/ Disk Cache

Downloads a web page into a .mht web archive. Embedded images and style sheets are loaded and/or saved to a disk cache.

Download Chilkat MHT ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMHTLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mht: TChilkatMht;
success: Integer;

begin
mht := TChilkatMht.Create(Self);

success := mht.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Mht component unlock failed');
    Exit;
  end;

//  Use a single directory to hold cached files.
mht.NumCacheLevels := 0;
mht.AddCacheRoot('c:/temp/mhtCache/');

//  Tell the MHT component to save files to cache,
//  and to retrieve from cache if possible:
mht.FetchFromCache := 1;
mht.UpdateCache := 1;

//  The 1st time this is run, the parts (image files,
//  style sheets, etc.) will be saved to the disk cache.
//  The 2nd time this is run, the parts will load from cache.
//  Note: The main content (i.e. the HTML page)
//  is not saved to cache, nor is it retrieved from cache.
//  It is only the sub-parts (embedded images, style sheets)
//  that are saved to and loaded from cache.
success := mht.GetAndSaveMHT('http://www.intel.com/','intel.mht');

Memo1.Lines.Add(mht.LastErrorText);

if (success <> 1) then
  begin
    ShowMessage('MHT Failed!');
  end
else
  begin
    ShowMessage('MHT Created!');
  end;
end;