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 相关文章推荐
支持数组的ADDSLASHES的php函数
Feb 16 PHP
libmysql.dll与php.ini是否真的要拷贝到c:\windows目录下呢
Mar 15 PHP
PHP中将网页导出为Word文档的代码
May 25 PHP
php页面缓存方法小结
Jan 10 PHP
php过滤所有的空白字符(空格、全角空格、换行等)
Oct 27 PHP
PHP会话操作之cookie用法分析
Sep 28 PHP
redirect_uri参数错误的解决方法(必看)
Feb 16 PHP
深入解析PHP中SESSION反序列化机制
Mar 01 PHP
PHP巧妙利用位运算实现网站权限管理的方法
Mar 12 PHP
PHP查询分页的实现代码
Jun 09 PHP
php取出数组单个值的方法
Mar 12 PHP
php微信开发之图片回复功能
Jun 14 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
一个取得文件扩展名的函数
2006/10/09 PHP
php-cli简介(不会Shell语言一样用Shell)
2013/06/03 PHP
php使用$_POST或$_SESSION[]向js函数传参
2014/09/16 PHP
PHP异步进程助手async-helper
2018/02/05 PHP
Apache+PHP+MySQL搭建PHP开发环境图文教程
2020/08/06 PHP
jQuery 获取和设置select下拉框的值实现代码
2013/11/08 Javascript
ajaxFileUpload.js插件支持多文件上传的方法
2014/09/02 Javascript
再谈javascript原型继承
2014/11/10 Javascript
javascript中加var和不加var的区别 你真的懂吗
2016/01/06 Javascript
js下将金额数字每三位一逗号分隔
2016/02/19 Javascript
利用原生JS自动生成文章标题树的实例
2016/08/22 Javascript
react高阶组件经典应用之权限控制详解
2017/09/07 Javascript
基于js文件加载优化(详解)
2018/01/03 Javascript
详解解决使用axios发送json后台接收不到的问题
2018/06/27 Javascript
详解JavaScript修改注册表的方法
2020/01/05 Javascript
[54:54]Newbee vs Serenity 2018国际邀请赛小组赛BO2 第一场 8.17
2018/08/18 DOTA
[01:07:19]DOTA2-DPC中国联赛 正赛 CDEC vs XG BO3 第一场 1月19日
2021/03/11 DOTA
[08:54]DOTA2-DPC中国联赛 正赛 Aster vs LBZS 选手采访
2021/03/11 DOTA
python 读写中文json的实例详解
2017/10/29 Python
对python中的for循环和range内置函数详解
2018/04/17 Python
Python简直是万能的,这5大主要用途你一定要知道!(推荐)
2019/04/03 Python
18个Python脚本可加速你的编码速度(提示和技巧)
2019/10/17 Python
Python多进程multiprocessing、进程池用法实例分析
2020/03/24 Python
简单了解python列表和元组的区别
2020/05/14 Python
简单介绍HTML5中audio标签的使用
2015/09/24 HTML / CSS
Myprotein荷兰官网:欧洲第一运动营养品牌
2020/07/11 全球购物
英国发展最快的在线超市之一:Click Marketplace
2021/02/15 全球购物
户外婚礼策划方案
2014/02/08 职场文书
师恩难忘教学反思
2014/04/27 职场文书
2014年师德承诺书
2014/05/23 职场文书
节能环保演讲稿
2014/08/28 职场文书
班主任师德师风自我剖析材料
2014/10/02 职场文书
2015年法务工作总结范文
2015/05/23 职场文书
Go语言实现Snowflake雪花算法
2021/06/08 Golang
SpringBoot整合RabbitMQ的5种模式实战
2021/08/02 Java/Android
Python识别花卉种类鉴定网络热门植物并自动整理分类
2022/04/08 Python