繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- PHP删除MYSQL数据库中所有表的代码
- php教程：php设计模式介绍之注册模式
- php教程：php设计模式介绍之伪对象模式
- PHPnow轻松打造专业PHP服务器环境
- php教程：php设计模式介绍之策略模式
- php教程：php设计模式介绍之迭代器模式
- Windows环境下Apache与Tomcat共存
- 简单学习php遇到的主要问题
- php教程：php设计模式介绍之观测模式
- php教程：php设计模式介绍之规范模式
- php教程：php设计模式介绍之代理模式
- php教程：php设计模式介绍之装饰器模式
- Perl操作mysql数据库的方法
- php教程：php设计模式介绍之适配器模式
- PHP单件模式和命令链模式的基础知识
- PHP大师指点:优秀的PHP代码怎么来?
- PHP开发的Myers 订单跟踪系统 (MOTS)
- PHP控制网页过期时间的程序
- Cannot modify header information出错的原因
- PHP 5.3的date_create_from_format()函数
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 69 ::
收藏到网摘: 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
