Save Web Page to String Variable (.mht / MIME format)

Downloads a web page into a string variable containing MHT. MHT is a web archive with all images and style sheets embedded. It's a MIME-formatted text document. When saved with the .mht extension, Internet Explorer can open and display the page.

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;
mhtStr: String;

begin
mht := TChilkatMht.Create(Self);

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

mhtStr := mht.GetMHT('http://www.google.com/');
if (mhtStr = NULL ) then
  begin
    mht.SaveLastError('mhtLog.txt');
    Memo1.Lines.Add('Failed to download web page to MHT');
  end
else
  begin
    Memo1.Lines.Add(mhtStr);
  end;
end;