FORUM MP | Pascal : stocker des images

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

stocker des images
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM PASCAL
	Page précedente	Page suivante

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#135908 Posté le 12/06/07 à 18:52

Salut me revoila Smiley

Cette foi je cherche à stoker des images dans mon .EXE c'est a dire qu'a partir d'un SEUL Timage je puisse mettre des images qui ne sont pas dans les dossiers du disque dure mai dans l'executable en sorte qu'on ne puisse pas voir l'image sans executer le prog.

Je croi que Timagelist permet de faire ça mais je n'ai pas réussi a le faire marcher à part avec des images bmp et encore ça fait de gros pixels...

voila je voulai savoir comment faire ça pck j'en ai mar de devoir me trimballer les photos qui servent à l'executable.

Merci pour vos futurs réponse Smiley

Si je me sui mal exprimé et que vous avez mal compri dites le moi.

@+
__________________________
Blademan1

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#135922 Posté le 12/06/07 à 23:20

Salut, il faut que tu crées un fichier de ressources, dans lequel tes images sont stockées.
On peut mettre des images au format bmp, jpg, gif et png (peut-être d'autres je ne sais pas).
Je ne suis pas devant Delphi là, demain, je te donne la syntaxe du fichier à créer qui servira de sources au fichier de ressources.
Ainsi que le code pour récupérer l'image depuis ton application.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#135928 Posté le 13/06/07 à 06:33

ok merci trop genial c'est exactement se que je cherchais ^^
j'atten avec impatience ton expliquation Smiley

merci @+
__________________________
Blademan1

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#135936 Posté le 13/06/07 à 08:57

Crées un fichier d'extension .rc, dedans mets du code ressemblant à ceci :

STRINGTABLE LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL BEGIN 1, "Ma chaine de caractère" END image1 PNG "APropos\MonImage.png" icoBMP BITMAP "UnBMP.bmp" imSablier GIF "Sablier.gif"

avec les images en chemin relatif ou chemin absolu.
Dans une console DOS, vas dans le répertoire où se trouve ton fichier .rc, puis tappes :

BRCC32 monfichier.rc

Si tout est bon, ça te créera un monfichier.RES.
Ce fichier .RES, copies le dans le répertoire de ton application et des sources.

Dans le fichier de ton projet, .dpr, rajoutes après le {$R *.res} cette ligne :

{$R monfichier.RES}

Pour mettre l'image dans ton TImage, fais le code suivant :

var Res : TResourceStream; Png : TPNGObject; begin // Image à gauche Res := TResourceStream.Create( HInstance, 'imFond', 'PNG' ); Png := TPNGObject.Create; Png.LoadFromStream( Res ); imFond.Picture.Assign( Png ); Png.Free; Res.Free;

Ceci pour un PNG, remplace le TPNGObject par un TGIFImage pour utiliser un GIF.

Il te faut récupérer sur le net les objets pngimage et gifimage et les installer dans Delphi pour les utiliser.

Pour lire le texte dans ton code, fais le code suivant :

ShowMessage( LoadStr( 1 ) );

Les chaines de caractères peuvent être internationnalisées avec LANGUAGE mais je n'ai jamais fait.

Bon code.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#136219 Posté le 15/06/07 à 20:16

Salut, tu as réussi à stocker tes images en ressource ou pas ?
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#136239 Posté le 16/06/07 à 09:32

slt

Ba en fait j'essay mai j'arrive pas.
j'essay encore peu etre un jour j'y arriverai, en fait j'arrive pa a mettre une photo stocké dans un fichier .res dans delphi dans un Timage... tu fait comment ?

merci @+
__________________________
Blademan1

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#136266 Posté le 16/06/07 à 23:05

Je le fais comme indiqué au dessus.
D'abord, tu dois créer un fichier .rc, dedans tu indiques quelles images tu souhaites insérer dans ton fichier de ressource, en spécifiant leur nom, leur type et leur emplacement.
Puis tu compiles le fichier .rc pour obtenir un fichier de ressource .RES contenant les images.

Ce fichier obtenu, tu le mets dans le répertoire où se trouvent les sources de ton application.

Puis tu inclus le fichier dans ton projet (dans le .dpr).

Enfin tu récupères l'image à partir de son nom et la mets dans le TImage.

Pour les détails de chaque étape, voir mon post au dessus.

Si tu bloques à une étape, dis quelle est l'étape où tu coinces.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#136278 Posté le 17/06/07 à 10:34

bon sa y est g réussi a faire la moitier à peu près : merci bcp Smiley

Mais la je bloque pck je travail tjr avec des .jpg, des .ico et tu ne ma pas montré le code pour mettre dans le .dpr les images a ce format.
tu ma montré juste pour les png avec ce code :

quesque je doi changer pour mettre les formats que je tai di juste avant ?

merci @+
__________________________
Blademan1

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#136283 Posté le 17/06/07 à 12:26

Il faut que tu remplaces le TPNGObject par celui qui est utilisé pour les JPG.
Je ne connais pas quel objet il faut utiliser pour les JPG.
Je vais faire des recherches pour voir ce qu'il faut faire.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#136284 Posté le 17/06/07 à 12:34

Il faut que tu rajoutes JPEG en uses, puis voici le code :

procedure Tfrm_Main.Button1Click(Sender: TObject); Var jpg : TJPEGImage; begin jpg := TJPEGImage.Create; jpg.LoadFromResourceName(hInstance, 'MonImage'); Image1.Picture.Graphic := jpg; jpg.Free; end;

__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM PASCAL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.