Discussion :

[Nean]

Voilà, j'essaye de faire un soft de gestion de bédéthéque, je posséde donc une table "TALBUM" qui contient un champ "image" dans lequel je stocke le chemin de l'image correspondant à la couverture de l'album.

Ma question est double :
Comment afficher l'image alors que le chemin est stocké dans la base (il s'agit d'une base Access, et j'utilise une ADOTable appelé ADOAlbum pour mes albums) ?
Comment faire pour demander à l'utilisateur de choisir une image (parcourir...) et sauvegardé le chemin dans la base ?

J'ai regardé les sujetes parlant déjà de problèmes similaires et je n'ai pas très bien compris, alors est-ce que quelqu'un pourrait me réexpliquer en détail ou m'indiquer un tuto pour les débutants...

Merci.

[Thierry Laborde]

Salut,

Pour cet exemple il te faut une form avec un composant Timage (Nom=Image1), 2 composants Tbutton (Noms : btnSelectionnerImage et btnChargeImageDepuisBase) et 1 composant TOpenPictureDialog (Nom : openPicturedialog1).
Ensuite sur l'évenement OnClick des boutons tu appelles les procédures correspondantes :

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
 
procedure TForm1.btnSelectionnerImageClick(Sender: TObject);
var
  CheminImage:String;
begin
  openPicturedialog1.Title := 'Selection d'image';
  if openPicturedialog1.Execute then
  begin
    CheminImage:=ExtractFilePath(openPicturedialog1.FileName);
    // Ensuite stocker dans la base de données la variable CheminImage
  end;
end;
 
procedure TForm1.btnChargeImageDepuisBaseClick(Sender: TObject);
var
  CheminImage,NomImage:String;
begin
  // Récuperer depuis la base de données le chemin de l'image et le mettre dans la variable CheminImage
  NomImage:='Test.bmp';
  img1.Picture.LoadFromFile(CheminImage+NomImage);
end;

Dans le premier cas pour selectionner une image tu fais un execute du composant TOpenPictureDialog et tu rècupère le chemin dans la variable CheminImage comme indiqué dans la procédure. Puis tu enregistre tout simplement ta variable dans la base (Je ne connais pas particulièrement ADO et ACCESS donc j'ai mis un commentaire à remplacer).

Puis dans le 2ème cas pour afficher une image récupéré depuis la base tu mets la valeur de ton chemin dans la variable CheminImage (Toujours pareil, j'ai mis un commentaire), puis tu utilise la fonction loadfromfile du composant Timage pour charger et afficher ton image (Dans mon exemple l'image s'appelle Test.bmp, a toi de mettre le nom correct).

Voila, c'est un exemple vite fait.

J'espère que ça répond à tes questions.

[Nean]

Merci de ton explication claire et simple !

Comment peut-on faire pour que la TOpenPictureDialog retourne le chemin relatif et non pas le chemin absolu ?

Et sinon comment faire pour récupérer uniquement le nom de l'image et pas le chemin complet ?

[Nean]

Autre chose, cette méthode ne fonctionne que pour les .bmp pourquoi ? Comment faire pour que ça fonctionne aussi pour les .jpg et les .gif ??

[Thierry Laborde]

Pour le chemin relatif, il faut utiliser la fonction :

ExpandFileName

Pour récuperer le nom de l'image d'un fichier va voir au niveau de la FAQ, tu devrais trouver toutes les réponses :

http://delphi.developpez.com/faq/?pa...ulernomfichier

Quand au GIF et JPG le Timage ne gère par défaut que les BMP,WMF si tu veux avoir les GIF et JPG tu peux aller voir ici :

http://www.developpez.net/forums/viewtopic.php?t=29384

http://delphi.developpez.com/faq/?pa...nserergifanime

http://www.developpez.net/forums/viewtopic.php?t=360501

Bon dev.