recherche exemple de code avec TVarRec

Bonjour,
je recherche un exemple de code avec TVarRec

j'ai commencé ceci

Code:

---

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

Citation:

---

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

---

Qui peut m'aider ?

Hello,

Code:

---

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:

---

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:

---

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

---

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 ?

Citation:

---

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:

---

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

Hello,

Code:

---

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:

---

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:

---

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

---

Ensuite, tu pourras peut-être enfin faire

Code:

---

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

---

Salut
je te dis un grand merci :D :ccool:
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

Citation:

---

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

---

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

Citation:

---

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)

Salut j'ai essaye tout est en variant
je vais essayer de convertir histoire d'avoir un copie fidèle

encore merci

Pour les champ de type blob je vais voir cela