| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3269991
建立时间:2005年6月6日 |
| |
|
 [delpih编程]保存webbrowser中的HTML内容，不出现另存对话框
软件技术
吕向阳 发表于 2009/6/19 21:59:31 |
| 利用IPersist接口可以实现保存HTML到文件，在VB和Delphi下的实现是这样的： VB: Dim oPF As IPersistFile Set oPF = WebBrowser1.Document oPF.Save "TheFileNameHere.htm", False Delphi: uses MSHT利用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; |
|
|