本文整理自网络,侵删。
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 char数组、string和pchar的相互转换
更多相关阅读请进入《Delphi》频道 >>