繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- 如何才能将数据从文本导入到mysql数据库
- 解决RHAS3中Apache2PHP上传大小限制
- PHP技术进阶 用PHP处理多个同名复选框
- PHP实现静态发布的方法浅谈
- 《PHP设计模式介绍》第十八章 结论
- 《PHP设计模式介绍》关于本书说明
- 通过PHP+MYSQL实现 网站在线人数统计
- 创建XML Http Request对象两个的方法
- PHP面向对象编程快速入门
- UCenter HOME 数据调用小技巧
- 关于PHP在linux下面获取GOOGLE的PR值
- 评论：PHP程序不适用大型系统的九大原因
- 如何用PHP和mysql创建一个ShoutBox
- 你或许尚未了解PHP的那10件事情
- Zend Framework 入门——快速上手
- Zend Framework 入门——多国语言支持
- Zend Framework 入门——错误处理
- Zend Framework 入门——页面布局
- PHP5+UTF8多文件上传类
- PHP设置COOKIE保留时间为浏览器进程
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 71 ::
收藏到网摘: 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
