Discussion :

[DanCode]

Voilà, j'ai encore un petit problème.
J'utilise dans un petit programme une image que j'affiche quand l'utilisateur presse sur un bouton. Pour le moment, l'image est chargée à partir d'un fichier image que j'ai placé dans le dossier actif. C'est à dire qu'à l'initialisation (FormCreate), je charge l'image dans une TImage sur ma Form.

Code :

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

1
2
3
4
procedure TForm2.FormCreate(Sender: TObject);
begin
   ImgPhoto.Picture.LoadFromFile('Partiti.bmp');
end;

Le gros problème avec cette technique, c'est que je dois avoir l'image sur le PC, dans le bon dossier, sinon il ne charge rien...
Y-a-t-il donc une autre manière de procéder, pour intégrer définitivement l'image au programme (l'encoder?...) de manière à ce que, si quelqu'un a uniquement le fichier .exe, il puisse néanmoins voir l'image?

[Cl@udius]

Salut

Il suffit d'inclure ton bitmap comme ressource. Tu as un petit exemple dans la FAQ: Comment insérer une ressource dans un exécutable ?

@+ Claudius

[DanCode]

Génial, merci!!

[DanCode]

Mhh, je n'arrive plus à faire marcher le compilateur: il a bien marché la premiere fois, mais maintenant il refuse de convertir mes autres fichiers, et m'affiche une erreur du type "Could not open input file C:\Images\Image.RC"

Quelqu'un aurait une idée de ce qui peut provoquer ça?
Je suis dans le bon répertoire....

[Cl@udius]

Re

Fais voir le contenu du fichier RC.

[DanCode]

Ben mon fichier RC contient juste l'identificateur, le type et l'adresse du fichier que je veux transformer...

Donc j'ai celui-là:
Image.rc

Code :

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

1
2
 
Image1 BITMAP Image1.bmp

[Cl@udius]

Lorsque tu appelles le compilateur de ressources (BRCC32), il faut que tu sois sur le dossier contenant ton fichier .RC.

Et vue le contenu de ce .RC, il faut également que le fichier .BMP y soit.

@+

[DanCode]

Résolu! Mais le problème ne venait pas de là:

Mon fichier bmp avait trop de couleurs. Je l'ai reconverti en bmp 256 et ça a marché comme un charme! Malheureusement la qualité a souffert... mais on ne peut pas tout avoir dans la vie

Merci encore en tout cas

[Dr.Who]

houla tu utilise un Delphi 2 ou quoi ?

tu peux toujours tricher :

dans le RC

Code :

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

IMAGE1 RCDATA Image1.bmp

dans le programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  RS : TResourceStream;
begin
  RS := TResourceStream.Create(0, 'IMAGE1', RT_RCDATA); // verifier la syntaxe
  try
    Image1.Picture.LoadFromStream(RS);
  finally
    RS.Free;
  end;
end;