Discussion :

[X Trips]

Bonjour à tous.

Voilà tout, je travaille sur un base qui contient des images. Je voudrais lister cette base dans un TDBGrid mais vous doutez bien que l'image etant un BLOB dans la bases mon tableau va afficher Graphic à la place de mon image.

J'ai pensé passer par la procedure OnDrawColumnCell et recopier le Canvas de mon image sur la cellule, mais ceci ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
procedure Tf_ListeTemps.dbg_TempsDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if( DataCol = 1 ) then begin
   dbg_Temps.Canvas.CopyRect( Rect, dbimage1.Picture.Bitmap, dbimage1.Picture.Bitmap.Canvas.ClipRect )
 else
   dbg_Temps.DefaultDrawDataCell(Rect, Column.Field,State);
end;

Où ma base contient une colone ( la seconde ) avec de l'image et pour ma phase de recherche je lit l'image a l'aide d'un TBDImage qui à le même DataSource.

Merci d'avance.

[X Trips]

En fait cette méthode marche, c'est que j'avais mal testé.

[X Trips]

Pour ceux que ca interesse, voila comment effectuer pour lire directement l'image dans la base et l'afficher dans de TDBGrid :

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
22
23
24
25
26
27
 
procedure TForm.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  tmp    : TBitmap;
  stream : TMemoryStream;
begin
 if( Column.Field.IsBlob ) then
   try
     stream := TMemoryStream.Create();
     TGraphicField( Column.Field ).SaveToStream( stream );
 
     stream.SetSize( stream.Size - int64(8) );
     stream.Seek( int64(8), soFromBeginning );
 
     tmp := TBitmap.Create();
     tmp.LoadFromStream( stream );
 
     DBGrid.Canvas.CopyRect( Rect, tmp.Canvas , tmp.Canvas.ClipRect )
   finally
     tmp.Free;
     stream.Free;
   end
 else
   DBGrid.DefaultDrawDataCell(Rect, Column.Field,State);
end;

Par contre je ne saurais pas vous expliquer pourquoi il faut avancer de 8 octects dans le flux.

Maintenant mon image s'affiche dans le tableau mais elle se dimentionne a la taille de la cellule. Est-ce que quelqun sait comment on modifie la hauteur par défaut des lignes du TDBGrid car je ne trouve pas de propriété qui corresponde.

Pour info j'utilise Delphi 7 Entreprise.