Discussion :

[o_live]

Bonjour ,
Je m'inspire de la Faq Delphi pour dessiner une
image dans un composant DBgrid
http://delphi.developpez.com/faq/?pa...herimagedbgrid

J'extraie des images depuis un SGBD Firebird 2.1

J'ai du modifier l'existant afin de l'adapter a C++Builder 6 pro
J'ai tenu compte des explication fournie sur le blob ,expliqués dans le message donné en lien

Code C++ :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
void __fastcall TFrmAnnu::DBGTelDrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{

if(Column->FieldName=="IMAGE"){

   TMemoryStream *pMs= new TMemoryStream();
   Graphics::TBitmap *pBitmap=new Graphics::TBitmap;

   // pointeur sur TGraphicField modif ici par rapport au code Delphi
   TGraphicField *pGF=(TGraphicField *)(Column->Field);
   //pGF->SetFieldType(ftBlob);
    // TGraphicField *pGF =dynamic_cast<TGraphicField *>(Column->Field);
   try {

      // test mis ulterieurement pour enregistrer l'image voir fin de message
         pGF->SaveToStream(pMs);

/* oblige de faire comme ceci sinon erreur de compil
[C++ Erreur] FormAnnuaire2.cpp(52): E2247 '_fastcall TMemoryStream::SetSize(const __int64)' n'est pas accessible
*/  
     // recule de 8 octect pour lire l'image en question
       int SizeFlux=pMs->Size - 8;
       pMs->SetSize(/*pMs->Size - 8*/ SizeFlux);
       pMs->Seek(__int64(8), soFromBeginning) ;



        pBitmap->LoadFromStream(pMs);
        
DBGTel->Canvas->CopyRect(Rect, pBitmap->Canvas, pBitmap->Canvas->ClipRect);

   }__finally{

           delete pMs;
           delete pBitmap;
          
   }


 } else{
  DBGTel->DefaultDrawDataCell(Rect, Column->Field, State);

}

}

le débogueur s'arrête sur

Code c++ :

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

pBitmap->LoadFromStream(pMs);

donc a mon avis c'est la ligne d'avant qui plante avec le message

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet Annuaire_TClientDataSet_Multitable_champ_auto.exe a provoqué une classe d'exception EInvalidGraphic avec le message 'Image bitmap incorrecte'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK Aide
---------------------------

Si je désactive cette partie

Code C++ :

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

1
2
3
4
5
6
7
8
9
 
 
*/ oblige de faire comme ceci sinon erreur de compil
[C++ Erreur] FormAnnuaire2.cpp(52): E2247 '_fastcall TMemoryStream::SetSize(const __int64)' n'est pas accessible
*/  
     // recule de 8 octect pour lire l'image en question
       int SizeFlux=pMs->Size - 8;
       pMs->SetSize(/*pMs->Size - 8*/ SizeFlux);
       pMs->Seek(__int64(8), soFromBeginning) ;

l'image ne s'affiche pas mais cela ne plante pas

J'ai quelques questions :
-Ou est mon erreur ?
-Autre chose faut il modifier des propriétés dans le contrôle DbGrid ?
-Quelle modif pour afficher une image Jpeg ou un GIf ?
merci par avance



ps: j'ai mis ce test (partie code en orange)

Code :

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

1
2
3
4
 static int i=0 ;
         pGF->SaveToStream(pMs);
         pGF->SaveToFile("TEST"+(AnsiString)i+".bmp");
         i++;

J'ai mon image qui apparait bien dans un logiciel de photo

[ShaiLeTroll]

retire le -8, c'est valable uniquement si tu enregistre la taille de l'image ou si tu veux le faire manuellement, il faut laisser le TGraphicHeader
tout dépend si tu es en ftGraphic ou pas !
comme tu force le ftBlob, cela n'écrit pas le TGraphicHeader dans le Stream tu n'as donc pas besoin de le retirer

Je pense que ce -8 n'existe que dans l'exemple, pas dans l'absolu, il me semble que c'est même spécifique au BDE\Paradox (je confirme, c'est dans l'aide, voir propriété GraphicHeader, un boolean)

ces 8 octets n'existe pas avec FireBird et de plus ce n'est pas 8 bits comme écrit dans la FAQ

Pour les JPEG, voir TJPEGImage, j'ai un exemple en Delphi, tu le trouveras avec une petite

n'oublie pas , tu disposes de BCB6, la meilleure aide qui existe ! même celle de XE s'en rapproche enfin !

Voici ce que l'on y trouve

Code :

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

1
2
3
4
5
6
7
8
9
10
TMemoryStream *pMS = new TMemoryStream;
try
{
  SQLDataSet1Images->SaveToStream(pMS);
  Image1->Picture->Bitmap->LoadFromStream(pMS);
}
__finally
{
  delete pMS;
}

SQLDataSet1Images est un TBlobField !
Pas de -8 !

[o_live]

Bonjour
j'ai retire les -8 et je fais ceci rien ne s'affiche dans mon DBGRID
J'ai toujour a la place du champ IMAGE le BLOB qui apparait

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
28
29
30
31
32
33
34
35
void __fastcall TFrmAnnu::DBGTelDrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
 if(Column->FieldName=="IMAGE"){


   TMemoryStream *pMs= new TMemoryStream();
   Graphics::TBitmap *pBitmap=new Graphics::TBitmap;
   TGraphicField *pGF=(TGraphicField *)(Column->Field);

   try {


        pGF->SaveToStream(pMs);
        pGF->SaveToFile("TEST.bmp"); //J'ai mon image
       
        pBitmap->LoadFromStream(pMs);
        pBitmap->SaveToFile("fin.bmp"); // je perd mon image
        
DBGTel->Canvas->CopyRect(Rect, pBitmap->Canvas, pBitmap->Canvas->ClipRect);

   }__finally{

           delete pMs;
           delete pBitmap;
          // delete pGF;
   }


 } else{
  DBGTel->DefaultDrawDataCell(Rect, Column->Field, State);

}
}

D'ou peut venir l'erreur entre les 2 lignes en orange ?
merci d'aider un débutant

[ShaiLeTroll]

Code :

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

1
2
3
4
5
6
7
8
        pGF->SaveToStream(pMs);
        pGF->SaveToFile("TEST.bmp"); //J'ai mon image
 
        // SaveToStream a lu pMs, c'est comme une cassette, pour relire, il faut rembobiner !
        pMs->Seek(0, soBeginning) ; // 0\soBeginning ou __int64(0)\soFromBeginning
 
        pBitmap->LoadFromStream(pMs);
        pBitmap->SaveToFile("fin.bmp"); // je perd mon image

Ensuite, La méthode Assign sinon fonctionne très bien, cela passe par l'interface IStreamPersist qui gère l'interaction entre le TPicture et le AssignTo du TBlobField ... c'est très mal documenté !

ce qui donne tout simplement

Code :

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

1
2
3
4
5
6
7
8
Graphics::TBitmap *pBitmap=new Graphics::TBitmap;
try
{
  pBitmap->Assign(Column->Field);           
  DBGTel->Canvas->CopyRect(Rect, pBitmap->Canvas, pBitmap->Canvas->ClipRect);
}
__finally
  ...

[o_live]

Ok cela marche merci mille fois de ton aide

Il a fallut que je mettre ceci :

Code :

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

pMs->Position=0;

car sous C++Builder 6pro si je mets ceci

Code :

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

 pMs->Seek(0, soBeginning) ;

J'ai une erreur de compilation

[C++ Erreur] FormAnnuaire2.cpp(52): E2015 Ambiguïté entre '_fastcall Classes::TCustomMemoryStream::Seek(int,unsigned short)' et '_fastcall Classes::TCustomMemoryStream::Seek(const __int64,Classes::TSeekOrigin)'

L'autre solution avec la méthode Assing fonctionne aussi


Cependant j'ai mes images "aplatie" du fait de la hauteur de ma ligne

As tu idée quelle est la hauteur par défaut d'une ligne d'un DBGrid en pixel ?
Comment la modifier ?

Je veux insérer des logos dans une grille des images de 16x16 ou 32x32 pixel
ou autre taille

Je mets ce code a dispositions si cela peut aider quelqu'un

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
28
29
30
31
32
33
34
35
36
 
void __fastcall TFrmAnnu::DBGTelDrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
 
if(Column->FieldName=="IMAGE"){
 
   TMemoryStream  *pMs= new TMemoryStream();
   Graphics::TBitmap *pBitmap=new Graphics::TBitmap;
 
   // pointeur sur TGraphicField a utiliser sur la première solution
 
   TGraphicField *pGF=(TGraphicField *)(Column->Field);
    try {
 
     //1 solution
       pGF->SaveToStream(pMs);
       pMs->Position=0;
       pBitmap->LoadFromStream(pMs);
 
       // 2solution
       //pBitmap->Assign(Column->Field);
 
        DBGTel->Canvas->CopyRect(Rect, pBitmap->Canvas, pBitmap->Canvas->ClipRect);
 
   }__finally{
 
           delete pMs;
           delete pBitmap;
   }
 
 } else{
  DBGTel->DefaultDrawDataCell(Rect, Column->Field, State);
 }
}

merci encore

[ShaiLeTroll]

L'autre solution avec la méthode Assing fonctionne aussi

J'espère que tu as retenu Assign, c'est tout de même plus élégant

Code :

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

 pMs->Seek(0, soBeginning) ;

J'ai une erreur de compilation

[C++ Erreur] FormAnnuaire2.cpp(52): E2015 Ambiguïté entre '_fastcall Classes::TCustomMemoryStream::Seek(int,unsigned short)' et '_fastcall Classes::TCustomMemoryStream::Seek(const __int64,Classes::TSeekOrigin)'

D'où ma remarque d'essayer différentes variantes avec soFromBeginning valuer énumérée TSeekOrigin et soBeginning valeur entière simple

Cependant j'ai mes images "aplatie" du fait de la hauteur de ma ligne
As tu idée quelle est la hauteur par défaut d'une ligne d'un DBGrid en pixel ?
Comment la modifier ?

Un Hack des propriétés protégées genre DefaultRowHeight (si ça existe)
Sinon, je mettais pour la grille une Font plus élevé genre 16, et je modifiais la font pour chaque colonne pour remettre à 8 (au passage je gérais un WordWrap, sur le forum Delphi
WordWrap dans un TDBGrid
écrire verticalement dans une cellule stringgrid