IStream与TStream之间的相互转换

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

相关文章

php操作xml入门之xml基本介绍及xml标签元素

本文实例讲述了php操作xml入门之xml基本介绍及xml标签元素。分享给大家供大家参考。具体分析如下: 以xml实例来讲解: 复制代码 代码如下:<?xml versio...

php 更新数据库中断的解决方法

即可解决: set_time_limit(900); 这个函数指定了当前所在php脚本的最大执行时间, 虽然设定值是900秒,实际上 最大执行时间=php.ini里的max_execut...

PHP中函数rand和mt_rand的区别比较

PHP函数rand和mt_rand    mt_rand() 比rand() 快四倍      很多老的 libc 的随机数发生器具有一些不确定和未知的特性而且很慢。PHP 的 rand...

PHP的5个安全措施小结

开发人员、数据库架构师和系统管理员在部署PHP应用程序到服务器之前都应该采取预防措施。大部分预防措施可以通过几行代码或者把应用程序设置稍作调整即可完成。   #1:管理安装脚本   如果...

phpmyadmin config.inc.php配置示例

文件地址:D:\wamp\apps\phpmyadmin4.0.4\config.inc.php 文件内容: 复制代码 代码如下: <?php /* * Generated con...