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 xe 跨平台(windows、android安卓、苹果macos、苹果ios)写法

Delphi释放内存一般这么写

Delphi 清空文件夹

Delphi 用拼音首字符检索汉字的源代码

Delphi xe 10.2.1 fmx平台 在图片上写字方法

Delphi纯api窗体程序

Delphi多线程文件搜索

Delphi中showmodal 和 show 的区别

Delphi 数据异或校验

Delphi 利用sendinput模拟鼠标键盘

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



打赏

取消

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

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

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

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

评论

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