Discussion :

[michel71]

Bonjour,

Est il possible de créer un fichier ressource contenant plusieurs dossiers ?
je m'explique plus clairement.
j'ai une petite appli qui affiche diverses info et des images du type JPG . Actuellement ces images sont stockées dans divers dossiers car certaines portent le même nom mais sont différentes. Afin d'éviter que ces images soient visibles en "clair" je voudrais les inclure dans un fichier ressource.
Donc comment résoudre cette contrainte des dossiers
Info complémentaire il y a environ 9000 images.
Dernière demande, exist'il un prog qui permet de créer ce fichier facilement (fichier .res)

Merci

[Paul TOTH]

Bonjour,

Est il possible de créer un fichier ressource contenant plusieurs dossiers ?
je m'explique plus clairement.
j'ai une petite appli qui affiche diverses info et des images du type JPG . Actuellement ces images sont stockées dans divers dossiers car certaines portent le même nom mais sont différentes. Afin d'éviter que ces images soient visibles en "clair" je voudrais les inclure dans un fichier ressource.
Donc comment résoudre cette contrainte des dossiers
Info complémentaire il y a environ 9000 images.
Dernière demande, exist'il un prog qui permet de créer ce fichier facilement (fichier .res)

Merci

voici un exemple non testé rédigé en ligne

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
 
program MakeRES;
 
var
  ImageCount: Integer;
  ImageNames: TStringList;
 
procedure Scan(const Path: string);
var
  Search: TSearchRec;
begin
  if FindFirst(Path + '\*.*', faAnyFile, Search) = 0 then
  begin
    repeat
      if Search.Attribute and faDirectory <> 0 then
        Scan(Path + '\' + Search.Name)
      else begin
        ImageNames.Add(Path+'\'+Search.Name);
        WriteLn(' IMG', ImageCount,' RCDATA ',Path, '\', Search.Name);
        Inc(ImageCount);
      end;
    until FindNext(Search) <> 0;
  end;
  FindClose(Search);
end;
 
begin
  ImageNames := TStringList.Create;
  ImageCount := 0;
  AssignFile(Output, 'IMAGES.RC');
  Rewrite(Output);
  Scan('Dossier');
  ImageNames.SaveToFile('IMAGELIST.TXT');
  WriteLn(' LIST RCDATA IMAGELIST.TXT');
  ImageNames.Free;
  CloseFile(Output);
end.

ce programme scanne le répertoire "Dossier" (à adapter à ton cas), pour générer deux fichiers
IMAGELIST.TXT qui contient la liste des toutes les images
IMAGES.RC qui permet de les inclures en ressource y compris le fichier IMAGELIST.TXT

à l'usage, il suffit charger la ressource "LIST" dans un TStringList pour connaîte le numéro d'image correspondant au fichier et de charger la ressource "IMG"+ IntToStr(index)

exemple de contenu de IMAGELIST.TXT

Code :

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

1
2
3
 
Dossier\Image1.jpg
Dossier\SousDossier\Image2.jpg

exemple de contenu de IMAGES.RC

Code :

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

1
2
3
4
 
IMG0 RCDATA Dossier\Image1.jpg
IMG1 RCDATA Dossier\SousDossier\Image2.jpg
LIST RCDATA IMAGELIST.TXT

pour obtenir le .RES il suffit d'ajouter le .RC au projet via le bouton "+" de l'IDE

[michel71]

Merci

[seabs]

Bonjour,

Il existe un petit programme qui permet de créer un fichier .res facilement. Je l'utilise de temps à autre. Voici l'adresse du site

http://delphicool.developpez.com/prog/index.php

Sa présentation est Res_HiA, il est le dernier de la page.

A plus.

[Fandyz]

Salut !

pour obtenir le .RES il suffit d'ajouter le .RC au projet via le bouton "+" de l'IDE

Pourrais-je savoir de quel bouton "+" il s'agit?

[Paul TOTH]

selon la version de Delphi, ici D6 et XE2