繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- 一键删除顽固的空文件夹 软件下载
- 获得Google PR值的PHP代码
- 解决控件遮挡问题：关于有窗口元素和无窗口元素
- Discuz!5的PHP代码高亮显示插件（黑暗中的舞者更新）
- phpmyadmin中配置文件现在需要绝密的短语密码的解决方法
- 一个数据采集类
- php中的一个中文字符串截取函数
- 自己前几天写的无限分类类
- 简单采集了yahoo的一些数据
- 回答PHPCHINA上的几个问题:URL映射
- 模拟flock实现文件锁定
- 一个捕获函数输出的函数
- cache_lite试用
- 再次研究下cache_lite
- PHP数据缓存技术
- 修改了一个很不错的验证码，共享之。
- 谈谈PHP的输入输出流
- 使用apache模块rewrite_module (转)
- 让PHP支持页面回退的两种方法[转]
- mysql中存储过程、函数的一些问题
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 115 ::
收藏到网摘: 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
