Aide pour lire une ressource

**yazidou27** · 26/11/2009, 14h57

salut a tous le monde,
je veux faire un album de photo mais je veux que les photo soit integrées dans l'application ça veut dire dans un fichier .RES.

Jusque la tous se passe bien j'ai créé le fichier .RES pour inclure les photos mais j'ai eu un probleme lorsque j'ai voulu lire les composants de fichier.
Je connais cette commande

Code :

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

Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'image')

mais elle ne lit qu'une seule image alors que moi je veux que lorsque j'appuie sur le bouton l'image passe à la suivante
C'est quoi la condition que je dois mettre entre FOR i:=0 to ???? DO

merci a tout le monde

**Linkin** · 26/11/2009, 15h07

image est le nom de ta ressource.

Donc chaque photo doit avoir un nom différent dans ton res et tu rechargeras l'image correspondant au nom de la photo dans ton fichier de ressources.

**Dr.Who** · 26/11/2009, 15h08

1 - tes images doivent avoir un ID incrémenté (image0, image1, image2...)

2 - tu doit connaitre le nombre d'images présente c'est ce nombre qui determine la borne max pour la boucle.

3 - avec les bitmap, ton EXE risque de peser trés trés lourd... 1Mo par image 1024x768 pixels.

**yazidou27** · 26/11/2009, 15h18

merci
pour mes image je peux les incrementer et je peux utiliser gpeg non bmp c'est pas un probleme
le probleme est de comment lire image par image en utilisant une boucle??

**0x44-0x43-0x53-0x43** · 02/12/2009, 09h12

c'est très simple yazidou27,
Il te suffi de crée ton fichier RES avec toute tes images dedans et de les nommer de cette façons la :
IMAGE1,IMAGE2,IMAGE3,IMAGE4...IMAGE1000.

Jusque la sa va ...
Maintenant tu peut faire ta boucle de cette façons la !

Code :

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

1
2
3
4
5
6
7
var i : integer;
begin
For i := 1 to 1000 do begin
sleep(2000);
Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'IMAGE'+IntToStr(i))
end;
end;

et voila

, il y aura une attente de 2 seconde entre chaque changement d'images!

**Dr.Who** · 02/12/2009, 14h02

pourquoi mettre un sleep(2000) ?!

le mieux c'est de charge 3 images, ou plus pour avoir les previews.

donc un ti tableau et hop. on chargera aprés au fur et a mesure

**yazidou27** · 02/12/2009, 14h06

la fonction (sleep) na pas fonctionner
moi se que je vouler ?
c de fair apparetre une image a chaque clic de bouton c'est sa le preincipe
merci davoire m'aider

**0x44-0x43-0x53-0x43** · 02/12/2009, 14h58

Envoyé par Dr.Who

pourquoi mettre un sleep(2000) ?!

le mieux c'est de charge 3 images, ou plus pour avoir les previews.

donc un ti tableau et hop. on chargera aprés au fur et a mesure

WOOW stresse pas , le Sleep c'ete pour mettre une instance entre chaque changement d'image , tu peut aussi bien avec un Timer/Sleep etc c'ete seulement un exemple alors du calme!

Donc pour changer d'image a chaque clic c'est simple il te faut une variable globale qui te servira de conteur et a chaque clic tu incrémente ce conteur.

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
 
var i : cardinal;
 
Procedure TFrmMain.OnCreate(Sender:TObject);
Begin
i := 0;
End;
 
{Change d'image en avant}
Procedure TFRmMain.Button1Click(Sender:TObject);
Begin
Inc(i);
Image1.Picture := nil;
Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'IMAGE'+IntToStr(i))
End;
 
{Change d'image en arriere}
Procedure TFRmMain.Button1Click(Sender:TObject);
Begin
Dec(i);
Image1.Picture := nil;
Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'IMAGE'+IntToStr(i))
End;