Dim message, stream
Set message = CreateObject("CDO.Message")
message.MimeFormatted = True
'0 - cdoSuppressNone
message.CreateMHTMLBody "http://www.microsoft.com",0, "" ,""
Set stream = message.GetStream()
'2 - adSaveCreateOverWrite
stream.SaveToFile "C:\Test.mht",2
Set message = Nothing
stream.Close
Set stream = Nothing
小trick.. 即使有了ADO.Net，ADO还是很有用的……
打印 | 张贴于 2005-04-08 23:26:00 | Tag:暂无标签
留言反馈
请回复：
pmws-wl@163.com
急切需知！谢谢！
这样就可以保存到数据库而不用单个文件。似乎更实用些。
WinWAX Express最大的特点是它可以非常直觉、方便的将若干相关网页（如一篇文章的多个页面）保存为一个MHT文件以供日后离线浏览。在保存MHT过程中的三个难题是：如果把页面上的动态内容完整保存下来（比如hover images、FLASH）、如何构造多页MHTML、如何提供最佳的用户体验。
由于个人精力关系，已经好久没有对这个软件更新了（虽然现在软件还卖的不错），感兴趣的话，可以交给你来进一步完善。：）
WinWAX Express也是用Delphi写成的，你可以来我的blog上面与我联系！：）
to : JGTM'2005 [MVP] 我最近也在研究这个，不过我的开发工具是Delphi，有兴趣的话我们切磋切磋？
如果对于硬盘上的文件，要用file://格式。如果还有错误，你把页面的URL贴出来。
ADO 没起虾米做用~~
haha