TBlobFiled,TBlobStream ,extraire les valeur d'un champ image pour le mettre en cache

Version imprimable

Bonjour suite a ce post
http://www.developpez.net/forums/d76...irebird-2-1-a/

Je suis sur la partie finale ou je me mets en cache la partie de champs blob
J'essaie d'extraire la valeur du champ "IMAGE" et l'ajouter au IBClientDataSet
J'ai regarde l'aide en ligne de TBlobFIeld, et TBlobStream

J'ai fait ceci

Première Solution
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 case ftBlob:{ TBlobField *pBl=new TBlobField(pDs); pBl->FieldName=pDs->Fields->Fields[i]->DisplayLabel; //pBl->DataSet=pDs; TBlobStream*pBlobStream=new TBlobStream(pBl,bmRead); TStream*pStreamLu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite); pStreamLu->CopyFrom(pBlobStream,pBlobStream->Size); break; }}
Dans ce cas j'ai une viloation d'acces au niveau du constructeur de TBlobStream

Si je decommante

Code:

pBl->DataSet=pDs;

j'ai cette exception de levée

Citation:

Le projet TestConectionFirebird4.exe a provoqué une classe d'exception EDatabaseError avec le message 'IBQuery1: Impossible d'effectuer cette opération sur un ensemble de données ouvert'.

le problème est que je si je ferme pDs je perd mes données
pDs est aliment comme ceci

Code:

TDataSet *pDs=GetQueryResult(pQuery)

Questions :
comment affecter pEnreg[i] ?

J'ai essaye aussi avec

Code:

TIBBlobStream*pIBlobStream=new TIBBlobStream(pBl,bmRead);

j'ai une erreur de compilation

Citation:

[C++ Erreur] TIbSGBD.cpp(193): E2285 Impossible de trouver une correspondance pour 'TIBBlobStream::TIBBlobStream(TBlobField *,TBlobStreamMode)'

Seconde solution que j'ai essayé
Code:

1 2 TStream *pStreamLu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite); pCache->SaveToStream(pStreamLu);
Citation:

Le projet TestConectionFirebird4.exe a provoqué une classe d'exception EIBClientError avec le message 'Pas en mode édition'.

Le première solution me plaisais car avec cette méthode TBlobField::AsVariant je contais convertir cecie en variant
est l'affecter a pEnreg[i] qui est un TVarRec
mais je ne vois pas comment dans mon code

question est possible de convetir un Variant en Blob
pour la lecture ?

Je vous remercie de m'avoir lu
et si vous pouvez m'aider.....:aie:

Ps si c'est pas assez clair je peux fournir plus de code

J'ai fais ceci mais j'ai un vilotion d'access

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
// graphic ici pour debug
 Graphics::TBitmap *pBitmap = new Graphics::TBitmap();  // nouvel oject bitmap
      //TMemoryStream* pMS = new TMemoryStream; // allocation du flux en memoire
      TStream *pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite);    // on lit
 
      TBlobField *T=new TBlobField(pDs);
      T->FieldName=pDs->Fields->Fields[i]->DisplayLabel;
      //T->DataSet=pDs;
      T->SaveToStream(pStlu);  // violation d'acces
      T->LoadFromStream(pStlu);
      T->SaveToFile("TEST1.BMP");
 
      pValeur[i]=T->AsVariant;
      pEnreg[i]=pValeur[i];
 
      pBitmap->SaveToStream(pStlu);
      pBitmap->LoadFromStream(pStlu);
      pBitmap->SaveToFile("TEST.BMP");
      delete pBitmap;

Qui a un idée ?

question est possible de convetir un Variant en Blob
pour la lecture ?

voila le nouveau code
j'arrive a lire mon blob et l'enregistrer sur disque

le problème est que je suis dans un boucle While
while(!pDs->Eof) et je ne sort pas comme faut du fait que je suis oblige de faire des Open dans le (case ftBlob)

Je n'arrive pas a convertir mon blob en variant
ou est ce que il y a un manière de contourner ?

Que passer dans l' AppendRecord comme valeurs

est il possible de l'envoyer dans un composant ImageList

Comment déclarer le tout mon ImageList si ma requête a plusieurs Images sur le meme enregistrement comme cela ?TImageList **p

Code:

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
 
 pDs->First();
while(!pDs->Eof){
 
   for(int i=0;i<FieldsCount;i++){  // par des champ des enregistrement
 
     switch(pDs->Fields->Fields[i]->DataType){
 
        case ftBlob:{
                             // test 3
                             // mise dans le cache
                             TDataSet *pTempDs=pDs;
                             AnsiString   NomChamp=pTempDs->Fields->Fields[i]->DisplayLabel;
                              pTempDs->Close();
 
                              TBlobField *pBlobField=new TBlobField(pTempDs);
                              pBlobField->FieldName=NomChamp; //pDs->Fields->Fields[i]->DisplayLabel;
                              pBlobField->SetFieldType(ftGraphic);
                              pBlobField->DataSet=pTempDs; // oblige de derme sinon plantage
                              pDs->Open();
 
                              pDs->FieldDefs->Update();
 
 
                              TMemoryStream *pMs =new TMemoryStream;
                              pBlobField->SaveToStream(pMs);  // on lit l'enreng
 
                              pBlobField->SaveToFile("TEST"+IntToStr(i++)+".bmp");
 
                            //  pValeur[i]=pBlobField->AsVariant;
                             // pEnreg[i]=pValeur[i];
 
                  delete pMs;
    }              //delete pBlobField;
 }
}

merci par avance
je galere grave.....:aie::scarymov: