Save Web Page to MHT String

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('Anything for 30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(mht.LastErrorText);
    Exit;
  end;

mhtStr := mht.GetMHT('http://www.google.com/');
if (Length(mhtStr) = 0 ) then
  begin
    Memo1.Lines.Add(mht.LastErrorText);

  end
else
  begin
    Memo1.Lines.Add(mhtStr);
  end;
end;