tstream类型怎么转换为 istream!!!急.

Question

如题可以给100分

Answer 1

 //Delphi自己实现了
 unit AxCtrls
 ...
 type
  TOleStream = class(TStream)
  private
    FStream: IStream;
  protected
    function GetIStream: IStream;
  public
    constructor Create(const Stream: IStream);
    function Read(var Buffer; Count: Longint): Longint; override;
    function Write(const Buffer; Count: Longint): Longint; override;
    function Seek(Offset: Longint; Origin: Word): Longint; override;
  end;

Answer 2

TStream====>IStream   用TStreamAdapter
IStream====>TStream   用TOleStream