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 ?