如何把一个网页存为一个单独的mht文件
作者 佚名技术
来源 程序设计
浏览
发布时间 2012-06-30
|
#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")); } |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn
为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
|