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报警声音 beep、messagebeep 和 windows.beep

Delphi android 拨打电话

Delphi 获取与设置系统环境变量

Delphi image 等比例缩小

Delphi 中 findwindow 和 findwindowex 的语法和用法

Delphi以二进制方式读取图片并显示出来

Delphi 根据分割符只取最后的值

Delphi rs232c串行通讯接口的应用

Delphi 比较图片是否相同

Delphi 递归实现从m 个集合中 任取一个元素 生成组合

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

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