用户名:  密码:  验证码: 验证码  注册  找回
RSS
无双网
 2018年10月17日 星期三  您现在位于: 首页 → 技术文栏 → 保存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


 (本文已被浏览 15820 次)
 发布人:asp126
 → 推荐给我的好友
上篇文章:用vb6的ActiveX控件实现异步下载
下篇文章:MSFlexGrid使用技巧一例
发表评论
  → 评论内容 (点击查看)   共0条评论,每页显示5条评论   浏览所有评论
(没有相关评论)
  → 发表我的评论 (点击发表)
热门文章
 全部DLL下载
 添加红月装备的详细教程 (包括装备 武...
 保存webbrowser中的HTML内...
 MSFlexGrid使用技巧一例
 用vb6的ActiveX控件实现异步下...
 PC经典RPG《仙剑奇侠传Ⅰ》for PP...
 用VB6.0设计简易赛车游戏
 能否判断动态数组有没有被分配过
 利用压缩网页来提升网站浏览速度
 删SQL数据!还原新服务器!
最新文章
 [ODBC SQL Server Driv...
 评论:115网盘的何去何从
 我科学家实现百公里量级自由空间量子隐形...
 中国智能手机出货量占全球27%居世界之...
 Gartner:2012 第二季度西欧 P...
 [多图]华山论剑:当今在世的智商最高的...
 三星获出租车服务系统专利 可快速查看驾...
 [多图]15项可能延续到2030年的科...
 分析称苹果三星专利大战输赢已成定论
 Google终获云操作系统专利
 网站留言· 友情链接·与我在线·网站地图联系我们·管理·TOP 
 陕ICP备09004157号  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.000s, 8 queries, 37 Cache,0 Online