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;
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;
 

相关阅读 >>

Delphi map file

Delphi 绘制精美的签名图片

Delphi 读取文本文件的最后一行

Delphi win32，win64用于单/多线程计数素数的整数性能比较

Delphi将image存入mysql数据库

Delphi comparedatetime、comparedate、comparetime、samedatetime、samedate、sametime �c 对比时间的函数

Delphi7 写过卡巴主动防御服务端

Delphi 处理链接和文件路径结尾\和/

Delphi 一组数据，按由大到小进行排序，并输出最大值与最小值

Delphi winapi: loadstring - 从资源中载入字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 读取流 Image1 Stream 加载到Image2 TImage 对象