webBroswer 保存html,保存webbrowser中的HTML内容

利用IPersist接口可以实现保存HTML到文件，在VB和Delphi下的实现是这样的：

VB:

Dim oPF As IPersistFile

Set oPF = WebBrowser1.Document

oPF.Save "TheFileNameHere.htm", FalseDelphi:

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

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有