用戶名:  密碼:  驗證碼: 驗證碼  注冊  找回
RSS
無雙網
 2019年10月16日 星期三  您現在位于: 首頁 → 技術文欄 → 保存webbrowser中的HTML內容-網站開發(其它相...

保存webbrowser中的HTML內容

2008年04月18日  無雙網  出處:CSDN
保存webbrowser中的HTML內容

利用IPersist接口可以實現保存HTML到文件,在VB和Delphi下的實現是這樣的:

VB:

Dim oPF As IPersistFile
Set oPF = WebBrowser1.Document
oPF.Save "TheFileNameHere.htm", False

Delphi: 

uses
MSHTML,OleCtrls, SHDocVw, StdCtrls,ActiveX;
function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
s: string;
ss: TStringStream;
sa: IStream;
begin
ps := WB.document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa:= TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, Bool(True)));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;

至于VC下的實現方法,可以參考蔣晟的這篇文章:
http://www.csdn.net/develop/read_article.asp?id=18465


 (本文已被瀏覽 19619 次)
 發布人:asp126
 → 推薦給我的好友
上篇文章:用vb6的ActiveX控件實現異步下載
下篇文章:MSFlexGrid使用技巧一例
發表評論
  → 評論內容 (點擊查看)   共0條評論,每頁顯示5條評論   瀏覽所有評論
(沒有相關評論)
  → 發表我的評論 (點擊發表)
熱門文章
 保存webbrowser中的HTML內...
 用VB6.0設計簡易賽車游戲
 MSFlexGrid使用技巧一例
 游戲對照表
 Win2003+Discuz!5.5+II...
 添加紅月裝備的詳細教程 (包括裝備 武...
 全部DLL下載
 在Delphi里播放Flash
 用vb6的ActiveX控件實現異步下...
 能否判斷動態數組有沒有被分配過
最新文章
 [ODBC SQL Server Driv...
 評論:115網盤的何去何從
 我科學家實現百公里量級自由空間量子隱形...
 中國智能手機出貨量占全球27%居世界之...
 Gartner:2012 第二季度西歐 P...
 [多圖]華山論劍:當今在世的智商最高的...
 三星獲出租車服務系統專利 可快速查看駕...
 [多圖]15項可能延續到2030年的科...
 分析稱蘋果三星專利大戰輸贏已成定論
 Google終獲云操作系統專利
 網站留言· 友情鏈接·與我在線·網站地圖聯系我們·管理·TOP 
 陜ICP備14011112號  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.016s, 8 queries, 35 Cache,0 Online  
福建11选5遗漏