保存页面为MHT的代码

最新推荐文章于 2021-05-09 19:43:19 发布

imlangzi

最新推荐文章于 2021-05-09 19:43:19 发布

阅读量1.8k

点赞数

分类专栏： NetSpider 文章标签： webbrowser stream library url import object

本文链接：https://blog.csdn.net/walkingboy/article/details/265861

版权

NetSpider 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

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://delphi.about.com');
  
  //then save
  WB_SaveAs_MHT(WebBrowser1,'c:/WebBrowser1.mht');

Note 1: The _Stream class is defined in ADODB_TLB unit that you probably already have created. The IMessage and IConfiguration interfaces code from cdosys.dll library. CDO stands for Collaboration Data Objects - object libraries designed to enable SMTP Messaging.
The CDO_TLB is an auto generated unit by Delphi. To create it, from the main menu select "Import Type Library", select "C:/WINDOWS/system32/cdosys.dll" then click the "Create unit" button.

摘自：http://blog.csdn.net/TechnoFantasy/archive/2005/01/21/262514.aspx