当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换

PHP
利用PHP+JavaScript打造AJAX搜索窗(1)
利用PHP+JavaScript打造AJAX搜索窗(2)
利用PHP+JavaScript打造AJAX搜索窗(3)
利用PHP+JavaScript打造AJAX搜索窗(4)
AJAX 技术在 PHP 中的简单使用(1 )
AJAX 技术在 PHP 中的简单使用(2)
PHP 中使用 crypt() 实现用户身份验证
PHP 下一代的五个 framework 介绍
利用PHP的OOP特性实现数据保护(1 )
利用PHP的OOP特性实现数据保护(2)
利用PHP的OOP特性实现数据保护(3)
小技巧:Windows下PHP与SQL Server的连接
如何利用PHP自定义错误处理器处理出错信息
利用正确的PHP类搜索定位目录树
如何使用PHP和PEAR的Net:Geo定位用户
AJAX应用中浏览器的BACK后退按钮问题
如何用PHP程序控制浏览器cache
PHP入门教程:如何制作一个小桌子
巧用PHP文本模板读取编写XML DOM
PHP实现简单线性回归之数学库重要性

PHP 中的 IStream与TStream之间的相互转换


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-12   浏览: 352 ::
收藏到网摘: 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; //必加此二单元