Discussion :

[b.grellee]

bonjour,

Je cherche à avoir accès à des images png et/ou jpg en les intégrant en tant que ressource dans mon projet par le menu Projet->Ressources...
sans passer par un fichier .res et le déclarer avec $R

normalement ça fait partie des nouveautés D2009

je déclare donc mes 2 ressources

monImageJpg.jpg RCDATA JpgImage_1
monImagePng.png RCDATA PngImage_1

pour charger une des images dans un speedbutton

Code :

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

1
2
3
 
    SpeedButton1.Glyph.LoadFromResourceName(HInstance,'JpgImage_1');
    SpeedButton1.Glyph.LoadFromResourceName(HInstance,'PngImage_1');

à chaque fois j'ai le message
"Ressource JpgImage_1 non trouvée"

Alors que si je déclare un bmp dans mes ressources, le load se passe très bien.
Pouvez-vous me dire si vous avez le même message d'erreur sur vos postes de dév.
merci

[Andnotor]

J'ai fait un essai et ça fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
var
  Png :TPngImage;
begin
  Png := TPngImage.Create;
  Png.LoadFromResourceName(hInstance, 'PngImage_1');
  Image1.Picture.Assign(Png);
  Png.Free;
end;

Le problème viens du Glyph qui ne supporte toujours que les bitmaps .

[b.grellee]

tu me devances, j'arrive au même code pour le faire fonctionner.
merci pour l'aide

[guillemouze]

je pense que derriere le "SpeedButton1.Glyph.LoadFromResourceName" se cache LoadResource(..., RT_BITMAP, ...)

[b.grellee]

pour le jpg, je suis passé par une ressource car la procedure LoadFromResourceName n'existe pas.

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
 
var
  Res: TResourceStream;
  Jpg : TJPEGImage;
begin
    Jpg := nil;
    Res := nil;
    try
      Jpg := TJPEGImage.Create;
      Res := TresourceStream.Create(HInstance, 'JpgImage_1', RT_RCDATA);
      Jpg.LoadFromStream(Res);
      SpeedButton1.Glyph.Assign(Jpg);
    finally
      Res.Free;
      Jpg.Free;
    end;
end;

[b.grellee]

je me permets de rouvrir le topic car je bute dans un cas particulier.
les méthodes décrites ci-dessus marche très bien à partir d'un projet.

J'ai donc voulu procéder de la même manière dans un package (bpl), je déclare mes ressources et je charge ces ressources dans mes composants.
sauf que dans ce cas, il me met de nouveau l'erreur "Ressource PngImage_1 non trouvée"

pour que mes composants perso retrouvent leurs ressources, il veut absolument les memes ressources dans le projet final

je sais pas si ça peut provenir de l'instance?

[davels]

je me permets de rouvrir le topic car je bute dans un cas particulier.
les méthodes décrites ci-dessus marche très bien à partir d'un projet.

J'ai donc voulu procéder de la même manière dans un package (bpl), je déclare mes ressources et je charge ces ressources dans mes composants.
sauf que dans ce cas, il me met de nouveau l'erreur "Ressource PngImage_1 non trouvée"

pour que mes composants perso retrouvent leurs ressources, il veut absolument les memes ressources dans le projet final

je sais pas si ça peut provenir de l'instance?

J'ai exactement le même soucis, as tu trouvé une solution?

[davels]

Voilà, finalement j'ai trouvé une solution!

Je n'utilise plus de gestionnaire de ressources pour le package mais je compile le fichier RES de manière indépendante via BRCC32 et je l'inclus dans le package.
De cette manière, toute fonctionne nickel et ... du premier coup!

Je joins le site internet qui m'a aidé à réussir l'opération : http://www.delphi3000.com/articles/article_2606.asp?SK=