Delphi DLL

Download Web Page to MHT with w/ Disk Cache

See more MHT / HTML Email Examples

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
mht: HCkMht;

begin
success := False;

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

mht := CkMht_Create();

// Use a single directory to hold cached files.
// (Make sure it is a directory your app has permission to create files.)
CkMht_putNumCacheLevels(mht,0);
CkMht_AddCacheRoot(mht,'/Users/chilkat/temp/mhtCache/');

// Tell the MHT component to save files to cache,
// and to retrieve from cache if possible:
CkMht_putFetchFromCache(mht,True);
CkMht_putUpdateCache(mht,True);

// 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 := CkMht_GetAndSaveMHT(mht,'http://www.intel.com/','intel.mht');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMht__lastErrorText(mht));
  end
else
  begin
    Memo1.Lines.Add('MHT Created!');
  end;

CkMht_Dispose(mht);

end;