Discussion :

[Colieri]

Bonjour à tous, voici mon probleme :
Je developpe une application sous delphi7 / sql serveur 2000 dans laquelle j'ai besoin d'afficher plusieurs images au hasard. Les chemins d'acces aux images sont stockés dans ma base de données sql.
Quels éléments utiliser et de quelle maniere?
Je m'en sors pas!
Merci d'avance pour votre aide

PS (pour tous ceux qui diront le contraire) : J'ai cherché la réponse a ma question sans succes si un topic similaire (resolu) existe soyez sympas donnez moi le lien de la page.

[evarisnea]

juste une idée comme ça: en supposant que la partie connection à la bd et ouverture de ta table ne te pose aucun problème, voici une piste de solution.
tu poses un TImage sur la form.
dans l'évènement AfterScroll de ton DataSet tu charge l'image dans le TImage à partir du chemin récupéré de ta bd:

Code :

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

1
2
3
4
5
6
...
  if Table1.FieldByName('Chemin').AsString <> '' then
    Image1.Picture.LoadFromFile(Table1.FieldByName('Chemin').AsString)
  else
    Image1.Picture := nil;
...

[atb]

Bonjour ,
si dans ta base tu as les chemins et tu utilise une architecture client serveur ,pour acceder et afficher l'image le client doit avoir le droit d'acceder en lecture seul par exemple au répértoir des images (independamentcdu sgbd)

[Colieri]

Merci de vos reponses je teste ca ce soir et vous tiens au courant

[Colieri]

juste une idée comme ça: en supposant que la partie connection à la bd et ouverture de ta table ne te pose aucun problème, voici une piste de solution.
tu poses un TImage sur la form.
dans l'évènement AfterScroll de ton DataSet tu charge l'image dans le TImage à partir du chemin récupéré de ta bd:

Code :

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

1
2
3
4
5
6
...
  if Table1.FieldByName('Chemin').AsString <> '' then
    Image1.Picture.LoadFromFile(Table1.FieldByName('Chemin').AsString)
  else
    Image1.Picture := nil;
...

Je viens juste d'essayer ca. Quelques petites modifs et ca marche impec Merci beaucoup evarisnea!!!

[evarisnea]

Je viens juste d'essayer ca. Quelques petites modifs et ca marche impec Merci beaucoup evarisnea!!!

de rien.

[Colieri]

Bonjour à tous,
je dois revenir sur le [resolu] ca a marché une fois sur une image test et des que j'ai voulu l'appliquer à l'image définitive de mon application ca n'a plus marché.
Je précise en plus que je dois pouvoir utiliser la commande plusieurs fois de suite tout en gardant la form ouverte à l'aide d'un boutton.
Merci d'avance pour votre aide.

[evarisnea]

eh bien ...
peux tu nous dire ce que tu as fais exactement ?
ça ne marche pas veut dire quoi, qu'il y a une erreur ? laquelle ? lorsque tu fais quoi ?

sois un tout petit peu plus explicite stp.

il faut par ailleurs tenir compte de ceci :

Bonjour ,
si dans ta base tu as les chemins et tu utilise une architecture client serveur ,pour acceder et afficher l'image le client doit avoir le droit d'acceder en lecture seul par exemple au répértoir des images (independamentcdu sgbd)

[SergioMaster]

[D3]
j'ai un programme éprouvé qui fait ce genre de chose avec des fichiers
(reseau 20 postes , images sur un serveur, IB)

BMP et JPG (clause uses JPEG)

morceaux choisi

serveurimage est le repertoire des "fichiers images" table TModele

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TModeleForm.DModeleDataChange(Sender: TObject; Field: TField);
begin
if (Field=nil) OR (Field.FieldName='IMAGE') then
 try
   Image1.Picture.LoadFromFile(ServeurImage+'\'+TModeleIMAGE.Value);
   Image1.Visible:=True;
 except
   Image1.Visible:=False;
 end;
end;

[Colieri]

[D3]
j'ai un programme éprouvé qui fait ce genre de chose avec des fichiers
(reseau 20 postes , images sur un serveur, IB)

BMP et JPG (clause uses JPEG)

morceaux choisi

serveurimage est le repertoire des "fichiers images" table TModele

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TModeleForm.DModeleDataChange(Sender: TObject; Field: TField);
begin
if (Field=nil) OR (Field.FieldName='IMAGE') then
 try
   Image1.Picture.LoadFromFile(ServeurImage+'\'+TModeleIMAGE.Value);
   Image1.Visible:=True;
 except
   Image1.Visible:=False;
 end;
end;

Bonjour,
le probleme est que je ne comprends pas ton code
si tu pouvais le commenter et donner un nom de table, d'image... ce serait plus clair pour moi

voila ma config si tu peux me construire un exemple avec ca :
-une table "table1" (carte_num, ..., carte_img) // carte_img est en fait le chemin d'acces a l'image
-un query "query1" (SELECT TOP 1 carte_img, carte_num
FROM carte
ORDER BY NEWID()
-plusieurs images "image1", "image2", "image3", ...

merci d'avance

[Colieri]

Bonjour a tous.
Ca y est j'ai trouvé la solution a tous mes problèmes.
Je devais afficher un certain nombre d'images dont les chemins étaient dans une BDD de manière aléatoire et voila comment j'ai fais si ca peut aider quelqu'un:

1- Utilisation d'un Tquery pour faire une requete aleatoire sur mes images.
2- Sur l'évènement Tbuttonclick il suffit de recuperer le chemin de l'image dans la BDD et de l'attribuer a la propriété "picture" de l'objet Timage désiré de la manière suivante:

Code :

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

image1.Picture.LoadFromFile(query1chemin.Value);

"chemin" correspond a la propriété de la BDD qui contient le chemin de l'image que l'on veut afficher.

Merci à tous pour votre aide.