繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- PHP技巧：详解phplib模板使用过程及运行原理
- PHP技巧：Smarty+adodb分页示例
- PHP技巧：PHP脚本中关于拼写检查函数库
- PHP技巧：PHP脚本编程中的文件系统函数库
- PHP技巧：PHP中几种删除目录的三种方法
- 学习PHP技术：txtSQL安装手册中文版
- 学习PHP：PHP的通用检测函数总结
- 详细学习PHP中对文件和目录的操作方法
- PHP+MYSQL实例：网站在线人数的程序代码
- Linux操作系统启动httpd失败的解决方法
- 初学：在PHP开发中如何使用Session？
- PHP初学者遇到的中文乱码解决方案
- PHP实例：实现文件上传的程序源码
- PHP实例：常用的数值判断函数
- PHP实例源代码：PHP实现翻页处理的类
- PHP实例：从数组里筛选出重复的数据
- PHP实例：用PHP实现windows风格的树型菜单
- PHP实例程序：实现给上传图片加水印图案的做法
- PHP实例：用PHP编写的网上调查投票系统
- PHP实例：一个非常全面获取图象信息的PHP函数
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 36 ::
收藏到网摘: n/a
IStream与TStream之间的相互转换的代码
procedure TForm1.Button1Click(Sender: TObject);
var
memoStream,OleStream:TStream;
Stream : IStream;
begin
image1.Picture :=nil;
image2.Picture :=nil;
//显示初始照片
image1.Picture.LoadFromFile('/upload/tech/20091012/20091012015718_202cb962ac59075b964b07152d234b70.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; //必加此二单元
评论 (0) All
