怎麼將網頁存成*.mht |
|
尚未結案
|
|
xuzhenhu
一般會員   發表：4 回覆：3 積分：1 註冊：2003-04-05 發送簡訊給我 |
我在Delphi K.Top上看到在“請問使用TWebBrowser瀏覽網頁，怎麼將網頁存成*.mht ”上的答案：
Saving Full Internet Explorer pages as MHT...
This is a Delphi conversion of the routine contributed by Onega
found at http://codeguru.earthweb.com/ieprogram/SaveWholePage.html
MrBaseball34
//***********************************************************************
// If you don't have these typelibs, import them.
//***********************************************************************
uses Winndows, ..., ADODB_TLB, CDO_TLB;
//***********************************************************************
// SaveWholePage -
// Procedure to save entire web page as MHT file.
//
// Parameters:
// AURL - URL for file to be saved
// AFileName - MHT FileName you want web page saves.
// AView - Allows you to view the MHT in TWebBrowser
// AViewer - WebBrowser control to view the page in.
//
//***********************************************************************
procedure SaveWholePage
( AURL: String
; AFileName: TFileName
; AView: Boolean
; AViewer: TWebBrowser
);
var
LMsg: IMessage;
LConf: IConfiguration;
LFlds: Fields; //這里出現"Undeclared identifier:'Fields'
LStrm: _Stream; //這里出現"Undeclared identifier:'_Stream'
begin
LMsg := CoMessage.Create;
LConf := CoConfiguration.Create;
try
LMsg.Configuration := LConf;
LMsg.CreateMHTMLBody(AURL, cdoSuppressAll, '', '');
LStrm := LMsg.GetStream;
LStrm.SaveToFile(AFileName, adSaveCreateOverWrite);
finally
LMsg := nil;
LConf := nil;
LStrm := nil;
if AView then
AViewer.Navigate(AFileName);
end;
end;
---
Everything I say is a lie. @>---
我在自學Delphi, 不知如何處理，請教教我。謝謝！
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
xuzhenhu
一般會員 發表：4 回覆：3 積分：1 註冊：2003-04-05 發送簡訊給我 |
|
|
qoo1234
版主 發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
AURL - URL for file to be saved<---只針對下載的網頁做儲存 另外該程式有一部份參數修改一下..怪怪
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
Ktop_Robot
站務副站長 發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2004-06-10 12:52:13
IP:220.185.xxx.xxx 未訂閱
系統時間：2024-04-29 3:41:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |