本文整理自网络,侵删。
//读取流 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 tstringlist 保存txt文本文件最后一行不留空行
Delphi tadodataset 加载数据到fdmemtable1
更多相关阅读请进入《Delphi》频道 >>