image读取流

 1 var
 2 bmp :TMemoryStream ;
 3 begin
 4 inherited;
 5 bmp := TMemoryStream.Create ;
 6 Image2.Picture.Graphic.SaveToStream(bmp);
 7 bmp.Position := 0;
 8 Image1.Picture.Graphic := TJPEGImage.Create ;
 9 Image1.Picture.Graphic.LoadFromStream(bmp);
10 bmp.Free ;
11 end;
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/Kim53622744/p/5548857.html