繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- PHP的GD函数imagettftext()要注意默认字符编码
- PHP下载CSS文件中的图片
- PHP任意图像裁剪成固定大小
- PHP实例解析：实现给上传图片加水印图案
- 网友分享：二十五个顶级PHP模板引擎整理
- PHP开发搜索引擎技术全解析
- 基于MySQL数据库的UTF8中文网站全文检索的实现
- 使用PHP调用TinyURL API的方法
- 彻底杜绝PHP的session cookie错误
- 新手必看的PHP学习入门的一些基础知识
- 在HTML中利用js调用php的内容
- 有关 PHP 和 MySQL 时区的一点总结
- 菜鸟课堂：有效防御PHP木马攻击的技巧
- 配置PHP站点安全综合教程
- 基于UML的城轨列车超速防护系统建模
- 专家预言：PHP将比Java更受开发人员欢迎
- PHP CLI模式下的多进程应用
- PHP企业级应用之WebService续篇
- 用php定制404错误页面 并发信通知管理员
- 为Vista/Win08中的IIS7添加PHP支持
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 99 ::
收藏到网摘: 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
