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

上一篇： VB基础学习:如何取得计算机名
下一篇： VB中远程数据库的访问(3) 应用举例

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有