繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- php调用mysql存储过程
- PHP+.htaccess实现全站静态HTML文件GZIP压缩传输(一)
- PHP中HTTP方式下的Gzip压缩传输方法举偶
- 隐藏X-Space个人空间下方版权方法隐藏X-Space个人空间标题隐藏X-Space个人空间管理版权方法
- 如何提高PHP速度
- 发布一个用PHP fsockopen写的HTTP下载的类
- php公用函数列表[正则]
- 实现了一个PHP5的getter/setter基类的代码
- php简单封装了一些常用JS操作
- Smarty＋QUICKFORM小小演示
- 给php新手谈谈我的学习心得
- NOD32 v2.70.32 简体中文封装版 提供下载了
- 个人站长制做网页常用的php代码
- 收集的php编写大型网站问题集
- 如何从一个php文件向另一个地址post数据，不用表单和隐藏的变量的
- php下实现农历日历的代码
- php+dojo 的数据库保存拖动布局的一个方法dojo 这里下载
- php网页后退不再出现过期
- PHP实现用户认证及管理完全源码
- 用PHP制作的意见反馈表源码
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 114 ::
收藏到网摘: 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
