Comment récupérer le chemin du dpk ?

**WebPac** · 26/10/2006, 16h16

Salut tout le monde,

je suis en train de faire un petit composant qui utilise une image, je fais le code suivant pour rajouter l'image à un TBitBtn :

Code :

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

1
2
3
  aImage := Graphics.TBitmap.Create;
  aImage.LoadFromFile( 'Ouvrir.bmp' );
  FBitOuvrir.Glyph := aImage;

Mais ce n'est pas bon, parce qu'il ne me recherche pas l'image au bon endroit parfois.

Il faut donc que je puisse spécifier le chemin où elle se trouve (elle se trouve dans le dossier des sources du composant). Mais dans la FAQ, il n'y a pas ce genre d'indication. Il y a pour connaitre le chemin de l'exécutable et d'un service pas celui d'un paquet DPK.

Merci pour votre aide.

**Linkin** · 26/10/2006, 16h22

Il ne faudrait pas mettre l'image en tant que ressource?

**Cl@udius** · 26/10/2006, 16h24

Et si stockais ton bmp dans les ressources du dpk ?

[edit] Grillé par linkin !

[/edit]

@+ Claudius

**WebPac** · 26/10/2006, 16h25

Voui, vous avez très certainement raison, je n'y avais pas pensé, n'utilisant pas de resources encore.

Ca doit être une solution bien plus propre que ce que je ne voulais faire.

Vous avez un lien qui explique comment faire simplement des resources ?

**Cl@udius** · 26/10/2006, 16h31

Dans la FAQ tu as ça:
http://delphi.developpez.com/faq/?pa...ererresdansexe

Pour un dpk ce doit être la même chose.

@+

**WebPac** · 26/10/2006, 16h35

Merci, j'ai honte, j'aurais dû regarder avant de demander.

**WebPac** · 27/10/2006, 10h41

J'ai pas encore réussi à faire de resources mais je valide car ça répond à mon problème. Il n'y a plus qu'à réussir à les faire.

Et encore merci.

**Pedro** · 28/10/2006, 01h48

Salut

Envoyé par WebPac

Il n'y a plus qu'à réussir à les faire.

Pour un Bitmap dans un dpk, c'est assez facile

:

Avec l'éditeur d'images de Delphi, tu crées un nouveau fichier .res
Dans ce fichier, tu crées un nouveau bitmap que tu paramètres/dessines à ta convenance.
Dans le code, tu ajoutes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
```
{$R FichierDeRessources.res}
```
Pour utiliser la resource, tu peux, par exemple, utiliser la méthode LoadFromResource de TBitmap