Afficher un champs BLOB dans TImage

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'

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; } } }

---