Discussion :

[o_live]

Bonjour,
je recherche un exemple de code avec TVarRec

j'ai commencé ceci

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
void __fastcall TForm1::BtTVarRectClick(TObject *Sender)
{
TVarRec * p=new TVarRec[4];
 
p[0]=1;
AnsiString s=(p[0].VAnsiString)  ;
ShowMessage((p[0]);
p[1]="toto";
ShowMessage(p[1]);
p[2]=2;
 
 
delete[] p;
 
}

J'ai un message d'erreur

[C++ Erreur] TMainForm.cpp(337): E2034 Impossible de convertir 'void *' en 'AnsiString'

Qui peut m'aider ?

[totoche76]

Hello,

Code :

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

1
2
3
4
5
6
 
TVarRec * p=new TVarRec[4];
AnsiString toto = "toto";
p[1]=toto;
AnsiString s=(char*)(p[1].VAnsiString)  ;
ShowMessage(s);

Par contre fait gaffe, tu ne stockes dans p[1].VAnsiString que le pointeur vers la chaîne. Il n'est valable que pendant la durée de vie de toto.

Essaie ceci pour voir (c'est foireux, juste pour essayer):

Code :

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

1
2
3
4
5
6
7
8
9
10
TVarRec * p=new TVarRec[4];
 
{
AnsiString toto = "toto";
p[1]=toto;
}
AnsiString titi="jiji";
AnsiString s=(char*)(p[1].VAnsiString)  ;
 
ShowMessage(s);

Code :

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

1
2
3
4
5
6
7
TVarRec * p=new TVarRec[4];
 
p[1]=AnsiString("toto");
AnsiString titi="jiji";
AnsiString s=(char*)(p[1].VAnsiString)  ;
 
ShowMessage(s);

[o_live]

Bonjour et merci du coup de main

Je recherche a lire des enregistrement venant d'une base de données
est il possible avec TVarRec d'avoir des champs de différentes nature ?

par exemple: ID NOM PRIX,STKMAX,STKMIN
type : INT ,String,Currency,INT,INT

Quand je fais ceci je perds la valeur et je ne vois pas pourquoi
(les champ dans le base de données sont des différentes natures)

Que faut il faire pour bien affecter correctement pEnreg ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
     int FieldsCount=pDs->FieldCount; //pDs pt sur DataSet
     TVarRec *pEnreg=new TVarRec[FieldsCount];
 
             //   while(!pDs->Eof){
 
                      for(int i=0;i<FieldsCount;i++){
 
                        pEnreg[i]=pDs->Fields->Fields[i]->CurValue;
                        ShowMessage((char*)(pEnreg[i].VAnsiString)); 
                      }
              //  }

merci

[totoche76]

Hello,

Code :

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

1
2
pEnreg[i]=pDs->Fields->Fields[i]->CurValue;
ShowMessage((char*)(pEnreg[i].VAnsiString));

CurValue te renvoie un Variant, donc pEnreg[i] va stocker un pointeur sur ce variant.

Comme on ne stocke que le pointeur, faut se débrouiller pour faire persister la valeur... Par exemple, comme ceci:

Code :

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

1
2
3
4
5
6
7
TVarRec* pEnreg=new TVarRec[FieldsCount];
Variant* pValeurs=new Variant[FieldsCount];
for (int i=0; i<FieldsCount; i++)
{
  pValeurs[i] = pDs->Fields->Fields[i]->CurValue; 
  pEnreg[i] = pValeurs[i];
}

Pour accéder au contenu du TVarRec, il vaut mieux (cf. systvar.h) toujours utiliser la propriété qui correspond exactement à la donnée que tu as stockée:

Code :

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

1
2
for (int i=0; i<FieldsCount; i++)
  ShowMessage(*pEnreg[i].VVariant);

Ensuite, tu pourras peut-être enfin faire

Code :

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

pCache->AppendRecord(pEnreg,FieldsCount-1);

[o_live]

Salut
je te dis un grand merci
cela fonctionne

J'ai une question est ce que je vais conserver
le type de mes variable?

Comment faire un par un type Blob ?
je conte stocker mes images dans le sgbd

encore vraiment merci

[totoche76]

J'ai une question est ce que je vais conserver
le type de mes variable?

Là, j'en sais rien... Faut essayer

Comment faire un par un type Blob ?
je conte stocker mes images dans le sgbd

J'ai vu qu'il existait CreateBlobStream sur TIBCustomDataSet, à essayer ??
Par contre le AppendRecord risque de faire des trucs bizarres avec un TBlobField: comme tu lui donnes des Variant, il appelle TBlobField->SetVarValue qui interprète ton blob comme étant une chaîne ... (ça, c'est en regardant dans DB.pas, il y a peut-être des comportements spécifiques à Firebird)