繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- 动易数据转成dedecms的php程序
- PHP中文汉字验证码
- 收藏的一个php小偷的核心程序
- ASP和PHP都是可以删除自身的
- PHP+Tidy－完美的XHTML纠错+过滤
- PHP实现MVC开发得最简单的方法——模型
- 相对路径转化成绝对路径
- 如何提高MYSQL数据库的查询统计速度 select 索引应用
- php下的转义字符串
- PHP 中英文混合排版中处理字符串常用的函数
- Linux下ZendOptimizer的安装与配置方法
- 给apache2.2加上mod_encoding模块後 php5.2.0 处理url出现bug
- 安装PHP可能遇到的问题“无法载入mysql扩展” 的解决方法
- dede全站URL静态化改造[070414更正]
- 使用Xdebug调试和优化PHP程序之[1]
- PHP与SQL注入攻击[一]
- PHP与SQL注入攻击[二]
- PHP与SQL注入攻击[三]
- PHP和XSS跨站攻击的防范
- Discuz! 5.0.0论坛程序中加入一段js代码，让会员点击下载附件前自动弹出提示窗口
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 109 ::
收藏到网摘: 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
