首页 > 代码库 > delphi 保存网页MHT

delphi 保存网页MHT

2024-07-14 17:56:11   225人阅读

 

delphi 保存网页MHT

<style></style><style></style><script id="wiz_todo_script_id" charset="utf-8" type="text/javascript" src="file:///D:\Program Files\Wiz\WizTools\htmleditor\todo.js"></script><script id="wiz_img_resize_script_id" charset="utf-8" type="text/javascript" src="file://D:\Program Files\Wiz\WizTools\htmleditor\dragresize.js"></script><style></style>
 
uses ADODB_TLB, CDO_TLB, ComObj,MSHTML;
{$R *.dfm}
{能把网页如 WWW.QQ.COM保存为一个单文件 .MHT
但不能把一个 A.HTM 保存为一个单文件 .MHT
} 
procedure WB_SaveAs_MHT(WB: TWebBrowser; FileName: TFileName);
var
  Msg: IMessage;
  Conf: IConfiguration;
  Stream: _Stream;
  URL: Widestring;
begin
 
  if not Assigned(WB.Document) then
    Exit;
  URL := WB.LocationURL;
 
  Msg := CoMessage.Create;
  Conf := CoConfiguration.Create;
  try
    Msg.Configuration := Conf;
    Msg.CreateMHTMLBody(URL, cdoSuppressNone, ‘‘, ‘‘);
    Stream := Msg.GetStream;
    Stream.SaveToFile(FileName, adSaveCreateOverWrite);
  finally
    Msg := nil;
    Conf := nil;
    Stream := nil;
  end;
end; (* WB_SaveAs_MHT *)
procedure TForm1.FormCreate(Sender: TObject);
var
  f: string;
begin
  f := ExtractFilePath(Application.ExeName) + ‘WebDoc.htm‘;
  WebBrowser1.Navigate(‘file:///C:\Users\Admin\Desktop\新建文件夹\WebDoc.htm‘);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  WB_SaveAs_MHT(WebBrowser1,‘C:\Users\Admin\Desktop\11.mht‘);
end;
 
 
ADODB_TLB.pas
 
CDO_TLB.pas
 
 
 


联系
我们