保存webbrowser中的HTML内容

最新推荐文章于 2021-06-09 20:47:16 发布

iteye_3619

最新推荐文章于 2021-06-09 20:47:16 发布

阅读量534

点赞数

文章标签： HTML VB VB.NET Delphi ASP.net

博客介绍了利用IPersist接口保存HTML到文件的方法，给出了在VB和Delphi下的实现代码，如VB中使用IPersistFile接口保存文件，还提到VB实现需引用ole_lib，可从指定链接下载。

保存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;