Discussion :

[Jlmat]

Bonjour à tous

J'ai besoin de créer un fichier ressources (.lrs) en Lazarus 3.6 pour une collection d'images, mais je me heurte à l'extraction des images.
J'ai créé une fonction utilisant les Stream pour charger les images dans un Bitmap qui pourra ensuite afficher l'image extraite dans un TImage.
Mais je n'y arrive pas. voici la dernière notification obtenue:


Voici le code de la fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure ChargerImageDepuisLRS(Image: TImage; NomRessource: string);
var
  Stream: TLazarusResourceStream;
  Bitmap: TBitmap;
begin
  Stream := TLazarusResourceStream.Create(NomRessource, nil);
  try
    Bitmap := TBitmap.Create;
    try
      Bitmap.LoadFromStream(Stream);
      Image.Picture.Assign(Bitmap);
    finally
      Bitmap.Free;
    end;
  finally
    Stream.Free;
  end;
end;

Voici une capture d'écran de l'application au démarrage:

J'ai inclue mon Test dans un Zip ExempleLRS.7z pour ceux ou celles qui veulent bien y regarder de plus près. J'ai mis six images au format .bmp .jpg .png pour voir s'il y avait un problème de format.

Merci pour votre aide.