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 使用indy解决tidssliohandlersocketopenssl could not load ssl library错误

Delphi写的dll回调c#

Delphi 判断表字段是否存在

Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名

Delphi 调用wmi信息判断系统师傅安装杀毒软件

Delphi opendialog1 savedialog1 默认路径

Delphi 获取一个文件夹下的所有文件

Delphi 10.4中新增功能：新的vcl tedgebrowser组件

Delphi savelog 日志

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

转载请注明出处：木庄网络博客 » Delphi 读取流 Image1 Stream 加载到Image2 TImage 对象