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.

[sematimo]

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

[sematimo]

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 :

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

1
2
 initialization
{$i images.lrs}

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

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
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.

[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