delphi 读取流 Image1 Stream 加载到Image2 TImage 对象

//读取流 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;

procedure TForm1.FormCreate(Sender: TObject);

var

imgStream:TMemoryStream;

MyImage:TMemoryStream;

begin

imgStream:=TMemoryStream.Create;

MyImage:=TMemoryStream.Create;

Image1.Picture.SaveToStream(imgStream);

imgStream.Position:=0;

MyImage.LoadFromStream(imgStream);

ShowImageFromStream(Image2,MyImage);

end;

推荐分享