Bitmap von Ressource laden

Question

Ich finde eine Lösung für das Laden Bitmap aus Ressource-Datei auf How to store images in FireMonkey? Und ich habe versucht, es in meiner Firemonkey-Anwendung zu verwenden, aber es kann keine Ressource finden und löst einen Fehler "EresNotFound". Meine Ressourcen RC-Datei wird wie folgt

Bitmap_1 BITMAP "Test.bmp" 

und mein Code

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; 

ich auch eine Lösung auf die Frage Delphi 2010: unable to find resource - EResNotFound gefunden. Aber es findet noch nicht

Answer 1

Es gibt mehrere Probleme in Ihrem Code Recource, Sie Ressource als RCDATA

Bitmap_1 RCDATA "Test.bmp" 

auch aussieht wie Sie VCL-Anwendung erstellt, und es ist ein Tippfehler in Ressourcentyp deklarieren müssen Name, sollte es sein RT_RCDATA, wie diese

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;