不管怎么样，许多VCL构件都有以流的方式工作的方法和属性。关键就是 TOLEStream 和 TStreamAdapter 的使用。

  IStream 被定义在 ActiveX 单元，TStreamAdapter 被定义在 Classes 单元，TOLEStream 则被定义在 Axctrls 单元中。

  下面的包裹类将为你提供你所需要的全部东西。（注意：不要将这些函数转化成属性，这样做可能会让你企图调用 IStream 方法，尽管它不是中读的，但是至少我这样做就遇到访问冲突的错误）

  Uses Classes, ActiveX, Axctrls;

  Type TInterfaceStream = Class ( TMemoryStream )

  Public

  Procedure LoadFromIStream(Source : IStream);

  Function GetIStream : IStream;

  end;

  Procedure TInterfaceStream.LoadFromIStream(Source : IStream);

  var

  Adapt : TOLEStream;

  Buff : Byte;

  I : Integer;

  begin

  ADapt := TOLEStream.Create(Source);

  Adapt.Position := 0;

  Self.Clear;

  Self.Position := 0;

  For I := 0 to Adapt.Size do

  begin

  Adapt.Read(Buff, 1);

  Self.Write(Buff, 1);

  end;

  Self.Position := 0;

  end;

  Function TInterfaceStream.GetIStream : IStream;

  var

  Adapt : TStreamAdapter;

  tPos : Int64;

  begin

  Adapt := TStreamAdapter.Create(Self);

  Adapt.Seek(0, 0, tPos);

  Result := Adapt as IStream;

  end;

  现在我们可以很简单地使用 IStream. 假如，你有一个 COM 对象方法需要返回一个 IStream，

  那你只需要简单地声明一个private的 TInterfaceStream 成员变量。( 这里我们估且将称它为 FStream ),

  在 initialize 时初始化它, 然后照下面的做法实现自己的方法：

  Function TSampleCOMObj.Mehtod1 : IStream

  begin

  // Here's where you load whatever actually goes into the stream

  result := FStream.GetIStream;

  end;

  将 TInterfaceStream 作为局部变量可能有些棘手。因为可能存在应用程序使用它之前它的内存就已经被释放掉的隐患。因此将它声明成一个 private 成员会更安全.

  应用程序中只需要做下面的事

  Procedure Form1.Button1OnClick(Sender : TObject);

  var

  Server : ISampleCOMObj;

  temp : IStream;

  ResultStream : TInterfaceStream;

  begin

  Server := CreateCOMObject(Class_TSampleCOMObj) as ISampleComObj;

  temp := Server.method1;

  ResultStream := TinterfaceStream.Create;

  ResultStream.Clear;

  resultStream.Position := 0;

  resultstream.LoadFromIStream(Temp);

  // do whatever it is you want with the data in the stream;

  end;