繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- php生成文件
- MySQL中create table语句的基本语法是
- NOT NULL 和NULL
- 最令PHP初学者们头痛的十四个问题
- 关于mysql 字段的那个点为是定界符
- mysql_fetch_assoc和mysql_fetch_row的功能加起来就是mysql_fetch_array
- MySQL相关说明
- PHP 的 __FILE__ 常量
- php防注
- 在数据量大（超过10万）的情况下
- 解决中英文字符串长度问题函数
- 一个更简单的无限级分类菜单代码
- mysql 的 like 问题，超强毕杀记！！！
- php批量删除数据
- 解决phpmyadmin中文乱码问题。。。
- php中的时间显示
- php中的登陆login
- php中截取字符串支持utf-8
- php5.2.0内存管理改进
- php中通过smtp发邮件的类,测试通过
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 154 ::
收藏到网摘: 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
