How to save a web page as HTML or MHT
来源:互联网 发布:阿衰online漫画软件 编辑:程序博客网 时间:2024/04/27 20:28
When working with Delphi, the TWebBrowser component allows you to create a customized Web browsing application or to add Internet, file and network browsing, document viewing, and data downloading capabilities to your applications.
File ... Save As; or how to save a web page from TWebBrowser
When using Internet Explorer, you are allowed you to view the source HTML code of a page and to save that page as a file on your local drive. If you are viewing a page that you wish to keep, go to the File/Save As ... menu item. In the dialog box that opens, you have several file types offered. Saving the page as a different filetype will affect how the page is saved...
The TWebBrowser component (located on the "Internet" page of the Component Palette) provides access to the Web browser functionality from your Delphi applications. In general, you'll want to enable saving of a web page displayed inside a WebBrowser as a HTML file to a disk.
Saving a web page as a raw HTML
If you only want to save a web page as a raw HTML you would select "Web Page, HTML only (*.htm, *.html)". It will simply save the current page's source HTML to your drive intact. This action will NOT save the graphics from the page or any other files used within the page, which means that if you loaded the file back from the local disk, you would see broken image links.Here's how to save a web page as raw HTML using Delphi code:
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 *)
Usage sample:
//first navigate WebBrowser1.Navigate('http://delphi.about.com'); //then save WB_SaveAs_HTML(WebBrowser1,'c:/WebBrowser1.html');
Note 1: the IPersistStreamInit and IStream interfaces are declared inside the ActiveX unit.
Note 2: the web page is saved as a raw html to the WebBrowser1.html file on the root folder of the C drive.
MHT : Web archive - single file
When you save a Web page as "Web archive, single file (*.mht)" the web document gets saved in the Multipurpose Internet Mail Extension HTML (MHTML) format with a .mht file extension. All relative links in the Web page are remapped and the embedded content is included in the .mht file, rather than being saved in a separate folder (as the case is with "Web Page, complete (*.htm, *.html)").MHTML enables you to send and receive Web pages and other HTML documents using e-mail programs such as Microsoft Outlook, and Microsoft Outlook Express; or even your custom Delphi email sending solutions. MHTML enables you to embed images directly into the body of your e-mail messages rather than attaching them to the message.
Here's how to save a web page as a single file (mht format) using Delphi code:
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 *)
Sample usage:
//first navigate WebBrowser1.Navigate('http://delphi.about.com'); //then save WB_SaveAs_MHT(WebBrowser1,'c:/WebBrowser1.mht');
Note 1: The _Stream class is defined in ADODB_TLB unit that you probably already have created. The IMessage and IConfiguration interfaces code from cdosys.dll library. CDO stands for Collaboration Data Objects - object libraries designed to enable SMTP Messaging.
The CDO_TLB is an auto generated unit by Delphi. To create it, from the main menu select "Import Type Library", select "C:/WINDOWS/system32/cdosys.dll" then click the "Create unit" button.
Note that you could rewrite the WB_SaveAs_MHT procedure to accept an URL string (not TWebBrowser) to be able to save a web page directly - no need to use the WebBrowser component. The URL from WebBrowser is retrieved using the WB.LocationURL property.
- How to save a web page as HTML or MHT
- How to save content/text of a web page by forcing save-as option
- Powerpoint 2010 save as html / mht
- How to save a NSImage as a new file
- Show how to print a table in a html page
- How to Save a Screenshot
- How to Save a Screenshot
- How to get a web page content type
- How to freeze a dynamic aspx page into a static html page (on the server).
- How to freeze a dynamic aspx page into a static html page (on the server).
- How do I download or save a YouTube video to my computer?
- How To Convert HTML Page To Image
- How to click a link / button implemented as a div or span element with WebDriver
- How To Print a Form That Is Too Large for the Screen or Page
- Spring MVC – How To Include JS Or CSS Files In A JSP Page
- Spring MVC – How to include JS or CSS files in a JSP page
- Spring MVC – How to include JS or CSS files in a JSP page
- Save UIImage Object as a PNG or JPEG File
- Tomcat 5.0.28安装
- Oracle8i存储过程返回记录集
- Sql case
- 欧阳小奇
- 整理有关Ajax的文章
- How to save a web page as HTML or MHT
- 试析RUP以用例驱动的需求管理
- 续写
- 角色设计的方法
- 进行有效编辑的七种习惯
- BSD下的mount
- 希望引擎不要半途而废
- C++中的虚函数(virtual function)
- 考研结束了的那几天