IStream与TStream之间的相互转换_PHP教程

  
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;    //必加此二单元

http://www.bkjia.com/PHPjc/319330.htmlwww.bkjia.comtruehttp://www.bkjia.com/PHPjc/319330.htmlTechArticleprocedureTForm1.Button1Click(Sender:TObject); var memoStream,OleStream:TStream; Stream:IStream; begin image1.Picture:=nil; image2.Picture:=nil; //显示初始照片 image1.Picture....