(Delphi ActiveX) 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.
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;
mhtStr: WideString;
begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
mht := TChilkatMht.Create(Self);
mhtStr := mht.GetMHT('http://www.google.com/');
if (mht.LastMethodSuccess <> 1) then
begin
Memo1.Lines.Add(mht.LastErrorText);
end
else
begin
Memo1.Lines.Add(mhtStr);
end;
end;
|