從資源加載位圖

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;