delphi - 从资源加载位图

Question

我在 How to store images in FireMonkey? 上找到了从资源文件加载位图的解决方案我尝试在我的 Firemonkey 应用程序中使用它，但它找不到资源并引发错误“EresNotFound”。我的资源.RC文件是这样的

Bitmap_1    BITMAP    "Test.bmp"

我的代码是

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Load_image_from_resource(Image1,'Bitmap_1');
end;

我还找到了问题Delphi 2010: unable to find resource - EResNotFound的解决方案。但仍然没有找到资源

Answer 1

您的代码中有几个问题，您需要将资源声明为 RCDATA

Bitmap_1    RCDATA    "Test.bmp"

看起来您创建了 VCL 应用程序，并且资源类型名称中有一个拼写错误，它应该是 RT_RCDATA，工作 FireMonkey 代码如下所示

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Load_image_from_resource(Image1, 'Bitmap_1');
end;