如何把一个网页存为一个单独的mht文件

　2008-03-08 12:46:09　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姈椤愮厧鈽夊Ο閿嬬€婚梺褰掑亰閸撴稑鈻斿鑸碘拺闁告稑饪村▓鏃€绻涚仦鍌氬闁崇粯鎹囬獮瀣攽閹邦剚顔傛俊鐐€栧濠氬储瑜忛幉鎾晸閿燂拷

核心提示：#include "SHDocVw_OCX.h"#include "cdoex.h"#include "msado15.h"using namespace CDO;// 本文是ccrun(老妖)根据相关资料改的,在BCB 6.0 下成功编译并测试通过.// 假

#include "SHDocVw_OCX.h"
#include "cdoex.h"
#include "msado15.h"
using namespace CDO;
// 本文是ccrun(老妖)根据相关资料改的,在BCB 6.0 下成功编译并测试通过.
// 假如有不能正常运行的,可能需要在机器上安装有Outlook.
void __fastcall SaveWholePage(BSTR bstrUrl, BSTR bstrFileName)
{
　　CoInitialize(NULL);
　　IMessage *pMsg;
　　IConfiguration *pConfig;
　　HRESULT hr = CoCreateInstance(__uuidof(Message), NULL,
　　　　　　CLSCTX_INPROC_SERVER, __uuidof(IMessage), (void**)&pMsg);
　　hr = CoCreateInstance(
　　　 __uuidof(Configuration),
　　　 NULL,
　　　 CLSCTX_INPROC_SERVER,
　　　 __uuidof(IConfiguration),
　　　 (void**)&pConfig);

　　pMsg->put_Configuration(pConfig);
　　try<br>
　　{
　　　　pMsg->CreateMHtmlBody(
　　　　　　bstrUrl,
　　　　　　cdoSuppressNone,
　　　　　　WideString(""),
　　　　　　WideString(""));
　　}
　　catch(...)
　　{
　　　　ShowMessage("有错误发生!");
　　　　return;
　　}
　　ADOStream *pStream;
　　pMsg->GetStream(&pStream);
　　pStream->SaveToFile(bstrFileName, adSaveCreateOverWrite);
　　pMsg->Release();
　　pStream->Release();
　　CoUninitialize();
}
// 调用举例:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　SaveWholePage(WideString("http://www.ccrun.com"),

　　　　　　WideString("C:\\123.mht"));
}