Delphi WebBrowser1 保存文档为 .mht

本文整理自网络，侵删。

 
uses CDO_TLB, ADODB_TLB;
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, cdoSuppressAll, '', '') ;
     Stream := Msg.GetStream;
     Stream.SaveToFile(FileName, adSaveCreateOverWrite) ;
   finally
     Msg := nil;
     Conf := nil;
     Stream := nil;
   end;
end; (* WB_SaveAs_MHT *) 

Sample usage:

//first navigate
WebBrowser1.Navigate('http://www.delphitop.com') ;

//then save
WB_SaveAs_MHT(WebBrowser1,'c:\WebBrowser1.mht') ;
 

相关阅读 >>

Delphi 中 image 控件加载bmp、jpg、gif、png等图片的办法

Delphi 自动填表代码

Delphi webbrowser1 保存文档为 .html

Delphi 利用unigui中的tunipagecontrol实现多页面

Delphi http json 验证token

Delphi 多桌面切换

Delphi 2009 之 tballoonhint

Delphi中自适应窗体的实现

Delphi 利用createservice写与桌面交互的win32服务

Delphi 把一个ico转换为bmp

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser1 保存文档为 .mht