Créer un TPicture à partir d'un Variant

Bonsoir,

Sous C++ Builder 5, j'exploite une base Access qui possède une table dont un champ nommé "Image" est de type "Objet OLE" dans lequel je stocke une image BMP.

L'API que j'utilise (Opus DAO) me permet de lire mon champ "Image" et de le récupérer dans un Variant.
Il me reste maintenant à exploiter ce Variant dans un objet TPicture pour être capable de l'afficher, mais je n'y arrive pas.

Voici mon code qui finit sur un plantage sans autre forme d'explication :

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TBDRecord_Produit::SetImage(Variant& vValue) { AnsiString s = VarToStr(vValue); TStringStream* sStr = new TStringStream(s); m_iImage = new TPicture(); this->m_iImage->Bitmap->LoadFromStream((TStream*) sStr); // LIGNE qui plante !!!! }

---

Si quelqu'un peut m'aider, je lui en serais très reconnaissant !

Merci pour vos réponses.
Yoh

Est ce que ton champ vValue contient le nom de l'image a charger?

Petite question, que contient la variable s après cette ligne:

Code:

---

AnsiString s = VarToStr(vValue);

---

Hello,

Je pense que ton erreur vient du fait que ton Variant contient du binaire donc des caractères "\0" qui sont interprétés comme des fins de chaîne par la fonction VarToStr.

J'ai trouvé ce post sur MSDN qui explique comment extraire un buffer d'un variant.

Voici une proposition de code qui est une adaptation du tien et de celui du post. Il compile mais je ne sais pas s'il donne le bon résultat:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Variant vValue; unsigned long bufferSize=vValue.parray->rgsabound[0].cElements; BYTE* buffer=new BYTE[bufferSize]; if (buffer) { void * pArrayData; //Obtain safe pointer to the array SafeArrayAccessData(vValue.parray,&pArrayData); //Copy the bitmap into our buffer memcpy(buffer, pArrayData, bufferSize); //Unlock the variant data SafeArrayUnaccessData(vValue.parray); } // Copy buffer in TStream TMemoryStream* tmp=new TMemoryStream(); tmp->WriteBuffer(buffer,bufferSize); tmp->Seek((size_t)0,(TSeekOrigin)soBeginning); // Load image from TStream TPicture* m_iImage=new TPicture(); m_iImage->Bitmap->LoadFromStream(tmp); // Free memory delete tmp; tmp=NULL; delete[] buffer; buffer=NULL;

---

Citation:

---

Envoyé par Patrick Seuret

Hello,

Je pense que ton erreur vient du fait que ton Variant contient du binaire donc des caractères "\0" qui sont interprétés comme des fins de chaîne par la fonction VarToStr.

J'ai trouvé ce post sur MSDN qui explique comment extraire un buffer d'un variant.

Voici une proposition de code qui est une adaptation du tien et de celui du post. Il compile mais je ne sais pas s'il donne le bon résultat:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Variant vValue; unsigned long bufferSize=vValue.parray->rgsabound[0].cElements; BYTE* buffer=new BYTE[bufferSize]; if (buffer) { void * pArrayData; //Obtain safe pointer to the array SafeArrayAccessData(vValue.parray,&pArrayData); //Copy the bitmap into our buffer memcpy(buffer, pArrayData, bufferSize); //Unlock the variant data SafeArrayUnaccessData(vValue.parray); } // Copy buffer in TStream TMemoryStream* tmp=new TMemoryStream(); tmp->WriteBuffer(buffer,bufferSize); tmp->Seek((size_t)0,(TSeekOrigin)soBeginning); // Load image from TStream TPicture* m_iImage=new TPicture(); m_iImage->Bitmap->LoadFromStream(tmp); // Free memory delete tmp; tmp=NULL; delete[] buffer; buffer=NULL;

---

---

Merci beaucoup Patrick, je vais tester une fois chez moi.
Effectivement en debug (mode pas à pas), quand j'inspecte ma variable, je vois quelque chose de ressemblant "\0" (de mémoire).

Je teste et je vous dis ce qu'il en est.