IStream与TStream之间的相互转换
更新时间:2008年08月01日 00:48:51 作者:
IStream与TStream之间的相互转换的代码
procedure TForm1.Button1Click(Sender: TObject);
var
memoStream,OleStream:TStream;
Stream : IStream;
begin
image1.Picture :=nil;
image2.Picture :=nil;
//显示初始照片
image1.Picture.LoadFromFile('c:\logo.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; //必加此二单元
相关文章
这篇文章主要介绍了PHP模糊查询技术,结合实例形式分析了php模糊查询的相关原理、实现方法及操作技巧,并附带源码供读者下载参考,需要的朋友可以参考下2019-03-03
由于PHP支持使用相同的函数(Function)对本地文件和远程文件进行操作。因此,一些恶意用户通过强行使网站上的PHP代码(Code)包含自己的文件来实现执行自己脚本的目的。2010-04-04
本篇文章是对php版获取重定向后的地址实现代码进行了详细的分析介绍,需要的朋友参考下2013-06-06
PHP数组对比函数,存在交集则返回真,否则返回假,需要的朋友可以参考下。2011-02-02
这篇文章主要介绍了php readfile下载大文件失败的解决方法,涉及php针对大文件的分割及逐块下载操作实现技巧,需要的朋友可以参考下2017-05-05
这篇文章主要介绍了PHP常见加密函数用法,结合实例形式分析了crypt与md5函数进行加密操作相关使用技巧与注意事项,需要的朋友可以参考下2019-01-01
下面小编就为大家带来一篇centos下file_put_contents()无法写入文件的原因及解决方法。小编觉得挺不错的,现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧2017-04-04
这篇文章主要介绍了php实现的简易扫雷游戏,涉及php字符串及流程控制的相关技巧,具有一定参考借鉴价值,需要的朋友可以参考下2015-07-07
这篇文章主要为大家详细介绍了PHP递归实现层级树状展开的相关资料,需要的朋友可以参考下2016-04-04
本篇文章是对php中的set_time_limit()函数进行了详细的分析介绍,需要的朋友参考下2013-06-06
最新评论