Discussion :

[kheldoun ahmed]

salut tt le monde,

j'ai vu cette foum mais jai rien trouvé une information sur ma question.

ma question est que: comment je peux recuperer mes images dans ma base de données Ms. access (j'ai sauvgarder que le chemin de l'image) dans mon composnat DBImage

merci beaucoups

[evarisnea]

je ne vais pas répondre car le sujet a été traité plusieurs fois dans ce forum.
alors, un peu de courage et de volonté

[kheldoun ahmed]

je ne vais pas répondre car le sujet a été traité plusieurs fois dans ce forum.
alors, un peu de courage et de volonté

merci pour ta reponse,

alors, j'ai cherché comme meme mais il n'y a aucun qui a donné une explication a mon pb, ils donnent des solutions mais limités pas généralisées. si tu pense que ce pb est traité tu peux m'indiquer le lien.

merci a l'avance

[evarisnea]

bon déjà il faut savoir une chose, le DBImage récupère une image à partir d'un champ binaire (BLOB, BINARY, etc.) de la bd, ce qui implique généralement que l'utiliser signifie stocker directement son image dans la BDD (mauvais pour les performances).
si je t'ai bien lu, tu stockes uniquement le chemin d'accès de l'image dans ta bdd, et l'image est sur le disque dur. il faudra donc utiliser un TImage en lieu et place du TDBImage, car ce dernier ne sera connecté au aucun champ de la table.

voici ce que tu peux faire:
-pour chaque enregistrement, (évènement AfterScroll par exemple)
-lire le chemin d'accès de l'image dans la table (à l'aide du champ dans lequel est stocké le chemin d'accès)
-ouvrir l'image à l'aide d'un TImage

exemple concret ( de tête, non testé ):

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Query1AfterScroll(DataSet:TDataSet);
begin
  if Dataset.RecNo >= 0 then
    if Dataset.FieldByName('CheminFichierImage').AsString <> '' then
      Image1.Picture.LoadFromFile(Dataset.FieldByName('CheminFichierImage').AsString)
    else
      Image1.Picture := nil;
end;

[kheldoun ahmed]

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Query1AfterScroll(DataSet:TDataSet);
begin
  if Dataset.RecNo >= 0 then
    if Dataset.FieldByName('CheminFichierImage').AsString <> '' then
      Image1.Picture.LoadFromFile(Dataset.FieldByName('CheminFichierImage').AsString)
    else
      Image1.Picture := nil;
end;

[/QUOTE]
merci pour ton aide, si tu a remarque que cette solution presente des limitation.

moi, je sauvgarde que les chemins des photos dans ma bdd (ms. access) mais le pb est comment je peux les lister si j'utilise TImage

merci beaucoups.

[evarisnea]

merci pour ton aide, si tu a remarque que cette solution presente des limitation.

normal, puisqu'elle est donnée à titre indicatif. je ne sais pas exactement ce que tu veux, je te donne juste une piste en rapport avec ce que j'ai cru comprendre que tu voulais.

moi, je sauvgarde que les chemins des photos dans ma bdd (ms. access) mais le pb est comment je peux les lister si j'utilise TImage

merci beaucoups.

qu'entends tu par lister ? lister quoi ? sais tu accéder aux informations d'une table d'une bd access à partir de delphi ?

as tu pu essayer/adapter le code exemple que j'ai fourni ?

[kheldoun ahmed]

as tu pu essayer/adapter le code exemple que j'ai fourni ?

merci pour ta reponse,

oui j'avais essayé ton code et il marche bien mais il ne s'affiche qu'un seul image puisque on utilise TImage.

mais si on affiche la totalités des images sauvgardées (que leurs chemins) dans ma bdd ainsi que leurs caractéristiques alors quesque je peux utilse comment composant.


merci en avance

[evarisnea]

j'ai comme un doute
parcoure tu les enregistrements de ton jeu de données ?
si ce n'est pas le cas, pose un TDBNavigator sur ta fiche et associe lui un Datasource lié à ton jeu de données. en exécution, utilise ce DBNavigator pour parcourir ton jeu de données et voir si l'image ne change pas.

autre doute
essayerais tu d'afficher simultanément toutes les images dont les chemins sont sauvés dans ta bd ?