Discussion :

[florcand]

Bonjour,

Je développe une petite appli de jardinage qui répertorie des noms de fleurs, diamètre, couleur, photo, etc...
J'ai donc créé une BDD ainsi qu'une interface graphique.
Cette interface contient un panel dans lequel j'ai mis des composants TDBImage (DBImage1, DBImage 2, etc...) afin de voir les photos correspondant aux fleurs sélectionnées (par exemple selon la couleur).
Un des champs de ma BDD contient les liens à associer aux TDBImage.
Au moment du résultat sur ma requête SQL, comment, en fonction du nb d'enregistrements retournés, accéder à DBImage1, DBImage2, DBImage3, etc... et leur propriété 'Picture' (en vue de faire ensuite LoadFromFile...) ?
J'ai essayé avec une boucle For i:= 0 to Panel1.controls.count-1...., ce qui me retourne bien mes contrôles DBImage1, DBImage2, etc..., mais je ne peux pas y accéder par la suite.

[SergioMaster]

Bonjour et bienvenue,

Un des champs de ma BDD contient les liens à associer aux TDBImage.

s'il s'agit d'un lien (chemin+nom de l'image) il ne faut pas utiliser un TDBImage mais un TImage c'est au moment du chargement de l'enregistrement que l'on utilisera image1.loadfromfile(<champ lien image>);
reste à savoir quand c'est le bon moment (le bon évènement)

sur ce que je lis vous faites une requête pour récupérer ces liens

Au moment du résultat sur ma requête SQL, comment, en fonction du nb d'enregistrements retournés

donc c'est dans la boucle
For i:= 0 to Panel1.controls.count-1.
que devrait se situer ce loadfromfile (de Timage pas de TDBImage)

une tentative en live (donc non testée) avec cette approche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Query.First;
for i:=0 to Panel1.controlcount - 1 do
 begin
   if (Panel.Controls[i] is TImage)  then
     begin
         TImage(Panel.Controls[i]).Clear;
         if not Query.EOF 
               then   TImage(Panel.Controls[i]).loadFromFile(Query.FieldByName('champimage').asString)
               else   TImage((Panel.Controls[i]).visible:=false; 
     end;
 end;

cette tentative manque de garde fou (quelques try except ou test d'existence pour encadrer le chargement de l'image ne serait pas du luxe)

à moins que vous ne tentiez une approche différente une boucle du style

Code :

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

1
2
3
4
5
while not query.EOF do
 begin
  // ici création dynamique du Timage et loadfromfile  
  Query.Next;
 end;

bon là il me faudrait plus d'informations

ou encore utiliser un composant tout fait qui ferait le boulot (ou presque tout le boulot) pour vous : je pense par exemple à JVThumbview de la JVCL

et enfin cela dépend de la version de Delphi que vous utilisez ! je ne ferait pas la même chose avec un delphi 7 (le plus courant) et la dernière version DX10

[florcand]

Bonsoir,

Il semblerait que j'aie oublié le 'TImage' devant '(Panel.Controls[i])'.
Cela ne risquait pas de marcher.
Ceci dit, j'ai testé les 2 solutions, avec TDBImage et TImage. Les 2 fonctionnent.
Je ne comprend pas trop pourquoi il faut préférer le TImage au TDBImage puisque il n'y a pas de différence à l'exécution.
Concernant les boucles, j'ai une préférence pour le 'while not...'. Après, c'est peut-être une affaire de goût.
La bonne syntaxe est la suivante :
'TImage(Panel.Controls[i]).picture.loadFromFile(Query.FieldByName('champimage').asString)'. Ne pas oublier le 'picture' avant 'loadFromFile'.

Je suis sur Delphi7, je vais regarder ce 'JVThumbview' pour voir de quoi il retourne.
Dans tous les cas, merci pour le 'TImage' oublié, cela m'a débloqué.

[SergioMaster]

Bonjour,

Ceci dit, j'ai testé les 2 solutions, avec TDBImage et TImage. Les 2 fonctionnent.
Je ne comprend pas trop pourquoi il faut préférer le TImage au TDBImage puisque il n'y a pas de différence à l'exécution.

dans ton contexte, le DBImage n'est utile que s'il y a liaison avec un champ binaire contenant une image (ce qui n'est pas le cas)

Concernant les boucles, j'ai une préférence pour le 'while not...'. Après, c'est peut-être une affaire de goût.

j'ai repris ton for i de départ après les goûts et couleurs .....

La bonne syntaxe est la suivante :
'TImage(Panel.Controls[i]).picture.loadFromFile(Query.FieldByName('champimage').asString)'. Ne pas oublier le 'picture' avant 'loadFromFile'.

je me doutais bien qu'une tentative en live aurait des faiblesse que le correcteur syntaxique de delphi aurait souligné de suite

[florcand]

Bonjour,

Je te remercie pour tes précieux conseils que je vais m'empresser de suivre.
Mon pb est maintenant résolu.
Cordialement.
Florcand.