繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- mysql 字段类型说明
- mysql 搜索之简单应用
- mysql 全文搜索 技巧
- escape unescape的php下的实现方法
- 解决php中Cannot send session cache limiter 的问题的方法
- php 中的str_replace 函数总结
- php下的权限算法的实现
- php下实现折线图效果的代码
- php中的MVC模式运用技巧
- 什么是MVC，好东西啊
- Windows下IIS6/Apache2.2.4+MySQL5.2+PHP5.2.1安装配置方法
- 不错的PHP学习之php4与php5之间会穿梭一点点感悟
- MySQL授权问题总结
- 站长助手-网站web在线管理程序 v1.0 下载
- MySQL GBK→UTF-8编码转换
- 中国站长站 For Dede4.0 采集规则
- Win2003下IIS+PHP+MySQL+Zend配置步骤详解
- Discuz板块横排显示图片的实现方法
- 测试您的 PHP 水平的题目
- PHP5.2下chunk_split()函数整数溢出漏洞 分析
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 110 ::
收藏到网摘: 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
