delphi – 创建*. Mht文件(网络档案)

概述使用以下函数表示从本地html文件生成Web归档 function TLessonConstructor2.CreateMHT( const FileName : string):boolean ; var oMSG:IMessage; oConfig: IConfiguration; sFileName: string; Stream: _Stream;begin //C 使用以下函数表示从本地html文件生成Web归档

function TLessonConstructor2.CreateMHT( const filename : string):boolean ; var  oMSG:IMessage;  oConfig: IConfiguration;  sfilename: string;  Stream: _Stream;begin  //CoInitializeEx(nil,COINIT_APARTMENTTHREADED);  //CoInitialize(nil);  try    Result  := false;    sfilename := ChangefileExt(filename,'.mht');    Deletefile(PAnsiChar(sfilename));    try    oConfig := CoConfiguration.Create();    oMSG    := CoMessage.Create();    oMSG.Configuration := oConfig;    oMSG.CreateMHTMLBody(filename,CdoSuppressNone,'','');    Stream:=oMSG.GetStream;    Stream.Savetofile(sfilename,adSaveCreateOverWrite);    Stream.Cancel;    Stream.Close;    Result := True;    except      on E: Exception do      begin       Result  := false;       MessageDlg(E.Message,mtError,[mbOK],0);      end;    end;  finally  //  CoUnInitialize;    Stream:=nil;    oConfig:=nil;    oMSG:=nil;  end;end;

filename – HTML的完整路径.

执行oMSG.CreateMHTMLBody(filename,”,”)之后;只要基本过程完成,该文件就会被锁定.但是,处理后应删除此文件.

知道问题是什么吗？

解决方法 CreateMHTMLBody需要URL,因此对于本地文件,请确保以file：///开头

CreateMHTMLBody(const URL: WIDeString; Flags: CdoMHTMLFlags;                           const Username: WIDeString; const Password: WIDeString); safecall;

总结

以上是内存溢出为你收集整理的delphi – 创建*. Mht文件(网络档案)全部内容，希望文章能够帮你解决delphi – 创建*. Mht文件(网络档案)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。