Delphi IStream与TStream之间的相互转换


本文整理自网络,侵删。

 //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; //必加此二单元

相关阅读 >>

Delphi 设置系统默认打印机

Delphi 判断是否是系统管理员身份

Delphi 判断文本是否包含多个关键词之一

汇编基础寄存器

Delphi 中文字符串函数问题rightstr

Delphi判断按下的是回车键?

Delphi高亮显示trichedit当前行

Delphi 检测cpu内核数

Delphi xe增强的rtti妙用--动态创建包中的窗口类

Delphi 使用shgetfileinfo函数获取任何文件大图标

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...