Istream用法

procedure TForm1.Button1Click(Sender: TObject);     
var    
  memoStream,OleStream:TStream;     
  Stream : IStream;     
begin    
  image1.Picture :=nil;     
  image2.Picture :=nil;     

  //显示初始照片     
  image1.Picture.LoadFromFile('c:\logo.bmp');     
  memoStream := TmemoryStream.Create;     
  try    
  //将照片保存为TmemoryStream     
    image1.Picture.Bitmap.SaveToStream(memoStream);     
    memoStream.Position :=0;     

  //将TmemoryStream转成IStream     
    stream:=TStreamAdapter.Create(memoStream);     

  //将IStream转成TOleStream ==TmemoryStream     
    OleStream := TOleStream.Create(Stream);     
    image2.Picture.Bitmap.LoadFromStream(OleStream);     
  finally    
    memoStream.Free;     
    OleStream.Free;     
  end;     
end;     

    
///     

uses    

....................AxCtrls,ActiveX;    //必加此二单元