Discussion :

[Yoh]

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 :

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

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

[sat83]

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 :

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

AnsiString s = VarToStr(vValue);

[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 :

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

[Yoh]

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 :

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
  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.