Cr�er un fichier Res et utilisation pour une liste de photos D6 et Win11 64bits

Bonjour � toutes et � tous,

Dans une ancienne application, je charge des photos dans un Timage depuis le m�me dossier de l'application.

Ma question si on cr�e un fichier ressource, il faudra faire l'extraction 7 fois si il y a 7 photos ?

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
 
//Chargement :
 
ImageFiles := TStringList.Create;
ImageFiles.Add('Chat.jpg');
ImageFiles.Add('Chat_1.jpg');
ImageFiles.Add('Chat_2.jpg');
ImageFiles.Add('Chat_3.jpg');
ImageFiles.Add('Chat_4.jpg');
ImageFiles.Add('Chat_5.jpg');
ImageFiles.Add('Chat_6.jpg');
 
  ImageIndex := 0;
 
  image1.Picture.LoadFromfile(ImageFiles[ImageIndex]);

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
 
//Mon RC :
 
Photo RCDATA "Chat.jpg"
Photo1 RCDATA "Chat_1.jpg"
Photo2 RCDATA "Chat_2.jpg"
Photo3 RCDATA "Chat_3.jpg"
Photo4 RCDATA "Chat_4.jpg"
Photo5 RCDATA "Chat_5.jpg"
Photo6 RCDATA "Chat_6.jpg"

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
 
//Lecture
 
procedure TU_Form.BLectureClick(Sender: TObject);
var
  RS: TResourceStream;
  JPGImage: TJPEGImage;
begin
  JPGImage := TJPEGImage.Create;
  try
    RS := TResourceStream.Create(hInstance, 'Photo', RT_RCDATA);
    try
      JPGImage.LoadFromStream(RS);
      Image1.Picture.Graphic := JPGImage;
    finally
      RS.Free;
    end;
  finally
    JPGImage.Free;
  end;
end;

J'avais pens� a un fichier Zip en ressource puis l'extraire mais avec D6 je ne penses pas que c'est faisable.

Si quelqu'un a une id�e merci d'avance.

@+,

cincap

@ ShaiLeTroll, merci pour ton message, avant tout, j'ai du modifier mon fichier RC :

PHOTO JPG "Chat.jpg"
PHOTO1 JPG "Chat_1.jpg"
PHOTO2 JPG "Chat_2.jpg"
PHOTO3 JPG "Chat_3.jpg"
PHOTO4 JPG "Chat_4.jpg"
PHOTO5 JPG "Chat_5.jpg"
PHOTO6 JPG "Chat_6.jpg"

et ensuite je sauve les photos dans le dossier de l'application afin de les utiliser avec mon TStringList et puis � la fermeture de l'application je les deletes.:

OnCreate :

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
 
 ResPhotos := TResourceStream.Create(Hinstance, 'PHOTO', 'JPG');
 try
 ResPhotos.SavetoFile(dirdir + 'Chat.jpg');
 finally
 ResPhotos.Free;
 
 end;
 
 ResPhotos1 := TResourceStream.Create(Hinstance, 'PHOTO1', 'JPG');
 try
 ResPhotos1.SavetoFile(dirdir + 'Chat_1.jpg');
 finally
 ResPhotos1.Free;
 
 end;
 
 ResPhotos2 := TResourceStream.Create(Hinstance, 'PHOTO2', 'JPG');
 try
 ResPhotos.SavetoFile(dirdir + 'Chat_2.jpg');
 finally
 ResPhotos2.Free;
 
 end;
.....
......
 
 ResPhotos6 := TResourceStream.Create(Hinstance, 'PHOTO6', 'JPG');
 try
 ResPhotos.SavetoFile(dirdir + 'Chat_6.jpg');
 finally
 ResPhotos6.Free;
 
 end;

Je pense qu'il y a moyen de le simplifier ?

Je teste encore,

@+,

cincap