Charger l'image à partir de la ressource intégrée

Je suis en train d'affecter une image(Image1) une photo au moment de l'Exécution.

Puisque je ne peux pas définir une propriété à la charge de l'exploitation des ressources. J'ai donc besoin de charger au moment de l'exécution.

J'ai le code

procedure TForm1.FormCreate(Sender: TObject); 
var RS:Tresourcestream ; 
begin 
RS := TResourceStream.Create(HInstance,'Splashscreen_Background', RT_RCDATA);   
image1.Picture.Bitmap.LoadFromResourcename(HInstance,'splashscreen_background'); 
end;

Mais il vient de charges les formes avec une Image vide. ainsi que:

procedure TForm1.FormCreate(Sender: TObject);
BitMap1 : TBitMap;
begin
BitMap1 := TBitMap.Create;
BitMap1.LoadFromResourceName(HInstance,'Live');
image1.Picture.Bitmap.Assign(Bitmap1);
end;

Je n'ai aucune idée si le fond on travaillerait à tous, ne le pense pas. Juste quelque chose que j'ai essayé.

Charger l'image à partir de la ressource intégrée

source d'informationauteur Skeela87 | 2011-04-27

  1. 24

    J'ai juste ajouté une ressource nommée SampleBitmap (image bitmap) pour une nouvelle VCL projet. Ensuite, j'ai ajouté un TImage de contrôle, et lui a donné un OnClick gestionnaire:

    procedure TForm1.Image1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'SampleBitmap');
end;

    Il fonctionne parfaitement.

    Mise à jour

    Le problème est probablement que vous êtes à l'aide d'une image JPG, et non pas une image Bitmap. Vous ne pouvez pas charger une image JPG dans un TBitmap. Alors, que faire? Eh bien, ajouter JPEG à votre uses clause, et ne

    procedure TForm5.Image1Click(Sender: TObject);
var
  RS: TResourceStream;
  JPGImage: TJPEGImage;
begin
  JPGImage := TJPEGImage.Create;
  try
    RS := TResourceStream.Create(hInstance, 'JpgImage', RT_RCDATA);
    try
      JPGImage.LoadFromStream(RS);
      Image1.Picture.Graphic := JPGImage;
    finally
      RS.Free;
    end;
  finally
    JPGImage.Free;
  end;
end;
  2. 3

    Le charger directement dans un TBitmap au lieu de cela, comme vous avez essayé:

    // Create your resource like this:
// MyResource.rc
SPLASHBKGND BITMAP YourSplashscreen.bmp

    Le compiler:

    C:\YourResFolder\Brcc32 MyResource.rc MyResource.res

    ou dans les versions ultérieures de Delphes:

    {$R MyResource.res MyResource.rc}

    L'utiliser:

    procedure TForm1.FormCreate(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromResourceName(HInstance, 'SPLASHBKGND');
    Image1.Picture.Assign(Bmp);
  finally
    Bmp.Free;
  end;
end;