IStream与TStream之间的相互转换


Posted in PHP onAugust 01, 2008

  
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 相关文章推荐
php基础知识:控制结构
Dec 13 PHP
php 什么是PEAR?(第三篇)
Mar 19 PHP
php 中文和编码判断代码
May 16 PHP
使用php 获取时间今天明天昨天时间戳的详解
Jun 20 PHP
Yii框架在页面输出执行sql语句以方便调试的实现方法
Dec 24 PHP
PHP模拟asp.net的StringBuilder类实现方法
Aug 08 PHP
Joomla数据库操作之JFactory::getDBO用法
May 05 PHP
php支付宝在线支付接口开发教程
Sep 19 PHP
PHP二分查找算法示例【递归与非递归方法】
Sep 29 PHP
yii使用bootstrap分页样式的实例
Jan 17 PHP
PHP实现支持CURL字符串证书传输的方法
Mar 23 PHP
小程序微信支付功能配置方法示例详解【基于thinkPHP】
May 05 PHP
特详细的PHPMYADMIN简明安装教程
Aug 01 #PHP
php-accelerator网站加速PHP缓冲的方法
Jul 30 #PHP
新安装的MySQL数据库需要注意的安全知识
Jul 30 #PHP
说明的比较细的php 正则学习实例
Jul 30 #PHP
MySql中正则表达式的使用方法描述
Jul 30 #PHP
php自动跳转中英文页面
Jul 29 #PHP
PHP一些常用的正则表达式字符的一些转换
Jul 29 #PHP
You might like
定制404错误页面,并发信给管理员的程序
2006/10/09 PHP
php设置session值和cookies的学习示例
2014/03/21 PHP
浅析Yii2集成富文本编辑器redactor实例教程
2016/04/25 PHP
jquery ajax 调用失败的原因示例介绍
2013/09/27 Javascript
JavaScript使用ActiveXObject访问Access和SQL Server数据库
2015/04/02 Javascript
JQuery复制DOM节点的方法
2015/06/11 Javascript
JQuery中DOM事件合成用法实例分析
2015/06/13 Javascript
Bootstrap的图片轮播示例代码
2015/08/31 Javascript
基于jQuery全屏焦点图左右切换插件responsiveslides
2015/09/07 Javascript
JavaScript实现获取某个元素相邻兄弟节点的prev与next方法
2016/01/25 Javascript
JS中的二叉树遍历详解
2016/03/18 Javascript
js实现上传图片及时预览
2016/05/07 Javascript
正则 js分转元带千分符号详解
2017/03/08 Javascript
用Vue.extend构建消息提示组件的方法实例
2017/08/08 Javascript
详解nodeJs文件系统(fs)与流(stream)
2018/01/24 NodeJs
基于Vue+elementUI实现动态表单的校验功能(根据条件动态切换校验格式)
2019/04/04 Javascript
详解Vue底部导航栏组件
2019/05/02 Javascript
解决vue-photo-preview 异步图片放大失效的问题
2020/07/29 Javascript
[49:21]2018DOTA2亚洲邀请赛3月30日 小组赛B组 Effect VS iG
2018/03/31 DOTA
[01:11:27]2018DOTA2亚洲邀请赛小组赛 A组加赛 Newbee vs Optic
2018/04/03 DOTA
Python打印scrapy蜘蛛抓取树结构的方法
2015/04/08 Python
python 调用win32pai 操作cmd的方法
2017/05/28 Python
[原创]使用豆瓣提供的国内pypi源
2017/07/02 Python
python实现换位加密算法的示例
2018/10/14 Python
Python 批量刷博客园访问量脚本过程解析
2019/08/30 Python
pygame实现烟雨蒙蒙下彩虹雨
2019/11/11 Python
150行Python代码实现带界面的数独游戏
2020/04/04 Python
TensorFlow2.1.0安装过程中setuptools、wrapt等相关错误指南
2020/04/08 Python
Html5页面上如何禁止手机虚拟键盘弹出
2020/03/19 HTML / CSS
世界最大的私人旅行指南出版商:孤独星球
2016/08/23 全球购物
大专学生推荐信范文
2013/11/19 职场文书
政治表现评语
2014/05/04 职场文书
学生旷课检讨书500字
2014/10/28 职场文书
安徽导游词
2015/02/12 职场文书
简历自我评价:教师师德表现自我评价
2019/04/24 职场文书
Mysql binlog日志文件过大的解决
2021/10/05 MySQL