(Delphi ActiveX) 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.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

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

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

mht := TChilkatMht.Create(Self);

// Use a single directory to hold cached files.
// (Make sure it is a directory your app has permission to create files.)
mht.NumCacheLevels := 0;
mht.AddCacheRoot('/Users/chilkat/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');
if (success <> 1) then
  begin
    Memo1.Lines.Add(mht.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('MHT Created!');
  end;
end;