关于WebBrowser文档保存的问题

Question

我在程序中使用了一个WebBrowser，并动态的添加了一些文字，如果想将这些动态添加的文字一起保存，应该如何做

Answer 1

保存TWebBrowse中的网页为HTML文件，以及读取WebBrowse的HTML源代码： 
usesActiveX;function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;varps: IPersistStreamInit;fs: TFileStream;sa: IStream;beginps := WebBrowser.Document as IPersistStreamInit;fs := TFileStream.Create(FileName, fmCreate);trysa := TStreamAdapter.Create(fs, soReference) as IStream;Result := Succeeded(ps.Save(sa, True));finallyfs.Free;end;end;function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;varps: IPersistStreamInit;ss: TStringStream;sa: IStream;s: string;beginps := WebBrowser.Document as IPersistStreamInit;s := '';ss := TStringStream.Create(s);trysa := TStreamAdapter.Create(ss, soReference) as IStream;Result := Succeeded(ps.Save(sa, True));if Result then ACode.Add(ss.Datastring);finallyss.Free;end;end;procedure TForm1.Button1Click(Sender: TObject);beginWB_SaveHTMLCode(Webbrowser1, 'c:.txt');end;procedure TForm1.Button2Click(Sender: TObject);beginWB_GetHTMLCode(Webbrowser1, Memo1.Lines);end;　
 
   

Answer 2

to luo521这种方法好像不能保存下我动态添加的内容

Answer 3

所谓动态是说：
用Document.createElement创建新的对象