关于WebBrowser文档保存的问题

[zy61]

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

[zy61]

有钱的捧个钱场，没钱的捧个人场，谢谢大家

[luo521]

保存TWebBrowse中的网页为HTML文件，以及读取WebBrowse的HTML源代码：
uses

ActiveX;

function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;

var

ps: IPersistStreamInit;

fs: TFileStream;

sa: IStream;

begin

ps := WebBrowser.Document as IPersistStreamInit;

fs := TFileStream.Create(FileName, fmCreate);

try

sa := TStreamAdapter.Create(fs, soReference) as IStream;

Result := Succeeded(ps.Save(sa, True));

finally

fs.Free;

end;

end;

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;

var

ps: IPersistStreamInit;

ss: TStringStream;

sa: IStream;

s: string;

begin

ps := WebBrowser.Document as IPersistStreamInit;

s := '';

ss := TStringStream.Create(s);

try

sa := TStreamAdapter.Create(ss, soReference) as IStream;

Result := Succeeded(ps.Save(sa, True));

if Result then ACode.Add(ss.Datastring);

finally

ss.Free;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

WB_SaveHTMLCode(Webbrowser1, 'c:.txt');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

WB_GetHTMLCode(Webbrowser1, Memo1.Lines);

end;

　

[zy61]

to luo521

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

[zy61]

各位大爷行行好，可怜可怜我吧，

[chatop]

你所谓的动态指什么?

[bcrun]

用DOM中body对象的innerHtml

[zy61]

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

[zy61]

up

[zy61]

up