还在加班中＋急啊：请经验专家:如何将webBrowser内容保存成文件？

[hnAngle]

请经验专家:如何将webBrowser内容保存？

[飞天揽月]

procedure TForm1.SaveHTMLSourceToFile(const FileName: string;
WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
begin
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);
if FAILED(SaveResult) then
MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);
finally
{ we are passing soReference in TStreamAdapter constructor,
it is our responsibility to destroy the TFileStream object. }
FileStream.Free;
end;
end;

pocedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);
end;

[老之]

uses MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
doc3 : IHTMLDocument3;
sl : TStringList;
begin
doc3:=WebBrowser1.Document as IHTMLDocument3;
sl := TStringList.Create;
sl.Text := doc3.documentElement.outerText; // 保存内容
// sl.Text := doc3.documentElement.outerHTML; 保存源文件
sl.SaveToFile('c:\1.txt');
sl.Free;
end;

[OYGX]

GZ