本文整理自网络,侵删。
//读取流 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;
相关阅读 >>
windows api 的数据类型与 Delphi 数据类型对照表
Delphi 万年历 程序源码下部分(包括:农历计算、24节气、星期计算、属相)
更多相关阅读请进入《Delphi》频道 >>