使用TWebBrowser组件保存网页为html和mht文件收藏

使用TWebBrowser组件保存网页为html和mht文件收藏
一、保存为HTML文件

uses ActiveX;
...
procedure WB_SaveAs_HTML(WB : TWebBrowser; const FileName : string) ;
var
PersistStream: IPersistStreamInit;
Stream: IStream;
FileStream: TFileStream;
begin
if not Assigned(WB.Document) then
begin
ShowMessage('Document not loaded!') ;
Exit;
end;

PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate) ;
try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    if Failed(PersistStream.Save(Stream, True)) then ShowMessage('SaveAs HTML fail!') ;
finally
    FileStream.Free;
end;
end; (* WB_SaveAs_HTML *)

使用方法：

WebBrowser1.Navigate('http://www.uufax.com') ;

//then save
WB_SaveAs_HTML(WebBrowser1,'c:/WebBrowser1.html') ;

二、另存为MHT单一文件

uses CDO_TLB, ADODB_TLB;
...
procedure WB_SaveAs_MHT(WB: TWebBrowser; FileName: TFileName) ;
var
Msg: IMessage;
Conf: IConfiguration;
Stream: _Stream;
URL : widestring;
begin
if not Assigned(WB.Document) then Exit;

URL := WB.LocationURL;

Msg := CoMessage.Create;
Conf := CoConfiguration.Create;
try
    Msg.Configuration := Conf;
    Msg.CreateMHTMLBody(URL, cdoSuppressAll, '', '') ;
    Stream := Msg.GetStream;
    Stream.SaveToFile(FileName, adSaveCreateOverWrite) ;
finally
    Msg := nil;
    Conf := nil;
    Stream := nil;
end;
end; (* WB_SaveAs_MHT *)

使用方法：

//first navigate
WebBrowser1.Navigate('http://www.uufax.com') ;

//then save
WB_SaveAs_MHT(WebBrowser1,'c:/WebBrowser1.mht') ;

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/sunstone/archive/2009/11/09/4788743.aspx

使用TWebBrowser组件保存网页为html和mht文件收藏相关推荐

delphi TWebBrowser组件使用详解
delphi TWebBrowser组件使用详解该组件是一个浏览器组件,可以显示一个指定地址的网页.设置网页打开时的主页以及对网页进行相关的操作,同时也可以对HTML文件进行剪切.复制.粘贴.删除等 ...
使用Chrome保存网页为mht文件
一直在使用chrome浏览器,但由于需要将部分网页保存为mht文件,却发现chrome默认不支持.chrome浏览器默认支持2种:单独的html文件,全部: 万能的chrome怎么可能保存不了mht? ...
mht文件无法打开的解决办法
对于喜欢上网的人士来说,经常会将自己看到的好的文章保存下来,以便日后再次翻阅,保存方法有两种:一种是通过浏览器的收藏夹进行收藏,这种方式适合于能够一直上网的电脑:另一种是通过浏览器"文件-& ...
mht文件转为html文件（javax.mail方式）
mht文件转为html文件由于mht文件是IE特有的格式,只能IE浏览器打开.用别的浏览器,如chrome打开该类型文件会产生乱码,但是我们大部分使用的还是chrome,因此想要打开该类型的文件,其 ...
java mht 转html_【JAVA】mht文件转html
网上搜索获得mht文件转html,稍作了修改,即可使用,在此做个笔记. public class Mht2HtmlUtil { public static void main(String[] arg ...
用 Microsoft.mshtml.dll 和 WebClient 自己实现网页保存为 MHT 文件
相信大家经常用IE保存网页功能保存有价值的网页,但是IE的网页保存功能做的不是太好,经常会有些页面保存失败.我也深受其烦,好在本人是程序员,程序员最大的好处是会自己编软件.正好我自己开发了个多页签浏览 ...
mht文件转为html文件（mime4j方式）
mht文件转为html文件由于之前提供的方式一,可能在工程的众多依赖中,存在jar包冲突,如mail.jar和javaee5.jar都存在javax.mail的类路径,导致在强制类型转换会出现异常, ...
IE浏览器打开.mht文件乱码
前一段我也发现了这个问题但是不影响我的日常使用也就没有搞清楚到底是什么原因今天我打算将Moto L2中的联系人信息和电脑中的同步一下在MPT工具中的同步页面也是乱码看来真要搞个水落石出了,百 ...
C#代码实现把网页文件保存为mht文件
MHT叫"web单一文件".顾名思义,就是把网页中包含得图片,CSS文件以及HTML文件全部放到一个MHT文件里面.而且浏览器可以直接读取得. 由于项目需要,需实现把指定的网页文件 ...

使用TWebBrowser组件保存网页为html和mht文件收藏

使用TWebBrowser组件保存网页为html和mht文件收藏相关推荐

最新文章

热门文章

使用TWebBrowser组件保存网页为html和mht文件 收藏

使用TWebBrowser组件保存网页为html和mht文件 收藏相关推荐

最新文章

热门文章

使用TWebBrowser组件保存网页为html和mht文件收藏

使用TWebBrowser组件保存网页为html和mht文件收藏相关推荐