本文整理自网络,侵删。
varimgStream:TMemoryStream;MyImage:TMemoryStream;beginimgStream:=TMemoryStream.Create;MyImage:=TMemoryStream.Create;
Image1.Picture.SaveToStream(imgStream); imgStream.Position:=0;
MyImage.LoadFromStream(imgStream);
Image2.Picture.LoadFromStream(MyImage);
相关阅读 >>
Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512
更多相关阅读请进入《Delphi》频道 >>