繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- discuz安全提问算法
- PHP静态新闻列表自动生成代码
- 用PHP实现图象锐化代码
- PHP生成月历代码
- 用PHP实现的随机广告显示代码
- 用PHP实现维护文件代码
- 关于在php.ini中添加extension=php_mysqli.dll指令的说明
- PHP 中的批处理的实现
- 木翼下载系统中说明的PHP安全配置方法
- php为什么选mysql作为数据库？ Mysql 创建用户方法
- PHP如何编写易读的代码
- PHP 优化配置——加速你的VBB,phpwind,Discuz,IPB,MolyX
- php下一个阿拉伯数字转中文数字的函数
- Discuz5.5.0代码高亮显示+运行代码框合成插件 下载
- PHP+FLASH实现上传文件进度条相关文件 下载
- 发布一个迷你php+AJAX聊天程序[聊天室]提供下载
- 在普通HTTP上安全地传输密码
- php中ob(Output Buffer 输出缓冲)函数使用方法
- php 用sock技术发送邮件的函数
- 真正的ZIP文件操作类(php)
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 107 ::
收藏到网摘: 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
