繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- “懒人”的做法：用PHP简易实现中文分词
- 实例操作：PEAR的HTML_QuickForm7应用
- PHP在电影图像中的妙用 合并汉英字幕
- 实例解说：用Perl来分析并生成中文Excel文件
- 实用举例：利用PHP代码实现网页自动判断转向
- 简单了解操控日期和时间的10个Perl CPAN模块
- 常用编程应用小技巧 PHP获得文件扩展名三法
- windows环境下uploaded_file函数如何饶过缺陷
- 针对配置文件操作 PHP最常用的四个ini函数
- 用不同文件 构建可配置PHP应用程序的正确方式
- 精确到每一秒钟 如何实现在线人数的显示？
- 用PHP写mail函数 配置好后需要重启apache
- 简单示例：AJAX结合PHP代码实现登录
- PHP中引用&的使用注意事项
- 关于AJAX的N篇贴子整理
- 社区新闻--PHP5内容管理系统
- PHP 开发环境的选择、建立及使用(1)
- PHP 开发环境的选择、建立及使用(2)
- PHP 开发环境的选择、建立及使用(3)
- PHP 开发环境的选择、建立及使用(4)
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 56 ::
收藏到网摘: 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
