Discussion :

[LandGreen]

Bonjour à tous,

Je travaille actuellement sur un projet Delphi 7 où je cherche à afficher des images dans un composant DBCtrlGrid. Les images sont stockées dans un répertoire spécifique sur mon disque local (par exemple, "C:\ImagesProduits") et chaque nom de fichier correspond au code d'un produit.

J'ai réussi à afficher les noms en liant directement la DataSource du TDBMemo, mais je suis bloqué sur la manière d'afficher les images elles-mêmes dans le DBCtrlGrid.

Est-ce que quelqu'un pourrait me guider sur la meilleure approche pour accomplir cela ? Y a-t-il une manière de charger dynamiquement les images à partir du répertoire spécifique en fonction du code produit ?

Merci d'avance pour votre aide et vos conseils !

Cordialement,

[SergioMaster]

Bonjour,

Dommage que ce ne soit pas une version CE, avec son TControlList

En D7, je partirai sur l'évènement onPaintPanel (s'il existe).

Code :

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

1
2
3
4
5
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
begin
image1.Picture.LoadFromFile(DataImage.asString);  //  image1 est un TImage pas un TDBImage
end;

Pas pu tester

[LandGreen]

Code :

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

1
2
3
4
5
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
begin
image1.Picture.LoadFromFile(DataImage.asString);  //  image1 est un TImage pas un TDBImage
end;

Pas pu tester[/QUOTE]

Je vous remerci epour ce code
cependant, je ne vois pas ou mettre le chemin des images?

[ShaiLeTroll]

Soit en Blob dans une table
Soit dans un répertoire, la racine étant dans un fichier config ( ou relatif à l'exe ), et le chemin peut se calculer facilement à partir de la référence
Soit sur un serveur HTTP pour le Download, accessible en FTP pour le Upload par exemple
Soit dans une ressource difficilement évolutif

[LandGreen]

Soit en Blob dans une table
Soit dans un répertoire, la racine étant dans un fichier config ( ou relatif à l'exe ), et le chemin peut se calculer facilement à partir de la référence
Soit sur un serveur HTTP pour le Download, accessible en FTP pour le Upload par exemple
Soit dans une ressource difficilement évolutif

Blob dans la base ça ralentie l'exécution si on utilise des image grande
par contre j'ai le chemin de chaque image stocké dans une colonne sous forme : "C:/....."

[SergioMaster]

Dans votre table, une colonne varchar. Mais il me semblait à vous lire

J'ai réussi à afficher les noms en liant directement la DataSource du TDBMemo,

que le chemin de l'image était déjà stocké dans un blob d'où ma suggestion de code

[ShaiLeTroll]

Il suffit donc d'avoir cette colonne dans le DataSet lié au TDBCtrlGrid et cette colonne servira dans le LoadFromFile


Cependant je pense qu'il faudrait pas faire le LoadFromFile à chaque Paint, cela serait très lent, il faut avoir un cache d'image en parallèle, un TObjectList de TBitmap par exemple

Je ferais même manuellement le dessin comme dans ce sujet Gérer l'affichage dans TDbCtrlGrid

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
procedure TZooVCLControlExperimentForm.DBCtrlGridColorPaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
var
  LRect: TRect;
  Brush: HBrush;
begin
  if Odd(ClientDataSetCtrlGridVALUE.AsInteger) then
  begin
    Brush := CreateSolidBrush(ColorToRGB(clMoneyGreen));
    try
      LRect := Rect(0, 0, DBCtrlGrid.PanelWidth, DBCtrlGrid.PanelHeight);
      FillRect(DBCtrlGrid.Canvas.Handle, LRect, Brush);
    finally
      DeleteObject(Brush);
    end;
  end;
end;

Suffit de remplacer FillRect par un CopyBlt par exemple ou un CopyRect à l'instar de la FAQ Comment lire directement l'image dans la base et l'afficher dans un TDBGrid ?