Delphi里如何实现生成MHT格式的文件呢?

50 | 问答知识库用户 |浏览297次
收藏|2014/05/17 22:00
如题

满意回答

2014/05/18 09:36

利用系统自带的接口来实现。
在Delphi里选择 Import Type Library 这一项,再选择C:Windowssystem32cdosys.dll这个DLL,createunit可以得到这两个文件、
CDO_TLB, ADODB_TLB

导出为MHT的方法为:
function URLPageSaveAsMHT(AURL: string; AFileName: string): Boolean;
var
  Msg: IMessage;
  Conf: IConfiguration;
  Stream: _Stream;
begin
  Result := False;
  try
    Msg := CoMessage.Create;
    Conf := CoConfiguration.Create;
    try
      Msg.Configuration := Conf;
      Msg.MimeFormatted := True;
      Msg.CreateMHTMLBody(widestring(AURL), cdoSuppressNone, '', '');
      Stream := Msg.GetStream;
      Stream.SaveToFile(AFileName, adSaveCreateOverWrite);
      Result := True;
    finally
      Msg := nil;
      Conf := nil;
      Stream := nil;
    end;
  except
    //
  end;
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...