Extraction d'images d'un fichier LRS

Version imprimable

3 pièce(s) jointe(s)

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:
Pièce jointe 663731

Voici le code de la fonction:
Code:

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:
Pièce jointe 663739
J'ai inclue mon Test dans un Zip Pièce jointe 663732 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.

20/01/2025, 17h48
sematimo

et en utilisant lrs explorer, as tu le même problème?

J'ai regardé ton code.
Lorsque tu charges une image depuis le fichier lrs, il faut le nom sans l'extension du fichier.
Il faut rajouter:

Code:

1
2
 initialization
{$i images.lrs}

Avec ton code tu te compliques la vie.
Voici un code qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 procedure ListBox1Click(Sender: TObject);
    procedure ChargerImageDepuisLRS(Image: TImage; NomRessource: string);
 
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
procedure TForm1.ChargerImageDepuisLRS(Image: TImage; NomRessource: string);
begin
       Image.Picture.LoadFromLazarusResource(NomREssource);
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
 var nomfic : string;
begin
  if ListBox1.ItemIndex >= 0 then
  begin
    nomfic := ListBox1.Items[ListBox1.ItemIndex];
    nomfic:=ChangeFileExt(nomfic,'');
    ChargerImageDepuisLRS(Image7, nomfic);
    ChargerImageDepuisLRS(Image8, nomfic);
  end;
  showmessage('L''image '+ListBox1.Items[ListBox1.ItemIndex]+' a été extraite');
end;
 
initialization
{$i images.lrs}
 
end.

Pour créer un fichier lrs, j'utilise lrs explorer.

21/01/2025, 01h44
Jlmat

Bonsoir Sematimo, merci pour ta réponse.

Oui, j'avais vu qu'il existait effectivement cet utilitaire LRS Explorer. Je viens de l'installer pour le tester. Mais je me suis dit qu'avec le script de windows donné par la source de Lazarus, je m'en tirerais.
De toute façon, dans ma liste Box j'avais mis l'extension pour faire la différence entre les différentes format à afficher, mais j'ai oublié d'enlever cette extension dans l'appel de la fonction d'extraction, ce que tu as corrigé avec nomfic:=ChangeFileExt(nomfic,'');.

Alors, j'ai essayé rapidement ta solution, elle marche. LRS explorer semble pratique bien que tatillon apparemment pour sauvegarder des modifications à l'intérieur comme les changement de nom des ressources.

Merci