您现在的位置:首页 >> API >> API >> 内容

Delphi中实现将HTM另存为MHT文件

时间:2011/9/3 15:44:12 点击:

  核心提示:代码中引用了ADODB_TLB,CDO_TLB,可以自己从Delphi中导入TypeLib,这2个已经打包下载procedure SaveWholePage(mURL: string; mFileNa...

代码中引用了ADODB_TLB,CDO_TLB,可以自己从Delphi中导入TypeLib,这2个已经打包下载

procedure SaveWholePage(mURL: string; mFileName: TFileName);
var
  vMessage: IMessage;
  vConfiguration: IConfiguration;
  vStream: _Stream;
begin
  vMessage := CreateComObject(CLASS_Message) as IMessage;
  vConfiguration := CreateComObject(CLASS_Configuration) as IConfiguration;
  try
    vMessage.Configuration := vConfiguration;
    vMessage.CreateMHTMLBody(mURL, cdoSuppressNone,'','');
    vStream := vMessage.GetStream;
    vStream.SaveToFile(mFileName, adSaveCreateOverWrite);
  finally
    vMessage := nil;
    vConfiguration := nil;
    vStream := nil;
  end;
end;



迅雷专用高速下载

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号