Delphi WebBrowser1 保存文档为 .HTML

本文整理自网络，侵删。

 
保存文档为 .HTML

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.
复制代码
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('about:blank') ;

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

相关阅读 >>

Delphi2009 使用 png 图片

Delphi xe5记录android应用程序（日志输出）

Delphi 子界判断的举例

Delphi判断文件大小

Delphi synedit1 synmemo1 显示行号

unigui js操作Delphi控件赋值

Delphi form工程创建

Delphi代码，直截注入别的进程，之后直截运行在别的进程中的代码

Delphi判断mssql数据库中表格是否存在？ 如何批量创建表格？

Delphi与汇编杂谈

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser1 保存文档为 .HTML