Mettre des image dans un TIMageList

Version imprimable

Bonjour
Avec ce code code j'arrive enfin a lire un flux blob (image bmp)
Comment placer ce flux dans un collection d'image (TImageList)

Me données viennent de requête SQL ou il peut y avoir plusieurs champ image
comment déclarer ce composant ?

Comment afficher les images faut en plus un autre composant TImage ouTDbImage ?
Code:

1 2 3 4 5 6 7 8 9 TStream *pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite); // on lit dans le memoire TMemoryStream *pMs =new TMemoryStream; pMs->LoadFromStream(pStlu); j++; pMs->SaveToFile("TEST"+IntToStr(j)+".bmp"); delete pMs;
merci par avance

Le code suivant n'est pas complet, c'est une piste qu'il faut l'adapter à votre code.

.h

Code:

TList *listimg;

.cpp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
listimg = new TList();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
while (listimg->Count > 0)                // parcours de toute la liste d'image pour la vider
      {
      delete (TImage *)listimg->Items[0]; // libération de la mémoire allouée aux images
      listimg->Delete(0)                  // suppression du pointeur de l'image traité de la liste
      }
delete listimg;                           // libération de la mémoire allouée à la liste d'image
}

Et ensuite dans votre code :

Code:

1
2
3
4
5
TStream  *pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite);
TImage *imgtemp = new TImage(0);
listimg->Add(imgtemp);                    // Sauvegarde du pointeur pour accéder à l'objet plus tard et pouvoir le supprimer
imgtemp->Parent = Form1;                  // Remplacer par l'objet sur lequel il va être affiché
imgtemp->Picture->Bitmap->LoadFromStream(pStlu); // chargement de l'image depuis de stream (valable pour un bmp)

17/06/2009, 13h36
o_live

Bonjour
je compte stocker le pointeur sur le memorystream
est ce que cela va prendre beaucoup en ressource système ?
(il y aura pas d'image par la suite....)

Est ce mieux d'utiliser Tlist ou TlistImage ?

Concernant le blob je compte a voir de blobl teste et blob image
est ce que il y a unn moyen de detecter "la nature" du contenu
d'un blob ?

merci encore
17/06/2009, 20h30
gandf

Pour toutes ces questions, je n'ai aucune réponse claire à vous donner, je ne sais pas.

Je pense que cela dépend du nombre d'images et de leur poids. (pour les ressources)

Le TList a l'avantage de pouvoir stocker n'importe quel pointeur. Je n'ai jamais utiliser le TImageList, si cette liste permet de stocker et manipuler les images, il faut le prendre, sinon, le TList est suffisant. Surtout si les images ne doivent plus être affichées par la suite.

Pour le type de blob, vérifiez le début du flux. Il me semble qu'un fichier BMP commence par une suite bien définie (vraiment pas sur) et je ne sais pas si cette partie est stockée dans le blob.
18/06/2009, 02h12
o_live
Bonjour et merci de votre aide.

J'ai un problème initialisation , je risque d'avoir plusieurs image sur une ligne d'enregistrement

D'ou le déclaration d'un tableau de TList
Les dimensions ne seront connues qu'au moment de l'exécution de la requête
SQL

Cette initialisation sera dans la méthode ToCache(...)
Code:

1 2 3 TList **TabList; TabList[0]=new TList;
J'ai un problème de violation

du coup de prototype de ma procédure ressemblerais a ceci
Code:

1 2 bool __fastcall TIbSgbd::ToCache(TIBClientDataSet * pCache, TIBQuery * pQuery,TList **TabList,int *Dim1)
IBClientDataSet * pCache =le cahce pour le donnée

TIBQuery * pQuery sour ce de ma requête SQL

TList **TabList Tableau de liste d'image allouées via memorytream
dans la procédure

int *Dim1 paramètre entre/sortie donnant le nombre de liste

Dim2 a mon avis n'est pas neccesaire vu qu'il ya la methode count()

Comment bien initialiser mon tableau de liste ?
Comment appeler au niveau de la méthode ToCache() TList** ?
et bien desallouer?

en vous remerciant encore
18/06/2009, 09h41
gandf
Ca en peut pas fonctionner. Déja, TList sert à gérer une liste, je ne comprend pas l'utilité de s'en faire un tableau.

Ensuite, on n'utilise pas de cette manière un TList.
Votre code :
Code:

1 2 TList **TabList; TabList[0]=new TList;
La syntaxe est plutôt de la forme :
Code:

1 2 3 4 5 TList *TabList = new TList(); // ne pas oublier "()" TList *temp = new TList(); TabList->Add(temp); Et pour y accéder : (TList *)TabList->Items[0];
18/06/2009, 11h45
o_live
Bonjour si je représente un enregistrement

Le type de donnée
Integer-Strnig -Currrency-Integer -Integer-Blob-Blob

Le champs
ID - Article -Prix --Stkmini --StkMax-Image1 Image2
1 "article1 1 1 1 monimage1 monimage1
2 "article2 2 2 2 monimage2 monimage2
etc....

Je voulais que
monimage1 aille dans la Liste1
monimage1 aille dans la liste 2
et si il y a en avais un troisième Image alors liste 3

Les dimensions ne seront connues qu'au moment de l'exécution de la requête SQL celle ci peut être variable elle peut "contenir " 0 ou n image

En formation il me semblait avoir vu quelque pour initialiser un tableau de classe

j'espère avoir été plus clair

Je vais essayer de nouveau votre code

pour l'acces j'ai fait ceci
Code:

1 2 3 4 5 6 TList *TabList = new TList(); // ne pas oublier "()" TList *temp = new TList(); TabList->Add(temp); (TList*)TabList->Items[0]->Add(Edit1->Text);
J'ai cette erreur

Citation:

[C++ Erreur] Unit1.cpp(19): E2288 Pointeur sur structure nécessaire du côté gauche de -> ou ->*

encore merci de toute l'aide apportée
18/06/2009, 13h36
totoche76

Dans la série "Amusons-nous avec les parenthèses..."

Citation:

J'ai cette erreur
Citation:
[C++ Erreur] Unit1.cpp(19): E2288 Pointeur sur structure nécessaire du côté gauche de -> ou ->*

Code:

((TList*)TabList->Items[0])->Add(...);

Par contre, fait gaffe à ce que tu mets dans le Add(...). Tu doit stocker l'adresse d'un objet qui ne disparaît pas en sortant de la fonction ou de la portée en cours...

Bonjour
avec ce code j'arrive a lire /ecrire dans un liste chaine (Tlist)
seulment quand j'ai un enregistrement donc un un seule liste d'image

J'arrive pas avoir comment faire pour gérer plusieurs liste d'image (Tlist)
malgré les explications données

Je voudrais renvoie le tout dans un paramètre d'entre/sortie de type TList
dans ma fonction ToCache(........Tlist *TabList) comment faire ?

Autre question comment nettoyer proprement le tout du fait que je vais faire le new dans cette methode ?

merci encore

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
case ftBlob:{
 
   TStream*pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite);    // on lit
                             TMemoryStream *pMs =new TMemoryStream;
                              pMs->LoadFromStream(pStlu);
 
                              j++; // indice donne par avoir "test1.bmp", test2.bmp //etc
                              pMs->SaveToFile("TEST"+IntToStr(j)+".bmp");
 
                              // finir
                              TList *MyList = new TList;
                              MyList->Add(pMs);
 
                             //  lecture et test dans la liste chaine
                               TMemoryStream * pmstlu=new TMemoryStream;
                               pmstlu->LoadFromStream((TMemoryStream*)MyList->Items[i]);
                               pmstlu->SaveToFile("pstlu.bmp");
                               delete pmstlu;
 
 
                              pValeur[i]=NULL;//??? est ce bon a tester ????
 
                              pEnreg[i]=pValeur[i];
 
                              delete pMs;
 
                             break;
                            }

01/07/2009, 14h14
gandf

Pour le nettoyage de code, il faut libérer la mémoire avec un delete puisque l'on a fait un new. On a stocké l'adresse de l'objet dans la liste. Donc, il suffit de libérer la mémoire avec le delete au moment de la suppression du pointeur de la liste ou avant la destruction de la liste.

Pour votre fonction, il me faudrait savoir exactement de que la fonction doit retourné en sortie et avoir un petit exemple de l'appel à cette fonction (pour savoir où gérer les delete).

Concernant le type de retour, il dépend directement des données que 'lon doit renvoyer (une liste, une liste de liste, ...).

Pour gérer plusieurs liste d'images, on peut soit utiliser une seule liste mais cela devient rapidement trop compliqué, soit utiliser une TList qui stocke les pointeurs vers des TList. Après, tout dépend de ce que l'on veut faire mais si la TList principale est déclarée comme étant membre de ta Form, il n'y a pas besoin d'une valeur de retour à ta fonction puisque les données sont déjà accessible par le reste de votre programme.

Par contre, je ne comprend pas le fonctionnement de votre bout de code. Vous utilisez la TList pour y stocker des pointeurs dont vous libérez la mémoire juste après. Votre liste pointe sur rien. De plus, vous créez une liste avec un new mais voue ne stockez pas l'adresse quelque part pour pourvoir y accéder plus tard.

En fait, il me faudrait votre fonction complète ainsi que les fonctions en relation avec cette partie (gestion des TList et des images).

Bonjour,
voici la fonction complète

J'ai mis en commentaire le question qui me pose probleme

Le paramètre d'entre /sortie pListes
*peut retourner un liste pour un enrgistrement qui contient un image
*peut retourner un liste de liste pour un enrgistrement qui contient n image
* NUll si rien

merci par avance

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
bool __fastcall TIbSgbd::ToCache(TIBClientDataSet * pCache, TIBQuery * pQuery,TList *pListes )
{
 bool Result=false;    // resultat de la methode
 
 try{
 
     TDataSet *pDs=GetQueryResult(pQuery); // execute un requete sql de //type select
 
 
   //  pQuery->Open();
 
     if(!pDs){
        return Result;
     }
 
     if(pDs->Eof){
         return Result;
     }
 
     int FieldsCount=pDs->FieldCount;
 
     TVarRec *pEnreg=new TVarRec[FieldsCount]; //pt sur un tableau deTVarRec
     Variant *pValeur=new Variant[FieldsCount]; //pt sur un variant
     int j=0;
 
     try{
     //on met en cache les donnes provenenant de requete SQL type select
 
           pCache->Close();
           pCache->FieldDefs->Clear();
 
           // ajout de champ en fonction du resultat de la requete SQL
 
 
           for(int i= 0;i<FieldsCount;i++){
 
              /* if(pDs->Fields->Fields[i]->DataType==ftInteger)
               {                  //   GetData
 
               ShowMessage( pDs->Fields->Fields[i]->DisplayLabel);
               }  */
 
               pCache->FieldDefs->Add(pDs->Fields->Fields[i]->DisplayLabel,
                                      pDs->Fields->Fields[i]->DataType,
                                      pDs->Fields->Fields[i]->Size);
                 //ShowMessage(pCache->Fields->Fields[i]->DisplayLabel);
 
           }
 
 
           pCache->CreateDataSet();// creation du DataSet
 
           pDs->First();
 
 
                while(!pDs->Eof){     // parcour des enregistrements
 
 
                  for(int i=0;i<FieldsCount;i++){  // par des champ des enregistrement
 
 
                          // ShowMessage(pDs->Fields->Fields[i]->CurValue);
 
                          pValeur[i]=pDs->Fields->Fields[i]->CurValue; // stockage du pointeur
 
                          // transtypage de valeur
 
                          switch(pDs->Fields->Fields[i]->DataType)
                          {
 
                           case ftString :{
                                 pEnreg[i]=VarToStr(pValeur[i]);
 
                               // ShowMessage(pDs->Fields->Fields[i]->DisplayLabel + "  string");
                                break;
                                }
                           case ftFloat:{
                                pEnreg[i]= (float)pValeur[i];
                             //   ShowMessage(pDs->Fields->Fields[i]->DisplayLabel + "  float");
                                break;
                                }
                           case ftInteger:{
                                pEnreg[i]=(int)pValeur[i];
 
                               // ShowMessage(pDs->Fields->Fields[i]->DisplayLabel + "  integer");
                                break;
                                }
                           case ftBCD: { // on converti en curency
 
                                pEnreg[i].VType=ftCurrency; // on force le "type" de TVArRec
                                pEnreg[i]=(Currency)pValeur[i];
                               // ShowMessage(pDs->Fields->Fields[i]->DisplayLabel + "  Currency");
                                break;
                                }
 
                            case ftBlob:{
 
                              TStream *pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite);    // on lit
                              TMemoryStream *pMs =new TMemoryStream;
                              pMs->LoadFromStream(pStlu);
 
 
 
                              // ceci me sert a savoir si le donnes sont bonne pour le debug
 
                              j++;
                              pMs->SaveToFile("TEST"+IntToStr(j)+".bmp");
 
                              // ceci me sert a savoir si le donnes sont bonne pour le debug
                              TList *MyList = new TList;
                              MyList->Add(pMs);
 
 
                             //  lecture et test dans la liste chaine
                               TMemoryStream * pmstlu=new TMemoryStream;
                               pmstlu->LoadFromStream((TMemoryStream*)MyList->Items[i]);
                               pmstlu->SaveToFile("pstlu"+IntToStr(j)+".bmp");
                               delete pmstlu;
 
 
                               //mise en place dans le paramatrer en tree /sortie
                               // valable pour un seule liste d'image
                               // comment faire pour n image ?
                               pListes= new TList;
 
                               pListes->Add(pMs);
 
 
 
                              pValeur[i]=NULL;// a finir de tester dans le cas d'un ftblob
 
                              pEnreg[i]=pValeur[i];
 
                              delete pMs;
 
                             break;
                            }
                          }
 
 
 
 
 
                  }
 
 
                pCache->AppendRecord(pEnreg,FieldsCount-1); // ajout d'enrigestrement
                // ShowMessage(pCache->FieldByName("NOM")->AsString);
                      //pCache->AppendData()
 
                pDs->Next();
                }
 
                _RecordCacheCount=pCache->RecordCount;      // a voir si utile
                Result=true;
 
        }
 
        __finally {   // fin second catch
 
            delete[]pEnreg;
            delete[] pValeur;
            return Result;
 
         }
 
     }catch(...){     // fin premier catch
 
      return Result;
     }
 
 }

Bonjour,

J'ai pas testé le code suivant mais il doit être proche de ce que vous voulez obtenir. La fonction vous renvoie un pointeur sur un TList. Le pointeur est égal à NULL s'il n'y a pas d'image (et donc pas de delete à faire).

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
TList* __fastcall TForm1::ToCache(TIBClientDataSet * pCache, TIBQuery * pQuery,TList *pListes ) // pointeur == NULL => pas d'image; pointeur != NULL => nombre d'image défini par count
{
TList *Result = NULL;    // resultat de la methode
try {
    TDataSet *pDs=GetQueryResult(pQuery); // execute un requete sql de //type select
    //  pQuery->Open();
    if (!pDs || pDs->Eof) {return Result;}
    int FieldsCount=pDs->FieldCount;
    TVarRec *pEnreg = new TVarRec[FieldsCount]; //pt sur un tableau deTVarRec
    Variant *pValeur = new Variant[FieldsCount]; //pt sur un variant
    int j=0;
    try { //on met en cache les donnes provenenant de requete SQL type select
        pCache->Close();
        pCache->FieldDefs->Clear();
        // ajout de champ en fonction du resultat de la requete SQL
        for (int i= 0;i<FieldsCount;i++)
            {
            pCache->FieldDefs->Add(pDs->Fields->Fields[i]->DisplayLabel,
                                   pDs->Fields->Fields[i]->DataType,
                                   pDs->Fields->Fields[i]->Size);
            }
        pCache->CreateDataSet();// creation du DataSet
        pDs->First();
        while (!pDs->Eof)
              {                                 // parcour des enregistrements
              for (int i=0;i<FieldsCount;i++)   // par des champ des enregistrement
                  {
                  if (j == 0)
                     {
                     Result = new TList(); // allocation de la mémoire pour la liste. Ne pas faire de delete dans cette fonction, il faut impérativement le faire à l'extérieur
                                           // on connait le nombre d'image grace à la propriété count de la liste
                     }
                  pValeur[i]=pDs->Fields->Fields[i]->CurValue; // stockage du pointeur
                  // transtypage de valeur
                  switch (pDs->Fields->Fields[i]->DataType)
                         {
                         case ftString : {
                                         pEnreg[i]=VarToStr(pValeur[i]);
                                         break;
                                         }
                         case ftFloat : {
                                        pEnreg[i]= (float)pValeur[i];
                                        break;
                                        }
                         case ftInteger : {
                                          pEnreg[i]=(int)pValeur[i];
                                          break;
                                          }
                         case ftBCD : { // on converti en curency
                                      pEnreg[i].VType=ftCurrency; // on force le "type" de TVArRec
                                      pEnreg[i]=(Currency)pValeur[i];
                                      break;
                                      }
                         case ftBlob : {
                                       TStream *pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite);    // on lit
                                       TMemoryStream *pMs =new TMemoryStream;
                                       pMs->LoadFromStream(pStlu);
                                       // ceci me sert a savoir si le donnes sont bonne pour le debug  // test
                                       j++;                                                            // test
                                       pMs->SaveToFile("TEST"+IntToStr(j)+".bmp");                     // test
                                       // ceci me sert a savoir si le donnes sont bonne pour le debug  // test
                                       //TList *MyList = new TList;
                                       //MyList->Add(pMs);
                                       Result->Add(pMs);
                                       //  lecture et test dans la liste chaine
                                       TMemoryStream * pmstlu=new TMemoryStream;                       // test
                                       pmstlu->LoadFromStream((TMemoryStream*)MyList->Items[i]);       // test
                                       pmstlu->SaveToFile("pstlu"+IntToStr(j)+".bmp");                 // test
                                       delete pmstlu;                                                  // test
                                       //mise en place dans le paramatrer en tree /sortie
                                       // valable pour un seule liste d'image
                                       // comment faire pour n image ?
                                       //pListes= new TList; // ???
                                       //pListes->Add(pMs);  // ???
                                       pValeur[i]=NULL;// a finir de tester dans le cas d'un ftblob
                                       pEnreg[i]=pValeur[i];
                                       //delete pMs; Ne pas supprimer pMs ici, il faut le faire juste avant de supprimer la liste, sinon le pointeur stocker ne pointe plus sur rien
                                       break;
                                       }
                         }
                  }
              pCache->AppendRecord(pEnreg,FieldsCount-1); // ajout d'enrigestrement
              pDs->Next();
              }
        _RecordCacheCount=pCache->RecordCount;      // a voir si utile
        Result=true;
        }
    __finally {   // fin second catch
              delete[]pEnreg;
              delete[] pValeur;
              return Result;
              }
     }
catch(...){}
return Result;
}

Code utilisant cette fonction :

Code:

1
2
3
4
5
6
7
//blablabla
TList *list_temp = machin->ToCache(les différents paramètres);
//Utilisation de list_temp
 
list_temp->Count; // nombre d'images
 
list_temp->Items[i]; // pour utiliser ces images : i < count

Code:

1
2
3
4
5
6
7
// pour libérer la mémoire quand on en a plus besoin
while (list_temp->Count > 0)                // parcours de toute la liste d'image pour la vider
      {
      delete (TMemoryStream *)list_temp->Items[0]; // libération de la mémoire allouée aux images
      list_temp->Delete(0)                  // suppression du pointeur de l'image traité de la liste
      }
delete list_temp;

Vous pouvez aussi sauvegarder ce pointeur de list dans une autre liste pour une utilisation ultérieur.

Ceci convient-il à votre besoin?

Il existe surement des moyens plus simple de le faire mais je ne vois pas comment.

Bonjour et un grand merci a toutes vos contributions :)

Ayant de difficultés a manipuler de liste de lise j'ai fais ce petit bout
de code comme test
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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 void __fastcall TForm1::Button2Click(TObject *Sender) { typedef struct TPers { AnsiString Nom; }TPers ; TPers *pPers=new TPers[2]; pPers[0].Nom="a"; pPers[1].Nom="b"; TList * TabList =new TList; // talbeau de liste TList *p[4]; // 3 listes p[0]=new TList; // 1 liste initilisée TabList->Add(p[0]); //p[0]->Add(pPers[0]); p[0]->Add(pPers); TPers *temp; // parcour d'un liste for (int i = 0; i < p[0]->Count; i++){ temp=(TPers*)(p[0]->Items[i]); ShowMessage(temp->Nom); } // parcours de liste de liste for (int i=0;i<TabList->Count ;i++) { TList *TempList=(TList*)(p[i]->Items[i]); for( int j=0; j<TempList->Capacity;j++) { TPers *temp=(TPers*)(p[i]->Items[j]); ShowMessage(temp->Nom); } } }
lorsque je je fais
Code:

1 2 3 p[0]->Add(pPers[0]); p[0]->Add(pPers[1]);
J'ai ce message
[

Citation:

C++ Erreur] Unit1.cpp(130): E2034 Impossible de convertir 'TPers' en 'void *'

si je fais ceci

Code:

p[0]->Add((TPers*)pPers[0]);

==>

Citation:

[C++ Erreur] Unit1.cpp(129): E2031 Impossible de transtyper de 'TPers' en 'TPers *'

le problème et j'arrive a afficher la lettre 'a' uniquement
comment faire pour ajouter 'a' puis 'b' ?

Ce code se rapprocherais de ce que je veux faire

encore mille fois merci d'avance.....
dur dur ce liste chainées

Tout d'abord, je ne vois pas l'intérêt d'utiliser une structure n'ayant qu'un AnsiString, on peut utiliser un TStringList pour avoir des tableaux d'AnsiString.

Ensuite, la correction de la 2ème partie :
Code:

1 2 3 4 5 6 7 8 9 for (int i=0;i<TabList->Count ;i++) { TList *TempList=(TList*)(p[i]->Items[i]); // faux : TabList->Items[i] sous réserve d'une erreur de syntaxe for( int j=0; j<TempList->Capacity;j++) // TempList->Count capacity ressemble à count mais ce n'est pas toujours le cas { TPers *temp=(TPers*)(p[i]->Items[j]); // TempList->Items[j] ShowMessage(temp->Nom); } }
Une fois ces corrections apportées, il reste quoi comme erreur?

Bonjour
j'ai crée cette structure afin des faire des test sans a toucher pour l'instant a ma procedure ToCache afin de mieux comprendre le fonctionnement d
e la classe Tlist .
Par la suite je manipulerais des MemoryStream

voici la correction effectuée
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 37 38 39 40 41 42 43 44 45 46 void __fastcall TForm1::Button2Click(TObject *Sender) { typedef struct TPers { AnsiString Nom; }TPers ; TPers *pPers=new TPers[2]; pPers[0].Nom="a"; pPers[1].Nom="b"; TList * TabList =new TList; // tableau de liste TList *p[4]; // 3 listes p[0]=new TList; // 1 liste initialisée p[0]->Add(&pPers[0]); //référence p[0]->Add(&pPers[1]); TPers *temp; // parcour d'un liste for (int i = 0; i < p[0]->Count; i++){ temp=(TPers*)(p[0]->Items[i]); ShowMessage(temp->Nom); } // parcours de liste de liste for (int i=0;i<TabList->Count ;i++) { TList *TempList=(TList*)(TabList->Items[i]); for( int j=0; j<TempList->Count;j++) { TPers *temp=(TPers*)(p[i]->Items[j]); ShowMessage(temp->Nom); } } }
Avant de continuer ce code est il "correct" ?

Dans ma fonction Add il fallait passer un référence

il reste plus qu'a faire le delete ....

encore merci

06/07/2009, 18h13
gandf
Je ne comprends pas pourquoi vous n'avez pas modifié le code du dernier for pour utiliser TempList :
Code:

1 2 3 4 5 for( int j=0; j<TempList->Count;j++) { TPers *temp=(TPers*)(TempList->Items[j]); ShowMessage(temp->Nom); }
Le 1er for a permis de parcourir les TList et le suivant permet de parcourir les list touvé. La plupart du temps, par défaut, quand on utilise une valeur comme TempList->Count pour la condition, on l'utilise ensuite dans la boucle.

D'autre part, vous avez supprimer TabList->Add(p[0]); et il le fallait pour ce code. Après, tout dépend de ce que vous voulez faire.

Bonjour
merci de remarques et merci encore a tous ceux qui m'ont aider

Un petit état de la mémoire
-liste image0-----liste Image 1-
monimage1monimage2
monimage3 monimage4
etc....

monimage1 va dans la Liste 0
monimage2 va ans la liste 1
monimage3 va dans la Liste 0
monimage4 va ans la liste 1
etc.... etc ...

avec ce code j'arrive enfin a lire dans l'ordre les limage
"Image1" "image2" etc..etc
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 void __fastcall TForm1::AfficheListe2(const TList* TabList) { //TabList Liste de liste ///premier element de la liste de liste // les liste de liste sont de même taille a chaque fois // je peux écrire TList * Liste0 =(TList*)TabList->Items[0]; int NbObj=Liste0->Count; for(int i=0;i<NbObj;i++) // par parcour de nombre d'object dans un liste { for (int j=0 ;j<TabList->Count ;j++) // on change de liste a chauqe itteration { TList *Listelu=(TList*)TabList->Items[j]; TPers *PersLu=(TPers *)Listelu->Items[i]; ShowMessage(PersLu->Nom); } } }
ce code vous parait il correct ?

autre chose dans mon code
a un nomment je déclare ceci

Code:

TList *liste[10]

donc 10 pointeurs sur TList;

imaginons que je veuille declarer 30 images
comment faire dynamiquement pour redimensionner ceci ?
j'ai essaye avec un new sans succès

merci :D

08/07/2009, 17h18
gandf
Votre code est valable uniquement parce que vous avez le même nombre d'objets dans chaque liste. Sinon, cela plantera.

Concernant votre problème avec votre tableau de TList, je ne comprend pas.

En effet, vos TList permettent de stocker les pointeurs sur les images. Il est inutile d'avoir une TList par image. En effet, on utilise une TList pour ne pas avoir à gérer un tableau dynamique. Au lieu de créer un tableau de TList, créez les TList au fur et à mesure de vos besoins en stockant leur adresse dans le TabList.

Si vous voulez vraiment procéder de cette façon, je ne peux pas vous dire simplement comment faire pour redimensionner dynamiquement votre tableau. On peut surement le faire plus simplement mais je créé un nouveau tableau de la taille désiré, je recopie les données (donc juste des pointeurs) puis je libère l'ancien tableau. De plus, il me semble que l'on doit indiquer un pointeur sur la liste et c'est sur le new que l'on indique le nombre que l'on en veut.
Code:

1 2 3 TList *liste = new TList[10]; liste // accès au premier élément exemple liste->Count (liste+1) // accès au 2ème élément exemple : (liste+1)->Count

Pour lire mes liste elle sont toujours de même taille.

voila comment initialise mes liste

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 
 
TPers *pPers=new TPers[6];
pPers[0].Nom="Image1";   //liste 0 image 0    //colone ligne
pPers[1].Nom="Image2";  // liste 1 image 1
pPers[2].Nom="Image3";  // liste 2 image 2
pPers[3].Nom="Image4";  // liste 0 image 3
pPers[4].Nom="Image5";  // liste 1 image 5
pPers[5].Nom="Image6";  // liste 2 image 6
 
int NbListe=3;
 //const int NombreListe= NbListe;
 
TList *TabList=new  TList;
/* code ok */TList *liste[10];
 
//TList *liste;
      if(NbListe>1)   // redimensionement de liste
      {
        //faire le new
 
 
        for (int i=0;i<NbListe;i++)
        {
          liste[i]=new TList;
          //TabList->Add(liste[i]);
 
           TabList->Add(liste[i]);
            // ajout des liste dans les liste
        }
 
 
      }
     // ShowMessage(TabList->Count);
 
 
      // initilsation de liste
      liste[0]->Add(&pPers[0]);  //image1    liste0
      liste[1]->Add(&pPers[1]);  //image 2  liste1
      liste[2]->Add(&pPers[2]);  //image 3  liste  2
 
      liste[0]->Add(&pPers[3]);  //image 4  liste0
      liste[1]->Add(&pPers[4]);   //image 5 liste 1
      liste[2]->Add(&pPers[5]);   // image 6 liste 2
 
 
      AfficheListe2(TabList);
 
}

Justement quand je fais ceci a l'exécution j'ai une violation d'acces
je cherchais un autre solution

Code:

TList *liste = new TList[10];

est ce que cela viens de mon compilateur ?

merci

09/07/2009, 12h42
gandf

Dans les options du projet, vous pouvez activer codeguard qui doit vous signaler les problèmes de mémoire.

Vous pouvez aussi mettre un point d'arrêt (un point rouge dans la marge et la ligne aussi est rouge) pour exécuter ce morceau de code en pas à pas (F8 pour exécuter la ligne en cours). Il faut être en mode debug pour utiliser ce mode. Cela permet de trouver le ligen qui pose cette erreur et ainsi d'en déduire le bug à corriger (qui n'est pas forcement sur la ligne en question).
09/07/2009, 15h25
o_live
Bonjour,
j'ai deja toute ces option activées

j'ai juste fait ce test sur uniquement une seule ligne de code et j'ai toujours cette violation d'acces

Est ce que cette même ligne de code fait un violation d'acces
sur votre machine ?

Qui peut tester ce bout de code et me dire ?

Je me demande si cela ne viens pas de mon compilateur ?
Code:

1 2 3 4 5 void __fastcall TForm1::Button5Click(TObject *Sender) { TList *testListe=new TList[10]; }
Citation:

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet Tlist.exe a provoqué une classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 89C489C4. Lecture de l'adresse 89C489C4'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK Aide
---------------------------

merci
09/07/2009, 17h41
gandf

Avec C++Builder 2006, j'ai le même problème mais le message d'erreur est différent (exception externe EEFFACE).

De toute façon, il n'y a pas besoin de faire un tableau de TList, on peut les créer une à une et stocker leurs pointeurs dans le TList principal.

Citation:

Je me demande si cela ne viens pas de mon compilateur ?

Oui, et non, en même temps...
C'est une des joyeusetés de la VCL: les classes qui dérivent de TObject doivent être créées par un new, et on ne peut pas en créer un tableau !

C'est clair quand tu fais

Code:

TList liste;

Le compilo gueule tout de suite.

Par contre il laisse passer

Code:

TList* listeDeListe=new TList[10];

et tu le découvres à l'exécution...

Par exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
class TListX : public System::TObject
{
public:
	__fastcall TListX(void) : System::TObject() { }
};
 
class TListY
{
public:
	__fastcall TListY(void) { }
};

Code:

1
2
3
4
5
void __fastcall TForm33::vBtn1Click(TObject *Sender)
{
TListY *testListeY=new TListY[10];
TListX *testListeX=new TListX[10];
}

Pour TListY, ça passe.
Pour TListX, violation d'accès....

Pour terminer:

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
void __fastcall TForm33::vBtn1Click(TObject *Sender)
{
  TPers *pPers=new TPers[6];
  pPers[0].Nom="Image1";   //liste 0 image 0    //colone ligne
  pPers[1].Nom="Image2";  // liste 1 image 1
  pPers[2].Nom="Image3";  // liste 2 image 2
  pPers[3].Nom="Image4";  // liste 0 image 3
  pPers[4].Nom="Image5";  // liste 1 image 5
  pPers[5].Nom="Image6";  // liste 2 image 6
 
  int NbListe=3;
   //const int NombreListe= NbListe;
 
  TList *TabList=new TList;
  for (int i=0; i<NbListe; i++)
    TabList->Add(new TList);
 
  // initilsation de liste
  TList* liste0 = (TList*)(TabList->Items[0]);
  TList* liste1 = (TList*)(TabList->Items[1]);
  TList* liste2 = (TList*)(TabList->Items[2]);
 
  liste0->Add(&pPers[0]);  //image1    liste0
  liste1->Add(&pPers[1]);  //image 2  liste1
  liste2->Add(&pPers[2]);  //image 3  liste  2
 
  liste0->Add(&pPers[3]);  //image 4  liste0
  liste1->Add(&pPers[4]);   //image 5 liste 1
  liste2->Add(&pPers[5]);   // image 6 liste 2
 
  AfficheListe2(TabList);
}

Allez, si tu veux vraiment utiliser des TList, y'a moyen de rendre la chose plus pratique:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
class TPers
{
  public:
  AnsiString Nom;
  TPers(AnsiString nom) : Nom(nom) {}
  TPers(void) {}
};
 
template <class T> class TListT : public TList
{
public:
__property T* Items[int p_indice] = {read = LireItem, write=EcrireItem};
 
private:
  T* __fastcall LireItem(int i) { return (T*)Get(i); }
  void __fastcall EcrireItem(int i, T* p) { Put(i, 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
37
38
void __fastcall TForm33::vBtn2Click(TObject *Sender)
{
  int NbListe=3;
 
  TListT<TPers>* uneListe = new TListT<TPers>;
  uneListe->Add(new TPers("Im1"));
  uneListe->Add(new TPers("Im2"));
  TPers* pers = uneListe->Items[0];
  uneListe->Items[1]->Nom = "Im3";
  for (int i=0; i<uneListe->Count; i++)
    delete uneListe->Items[i];
  delete uneListe;
 
  TListT< TListT<TPers> > *TabList=new TListT< TListT<TPers> >;
  for (int i=0; i<NbListe; i++)
    TabList->Add(new TListT<TPers>);
 
  TabList->Items[0]->Add(new TPers("Image1"));  //image1    liste0
  TabList->Items[1]->Add(new TPers("Image2"));  //image 2  liste1
  TabList->Items[2]->Add(new TPers("Image3"));  //image 3  liste  2
 
  TabList->Items[0]->Add(new TPers("Image4"));  //image 4  liste0
  TabList->Items[1]->Add(new TPers("Image5"));   //image 5 liste 1
  TabList->Items[2]->Add(new TPers("Image6"));   // image 6 liste 2
 
  TabList->Items[2]->Items[0]->Nom = "Toto";
 
  AfficheListe2(TabList);
 
  for (int i=0; i<TabList->Count; i++)
  {
    TListT<TPers>* listeP = TabList->Items[i];
    for (int j=0; j<listeP->Count; j++)
      delete listeP->Items[j];
    delete listeP;
  }
  delete TabList;
}

1 pièce(s) jointe(s)

Merci totoche :merci :
ton code est très pratique mais il va falloir que je rebosse le templates
mais de loin c'est plus pratique

tu ma donne un super idée créer une structure ou classe qui contiendrais
Code:

1 2 3 4 5 6 typedef struct TFlux { TMemoryStream *pMs; bool IsPicture // sert a tester si le champ blob est une image ou du texte }TFlux;
est ce possible ?
est ce bien ?

Par contre reste a savoir
comment on teste la nature d'un flux blob pour savoir si c'est un flux qui contient de images ou soit du texte.....J'ai pas tout compris
avez vous un exemple de code ?

Je vais essayer de l'adapter pour le reste de ma fonction.

pour le destruction actuellement je fais
avez, vous de critique a faire a ce code ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 void _fastcall TForm1::FreeTABList(TList * TabList) { //On effcace tous toutes les listes for( int i=0;i<TabList->Count;i++) // parcours du tableau de liste { TList *ListeLu=(TList*)TabList->Items[i]; for(int j=0 ;j<ListeLu->Count;j++) // parcours de la liste { delete(TPers*)ListeLu->Items[j]; //on libere la memoire de l'objet delete ListeLu->Items[j]; // on libère le pointeur dans la liste } delete ListeLu; // destruction d'une pointeur de liste ListeLu=NULL; delete TabList->Items[i]; // destruction du pointeur dans la liste } delete TabList; // destruction de tableau de liste TabList=NULL; }
J'avais un petite question j'aurais voulu en savoir plus
Quant je compile sans codeguard et que j'exécute
tous se passe bien

Quand j'active codeguard cela s'exécute sans problème mais j'ai ces warning
Dans la capture écran donnée ,et par rapport au code ce sont le 2 premières lignes en rouge . C'est au premier passage dans la boucle.

j'aurais aimé en savoir plus......si vous pouvez m'expliquez

encore merci a tous les deux pour votre aide précieuse :)

10/07/2009, 10h10
gandf
Vous pouvez enlever la ligne suivante :

Code:

ListeLu=NULL;

Vu que c'est une variable temporaire, sa durée de vie est limité à sa boucle. Et comme vous la videz juste avant qu'elle ne soit détruite, cela ne sert à rien.
Mais ce n'est pas grave.
Concernant votre problème de codeguard, je ne sais pas comment vous les avez créé mais la il vous dit que les fonctions que vous voulez supprimer ont été créée avec new[] et qu'il faut donc les libérer avec delete[] et non pas avec delete.
Essayez :
Code:

1 2 delete[] (TPers*)ListeLu->Items[j]; //on libere la memoire de l'objet delete[] ListeLu->Items[j]; // on libère le pointeur dans la liste
Concernant la détection des images, il me semble que chaque format d'image commence par une entête (‰PNG ou 8950AE47 en hexa pour un fichier PNG, GIF89a pour un GIF, BM6 pour un BMP, ...). J'ai trouvé ces valeurs avec un éditeur hexadécimal.

En plus de ce que dit gandf, pourquoi supprimer 2 fois le même objet ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void _fastcall TForm1::FreeTABList(TList * TabList)
{
        //On effcace tous toutes les listes 
        for( int i=0;i<TabList->Count;i++)    // parcours du tableau de liste
        {
           TList *ListeLu=(TList*)TabList->Items[i];
           for(int j=0 ;j<ListeLu->Count;j++) // parcours de la liste
           {
             delete (TPers*)(ListeLu->Items[j]); //on libere la memoire de l'objet
             // delete ListeLu->Items[j]; // idem que précédent
           }
           delete ListeLu; // destruction d'une pointeur de liste
           // ListeLu=NULL; // Inutile
           // delete TabList->Items[i]; // déjà fait
 
        }
        delete TabList;  // destruction de tableau de liste
        // TabList=NULL; // Inutile
}

Bonjour j'ai essayé ceci

Code:

1
2
3
4
 
   for(int j=0 ;j<ListeLu->Count;j++){ // parcours de la liste
           delete [] (TPers*)(ListeLu->Items[j])
   }

effectivement code guard ne broche plus mais au second passage dans ma boucle j'ai un violation d'acces "indice en dehors de limites"

J'ai créée mes listes comme ceci avec mon ancien code mais je compte bien utiliser le troisième solution de Totoche 76 il va falloir que je prevois de l'aspirine......;)

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
37
38
39
40
41
42
43
44
45
46
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TPers *pPers=new TPers[6];
pPers[0].Nom="Image1";   //liste 0 image 0    //colone ligne
pPers[1].Nom="Image2";  // liste 1 image 1
pPers[2].Nom="Image3";  // liste 2 image 2
pPers[3].Nom="Image4";  // liste 0 image 3
pPers[4].Nom="Image5";  // liste 1 image 5
pPers[5].Nom="Image6";  // liste 2 image 6
 
int NbListe=3;
 //const int NombreListe= NbListe;
 
TList *TabList=new  TList;
/* code ok */
TList *liste[10];// un liste
 
//TList *liste;
      if(NbListe>1)   // redimensionement de liste
      {
 
        for (int i=0;i<NbListe;i++)
        {
          liste[i]=new TList;
          TabList->Add(liste[i]);
            // ajout des liste dans les liste
        }
 
 
      }
     // ShowMessage(TabList->Count);
 
 
      // initilsation de liste
      liste[0]->Add(&pPers[0]);  //image1    liste0
      liste[1]->Add(&pPers[1]);  //image 2  liste1
      liste[2]->Add(&pPers[2]);  //image 3  liste  2
 
      liste[0]->Add(&pPers[3]);  //image 4  liste0
      liste[1]->Add(&pPers[4]);   //image 5 liste 1
      liste[2]->Add(&pPers[5]);   // image 6 liste 2
 
     AfficheListe2(TabList);
     FreeTABList(TabList);
 
}

Citation:

Concernant la détection des images, il me semble que chaque format d'image commence par une entête (‰PNG ou 8950AE47 en hexa pour un fichier PNG, GIF89a pour un GIF, BM6 pour un BMP, ...). J'ai trouvé ces valeurs avec un éditeur hexadécimal.

Comment lire une entête de flux ? je ne sais pas faire du tout
avez vous un exemple ?

merci

Tout d'abord pour le bug d'indice hors limite :
Vous avez fait :

Code:

TPers *pPers=new TPers[6];

Et si je ne me trompe pas, la ligne qui vous pose problème est celle qui libère cette mémoire.

Hors, le bon pointeur est stocké dans le 1er item de votre liste et un delete[] supprime déja tout le tableau. Donc quand vous passer à l'élément suivant, il est déja détruit.

Concernant le flux, vous avez toutes les fonctions pour le faire via votre TMemoryStream.
Code:

1 2 3 pMs->Position; // la position en cours sur le flux, les données lues le seront depuis cette position pMs->Size; // la taille total du flux en octet pMs->Read (void * Buffer, int Count); // lit au maximum Count octet depuis Position et l'envoie à l'adresse Buffer que l'on a choisi. Cette fonction renvoie le nombre d'octets réellement lues. Cette fonction met à jour Position pour le positionner à la fin de ce qui vient d'être lu.

Bonjour et bonne fetes :)
encore un grand merci a ceux qui m'ont aider

Je me suis inspiré du code de Totoche 76

j'ai une fonction qui a ce prototype
Code:

1 2 bool __fastcall ToCache2(TIBClientDataSet * pCache, TIBQuery * pQuery,TListList<TListList<TFlux> >*pListList ) ;
Quand je veux recuperer le ppointeur pListList pour m'en servir ailleur
j'ai une message d'erreur de code guard "method called on invalid object"

je fais ceci , je prcise , j'ai un liste et une image dans mon jeu d'essais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 IbSgbd->IBQuery1->Close(); IbSgbd->IBQuery1->SQL->Clear(); IbSgbd->IBQuery1->SQL->Add(" select IMAGE from articles"); TListList<TListList<TFlux> >*pListList; IbSgbd->ToCache2(IbSgbd->IBClientDataSet,IbSgbd->IBQuery1,pListList); // on affiche dans dbgrid2 DBGrid2->DataSource=IbSgbd->DataSource3; TMemoryStream *pTestMen =new TMemoryStream; pTestMen->LoadFromStream((TStream *)pListList->Items[0]->Items[0]->pMsLu); // violation d'acces pTestMen->SaveToFile("SUPER_TEST1.bmp");
en changeant le prototype de ma fonction
Code:

1 2 TListList<TListList<TFlux> >* __fastcall ToCache3(TIBClientDataSet * pCache, TIBQuery * pQuery/*,TListList<TListList<TFlux> >*pListList */) ;
J'arrive a recupere mon pointeur et a afficher mon image issus d'un flux blob
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 IbSgbd->IBQuery1->SQL->Clear(); IbSgbd->IBQuery1->SQL->Add(" select IMAGE from articles"); TListList<TListList<TFlux> >*pListList; pListList=IbSgbd->ToCache3(IbSgbd->IBClientDataSet,IbSgbd->IBQuery1/*,pListList*/); // on affiche dans dbgrid2 DBGrid2->DataSource=IbSgbd->DataSource3; TMemoryStream *pTestMen =new TMemoryStream; pTestMen->LoadFromStream((TStream *)pListList->Items[0]->Items[0]->pMsLu); DBImage1->Picture->Bitmap->LoadFromStream(pTestMen);
Ma question est comment faire pour que dans le premier cas je puise récupérer mon pointeur en entrée /sortie afin de l'utiliser ailleurs ?

merci encore et bonne fêtes :)