在DELPHI6中TWEBBrower中加载流，5中方法如下？(20分)

with browser1 do
begin
if not Assigned(Document) then
begin
navigate2('about:blank',0,0,0,0);
while readystate <> READYSTATE_COMPLETE do Forms.Application.ProcessMessages;
end;
AStream.seek(0, 0);
Result := (Document as IPersistStreamInit).Load(TStreamadapter.Create(AStream));
end;

关注

5中使用IPersistStreamInit端口，6中呢！
各位大侠多帮忙！！

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1599262

那个不行！
每人会吗？？？

有问题:
说 IPersistStreamInit 没有定义 ?????????????

不好意思看错了.
原来在d5中可以

怎么就没有人说句话
另外问一下 有关 webbrowser 的帮助到哪里找

加在ActiveX单元
IPersistStreamInit好像定义在其中的。

我在7中都用过这种方法。

//------------------------------------------------------------------------------
// 作者：司马华鹏
procedure TfrmMain.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', mb_iconerror);
finally
FileStream.Free;
end;
end;

接受答案了.