使用TWebBrowser组件保存网页为html和mht文件 收藏
来源:互联网 发布:淘宝清仓在哪里 编辑:程序博客网 时间:2024/04/30 01:56
使用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文件
- 使用TWebBrowser组件保存网页为html和mht文件 收藏
- 将网页保存为mht文件
- 用C#将html网页保存为mht格式文件
- C#代码实现把网页文件保存为mht文件
- C#代码实现把网页文件保存为mht文件
- 用 Microsoft.mshtml.dll 和 WebClient 自己实现网页保存为 MHT 文件
- 用java实现将网页保存为mht文件工具
- 保存网页的html和mht格式的玄机
- 使用java将网页保存为mht格式
- 使用java将网页保存为mht格式(转)
- 用CDO保存网页到MHT文件
- 用CDO保存网页到MHT文件
- 用VB保存网页到MHT文件
- Chrome保存mht网页文件的方法
- 存储网页为离线mht文件
- 存储网页为离线mht文件
- python3 保存一个网页为html文件
- 简单的正则表达式http://www.cainiao8.com/web/js_note/js_regular_expression.html
- 投资投机经典著作55本
- 看透人生的经典语录
- 白云深处
- 总体设计
- 使用TWebBrowser组件保存网页为html和mht文件 收藏
- vb 百度注册登录
- 淘宝登录源代码分析
- Dijkstra算法一点点感悟
- 买基金节约申购费
- ASP.Net 2.0窗体身份验证机制
- seo优化
- 纯DOS下的 TCP/IP编程
- 10个国外Ajax及Javascript实例资源网站