請問使用TWebBrowser瀏覽網頁，怎麼將網頁存成*.mht ? |
|
尚未結案
|
|
maped
一般會員   發表：13 回覆：19 積分：6 註冊：2008-10-06 發送簡訊給我 |
Dear All,
我有找到一篇文章關於標題的，但是它是用Delphi 語法寫的， https://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=51600 不曉得哪位仁兄可以改寫成BCB的語法嗎？或者有相關的語法可以提供嗎？ 謝謝大家。 |
|
GGL
資深會員   發表：104 回覆：600 積分：335 註冊：2006-11-05 發送簡訊給我 |
我在google搜尋到這篇
http://tech.ddvip.com/2006-03/11437499401328.html 但是我在2007沒辦法跑，你可以試試看 [code cpp] #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 { 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")); } [/code] |
|
maped
一般會員 發表：13 回覆：19 積分：6 註冊：2008-10-06 發送簡訊給我 |
|
|
GGL
資深會員 發表：104 回覆：600 積分：335 註冊：2006-11-05 發送簡訊給我 |
發表時間：2009-06-10 17:21:15
IP:210.243.xxx.xxx 訂閱
系統時間：2024-11-25 20:33:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |