如何在FireMonkey中存储图像？

Question

在VCL中，我让ImageList存储图像。在FireMonkey中没有ImageList控件。如何将图像存储在FireMonkey中供以后使用？

Answer 1

在FireMonkey (XE4)中添加图像

Project -> Resources and Images

那么要访问它：

procedure TForm1.Button1Click(Sender: TObject);
var
  InStream: TResourceStream;
begin
  InStream := TResourceStream.Create(HInstance, 'MyPng', RT_RCDATA);
  try
    Image1.Bitmap.LoadFromStream(InStream);
  finally
    InStream.Free;
  end;
end;

多亏了彼得·冯ča

Answer 2

因为在Delphi中没有ImageList，所以您必须：

1. 将图片添加到项目中 项目->资源与图像
2. 将“资源与图像”中的图像删除为ResourceType RCDATA
3. 添加以下程序：

->

procedure TForm1.load_image_from_resource(var Im1: Timage; res_name: String);
var InStream: TResourceStream;
begin
  InStream := TResourceStream.Create(HInstance, res_name, RT_RCDATA);
  try
    Im1.Bitmap.LoadFromStream(InStream);
  finally
    InStream.Free;
  end;
end

然后加载图像，例如：

var i : nativeint;
begin
  i := 1;      
  load_image_from_resource(Image1, 'Bitmap_' + inttostr(i));
end;

从任何地方。

Answer 3

通过Project > Resources and Images将图像作为资源添加。