本文整理自网络,侵删。
//读取流 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);varimgStream:TMemoryStream;MyImage:TMemoryStream;beginimgStream:=TMemoryStream.Create;MyImage:=TMemoryStream.Create;Image1.Picture.SaveToStream(imgStream);imgStream.Position:=0;MyImage.LoadFromStream(imgStream);
ShowImageFromStream(Image2,MyImage);end;
相关阅读 >>
Delphi xe 共享一个之前封装的多进程共享内存的memorystream
Delphi application.messagebox 详解
Delphi xe system.netencoding 字符串base64编码解码
Delphi firedac 下的 sqlite [1] - 前言
更多相关阅读请进入《Delphi》频道 >>