怎样让webbrowser读取流文件？

Question

你是要将网页从流中读到webbrowse吗？

Answer 1

转贴的，没试过。
----------------------------------------------------------function SaveToStream(AStream: TStream): HRESULT;
var
  IpStream: IPersistStreamInit;
begin
  with browser1 do
  begin
  while ReadyState <> READYSTATE_COMPLETE do
    Forms.Application.ProcessMessages;
  if Assigned(Document) then
  begin
    IpStream := Document as IPersistStreamInit;
    Result := IpStream.save(TStreamAdapter.Create(AStream), TRUE);
  end else Result := S_FALSE;
  end;
end;function Loadfromstream(AStream:TStream):hresult;
begin
  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;
end;