繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- 用 PHP5 轻松解析 XML
- 扩展你的 PHP 之入门篇
- 创造世界上最简单的 PHP 开发模式
- 特转载一高手总结PHP学习资源和链接.
- PHP开发入门教程之面向对象
- 怎样才能成为PHP高手？学会“懒惰”的编程
- 详解：——如何将图片储存在数据库里
- PHP生成静态页面详解
- IIS6.0+PHP5.x+MySQL5.x+Zend3.0x+GD+phpMyAdmin2.8x通用安装实例(已经完成)
- 常用表单验证类，有了这个，一般的验证就都齐了。
- PHP文件下载类
- 一个PHP日历程序
- [转帖]PHP世纪万年历
- PHP语法速查表
- 一些常用的php函数
- PHP 开发工具
- PHP 5.0 Pear安装方法
- 弄了个检测传输的参数是否为数字的Function
- PHP一些有意思的小区别
- 一段防盗连的PHP代码
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 155 ::
收藏到网摘: 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
