mht转换html delphi,delphi – 创建*. Mht文件(网络档案)

使用以下函数表示从本地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;

finally

// CoUnInitialize;

Stream:=nil;

oConfig:=nil;

oMSG:=nil;

end;

FileName – html的完整路径.

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

知道问题是什么吗？

mht转换html delphi,delphi – 创建*. Mht文件(网络档案)相关推荐

java mht 转换 html_Word单网页mht文件，汉字被html转义解决办法
做项目要生成Word文档时,一般都是先用Word把里面的内容写好,然后另存为mht文件,得到一个网页文件,这样程序就可以自动替换网页中得文件,然后让大家下载. 下载这里就不说了,很简单,如下处理一下就 ...
Delphi插件创建、调试与使用应用程序扩展
Delphi插件创建.调试与使用应用程序扩展翻译 : MiracleZ 有没有使用过Adobe Photoshop?如果用过,你就会对插件的概念比较熟悉.对外行人来说,插件仅仅是从外部提供给应用 ...
delphi dll创建及调用
第一章 DLL简单介绍由于在目前的学习工作中,需要用到DLL文件,就学习了下,在这里作个总结. 首先装简单介绍下DLL: 1,减小可执行文件的大小 DLL技术的产生有很大一部分原因是为了减小可执行文 ...
delphi编程创建桌面快捷方式
delphi编程创建桌面快捷方式 uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; procedure TForm1.N2Click(Sender: TOb ...
delphi 同盘移动文件所用时间测试(文件大小约6,083,545,088 字节)
delphi 同盘移动文件所用时间测试(文件大小约6,083,545,088 字节) 由于想做个 "delphi桌面图标清理备份与恢复" 所以有必要测试一下各种方法对文件移动占用时 ...
delphi读取服务器txt文件,在Delphi中读写TXT文件
在Delphi中读写TXT文件 Procedure NewTxt(FileName:String); Var F : Textfile; Begin if fileExists(FileName) t ...
Delphi从Internet下载文件
Delphi从Internet下载文件今天在做拍卖系统的时候,因考虑到网络状况问题,需要将拍品所有信息下载到本机,包括拍品图片,因此需要实现从Internet下载文件的功能. 下面是代码 ...
一键清除Delphi中无用的文件
delphi确实好用,但它生成的各种文件,有时对我们来说基本没用,随着我们做的项目越来越多,其中无用的文件有时能占到三分之一.今晚写了个小工具,可以递归清理 delphi文件夹下无用的文件. 代码如下 ...
delphi android路径 TPath 文件路径，文件管理
获取Android相关文档路径 delphi 新路径.文件功能 IOUtils单元,文件路径,文件管理 http://docwiki.embarcadero.com/RADStudio/Berlin/ ...

mht转换html delphi,delphi – 创建*. Mht文件(网络档案)

mht转换html delphi,delphi – 创建*. Mht文件(网络档案)相关推荐

最新文章

热门文章