繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- php header 详细使用说明与使用心得
- php利用header函数实现文件下载时直接提示保存
- php $_SERVER当前完整url的写法
- PHP 配置open_basedir 让各虚拟站点独立运行
- PHP 程序员的调试技术小结
- php 静态变量的初始化
- php与XML、XSLT、Mysql的结合运用实现代码
- php+javascript的日历控件
- php 引用(&)详解
- PHP小程序自动提交到自助友情连接
- PHP 单引号与双引号的区别
- PHP 递归效率分析
- PHP 进程锁定问题分析研究
- phplock(php进程锁) v1.0 beta1
- php Memcache 中实现消息队列
- MYSQL 小技巧 -- LAST_INSERT_ID
- Ajax+PHP 边学边练 之二 实例
- php 运行效率总结(提示程序速度)
- Ajax PHP 边学边练 之三 数据库
- 在mysql数据库原有字段后增加新内容
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 368 ::
收藏到网摘: 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
