線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2079
推到 Plurk!
推到 Facebook!

請問使用TWebBrowser瀏覽網頁,怎麼將網頁存成*.mht ?

尚未結案
maped
一般會員


發表:13
回覆:19
積分:6
註冊:2008-10-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-06-10 17:21:15 IP:210.243.xxx.xxx 訂閱
Dear All,
我有找到一篇文章關於標題的,但是它是用Delphi 語法寫的,
https://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=51600

不曉得哪位仁兄可以改寫成BCB的語法嗎?或者有相關的語法可以提供嗎?
謝謝大家。

GGL
資深會員


發表:104
回覆:600
積分:335
註冊:2006-11-05

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-06-11 17:30:34 IP:76.245.xxx.xxx 未訂閱
我在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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-06-11 17:56:08 IP:210.243.xxx.xxx 訂閱
感謝 GGL 的回答,

那篇我有實驗過,但是有個問題是如果是本機所產生的網頁的話,
圖片路徑依然是在本機上,
譬如說: c:\test\1.jpg 的話,路徑沒有改變成MHT裡的路徑,
這樣只要我把資料夾改名稱的話,就無法連到照片了。

變成我要想辦法把連結路徑的位址改為包在MHT裡的圖檔位址才對。
GGL
資深會員


發表:104
回覆:600
積分:335
註冊:2006-11-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-06-12 04:41:28 IP:76.245.xxx.xxx 未訂閱
原來是這樣,難怪我在google時有看到說圖片沒有存進去問題
系統時間:2024-03-29 21:38:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!