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 为richedit设置行号

Delphi 通�^窗口句柄或窗口标题得到进程句柄

rad studio Delphi创建安卓服务creating android services

Delphi tcomport控件从串品读取数据

Delphi如何开发游戏外挂

Delphi tbitmap 位图组件

Delphi datasnap 初步入门使用总结

Delphi 按钮躲避鼠标点击

Delphi listbox自动获取列表框中的组件焦点

Delphi synedit的安装和基本使用

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

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