请教高手：如何将TWebBrowser中浏览的网页连同图文件保存？象IE中的另存一样。

[天剑68]

如何将TWebBrowser中浏览的网页连同图文件保存？象IE中的另存一样。

[klbt]

学习，帮你顶。

[pankun]

保存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;

　

from 猛料.

[pankun]

保存TWebBrowser到文件
procedure 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;

　

[天剑68]

存HTML代码是没有问题了，可是网页中包含的图像文件怎么取得呢？

[pankun]

网页中显示的图像会被保存在Temporary Internet Files文件中.你可以编程COPY出来.
HTML代码中也有图像的地址,你也可以编程下载下来.

[天剑68]

你说得没错，我一直想知道只通过TWEBBROWSER能不能解决这些问题，看来还是不好实现，谢谢你的问答。

[天剑68]

编程下载肯定没问题，但如果IE中设置了代理，我如何获得HTTP代理的设置呢？

[pankun]

代理设置放在注册表中的啊,具体什么项你查查书吧:)