Afficher un champs BLOB dans TImage

[Socrat]

Bonjour,

J'arrive pas à afficher un champs image enregistré dans ma table dans un contrôle TImage (Image1).

NB. C++Builder version 6 & Firebird :

Structure de ma base :

Code :

1
2
3
4
5
6
7
.
.
code integer not null,
nom varcahr(30),
myimage BLOB SUB_TYPE 0 SEGMENT SIZE 80,
.
.

à l'affichage, je met à jour les contrôle de ma fenêtre d'affichage :

Code :

1
2
EditCode->Text=MaTable->FieldByName("CODE")->AsInteger;
EditNom->Text=MaTable->FieldByName("NOM")->AsString;

comment puis-je mettre à jour le contrôle TImage :

ce code me renvoir l'erreur suivante :

Code :

Image1->Picture->Bitmap->Assign(DModule->MaTable->FieldByName("MYIMAGE")->AsBlob;

C++Error MonFicher.cpp (234) E2034 AsBlob is not a member of 'TField'

[ShaiLeTroll]

Si je reprends juste ton code, il manquait le transtypage du TField

Code :

1
2
3
TBlobField *bf = dynamic_cast<TBlobField*>(DModule->MaTable->FieldByName("MYIMAGE"))
if (bf)
  Image1->Picture->Bitmap->Assign(bf->AsBlob);

Voir aussi TGraphic et LoadFromStream
Ainsi que le TDBImage !

inspiré de mon code delphi dans le sujet Données de type IMAGE dans Delphi et SQLSever :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void LoadDBImage(ITImage* I, TDataset* D, TField* F)
{
  if (F && ! F.IsNull) 
  {
    TStream* m = D->CreateBlobStream(F, bmRead);
    if (m)
    try
    {
      I->Picture->Bitmap->LoadFromStream(m);
    }
    __finally
    {
      delete m;
    }
  }
}