当前位置： 移动技术网 > IT编程>开发语言>PHP > IStream与TStream之间的相互转换

IStream与TStream之间的相互转换

2019年05月11日  | 移动技术网IT编程  | 我要评论
  
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;    //必加此二单元

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网