Delphi 读取流 Image1 Stream 加载到Image2 TImage 对象


本文整理自网络,侵删。

 
//读取流 Image Stream 加载到  TImage 对象
procedure ShowImageFromStream(AImage: TImage; AData: TStream);
var
  imgStream:TMemoryStream;
begin
  AData.Position := 0;
  imgStream:=TMemoryStream.Create;
  imgStream.LoadFromStream(AData);
  try
    AImage.Picture.LoadFromStream(imgStream);
  finally
  end;
end;



procedure TForm1.FormCreate(Sender: TObject);
var
imgStream:TMemoryStream;
MyImage:TMemoryStream;
begin
imgStream:=TMemoryStream.Create;
MyImage:=TMemoryStream.Create;
Image1.Picture.SaveToStream(imgStream);
imgStream.Position:=0;
MyImage.LoadFromStream(imgStream);

ShowImageFromStream(Image2,MyImage);
end;

相关阅读 >>

Delphi 获取指定进程中的~内存数据

Delphi webservices传base64字串

Delphi压缩库 zlibex 介绍

Delphi 全局键盘钩子(wh_keyboard)

Delphi tstringlist 保存txt文本文件最后一行不留空行

Delphi adotable1 链接mdb数据库

Delphi 使电脑睡眠代码

Delphi idhttp多线程下载

Delphi tadodataset 加载数据到fdmemtable1

Delphi 窗体内控件实现滚动字母

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



打赏

取消

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

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

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

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

评论

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