程式師世界 >> 編程語言 >> C語言 >> VC >> vc教程 >> 如何把一個網頁存為一個單獨的mht文件

如何把一個網頁存為一個單獨的mht文件

編輯：vc教程

#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"));
}