SESAME VITALE - Lecture

(re)Bonjour,

J'ai finalement résolu la grande majorité de ms défauts avec cet API, j'arrive à gérer les fonctions principales sauf la lecture...

Je suis au même point que cette personne :

http://www.developpez.net/forums/d11...e/#post6287607
(sous Java mais l'intitulé est le même)

ET j'ai la même erreur à savoir une erreur qui indique un défaut dans les paramètres
Logiquement l'erreur est sur l'une de ses 2 valeurs

Code:

---

1 2

var pcDataOut: Pchar; //Zone de mémoire restituant les données lues dans la carte Vitale sur l'assuré et ses bénéficiaires. ==> char * (passée par adresse => adresse non nulle) var puiLgDataOut: Integer; //puiLgDataOut : taille allouée en entrée à DataOut / taille occupée par les données restituées. ==> unsigned int * (Valeur non nulle passée par adresse => adresse non nulle)

---

mais je ne vois pas comment déclaré cela autrement (je suppose que mon erreur est clairement dans mon type de déclaration de ces variables...)

Je pense que ça doit s'utiliser à peu près comme suit, compte tenu de la déclaration de la fonction ;

Code:

---

1 2 3 4 5

unsigned short Lec_LectureVitale ( unsigned short usNoSession, unsigned short usNoSessionCPS, char * pcDataOut, unsigned int * puiLgDataOut, unsigned short * pusCodeErreur );

---

à traduire en :

Code:

---

function Lec_LectureVitale( usNoSession: Word; usNoSessionCPS: Word; pcDataOut: PChar; var puiLgDataOut: Cardinal; var pusCodeErreur: Word) : Word;

---

pour l'utiliser sur le modèle :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var Buffer: PChar; ByteRead: Cardinal; NoSession, NoSessionCPS, ErrCode, RetCode: Word;   begin GetMem(Buffer, 100*1024); NoSession := 1; NoSessionCPS := 1; RetCode := Lec_LectureVitale( NoSession, NoSessionCPS, Buffer, ByteRead, ErrCode); //... FreeMem(Buffer); end;

---

Effectivement, cela fonctionne presque comme il faut !

Sur ton code, il manque juste de pré-remplir la valeur suivante

Code:

---

ByteRead:=102400;

---

avant d’exécuter la fonction.

Par contre, question bête, comment je réutilise le contenu de ma valeur Buffer (car là elle est rempli de signe chinois ! [je vais aller jeter un coup d'oeil dans les FAQ au cas où j'y trouve la réponse mais si quelqu'un passe par là...])

ton buffer est remplie de caractère chinois parce que la zone mémoire allouée est plus grande que la donnée mise à l'intérieure
ta variable ByteRead qui est passée en paramètre à ta fonction Lec_LectureVitale doit contenir normalement la longueur exacte de ton buffer a la sortie de la fonction.
ensuite il faut que tu ne prennes dans ton buffer les valeurs jusqu'à la valeur ByteRead

tu peux aussi pour éviter les caractères chinois, faire un zeromemory de ton buffer, aprés avoir fait ton getmem, pour initialiser ton buffer avec "rien" dedans

Citation:

---

Envoyé par jeromelef2

ton buffer est remplie de caractère chinois parce que la zone mémoire allouée est plus grande que la donnée mise à l'intérieure
ta variable ByteRead qui est passée en paramètre à ta fonction Lec_LectureVitale doit contenir normalement la longueur exacte de ton buffer a la sortie de la fonction.
ensuite il faut que tu ne prennes dans ton buffer les valeurs jusqu'à la valeur ByteRead

tu peux aussi pour éviter les caractères chinois, faire un zeromemory de ton buffer, aprés avoir fait ton getmem, pour initialiser ton buffer avec "rien" dedans

---

Alors j'ai essayer les choses suivantes :

Code:

---

1 2	GetMem(Buffer, 100*1024); ZeroMemory(@Buffer[0], sizeof(Buffer));

---

==> Cela ne change rien

Code:

---

1 2 3

//REmplacer par (NEW) GetMem(Buffer, 100*1024); New(Buffer);

---

==> Cela est pire

Je vois pas trop comment lire mon buffer de 0 à ByteRead, j'ai essayer avec Buffer[0] et cela indique un caractère chinois donc c'est pas bon mais je suppose que l'idée est à creuser en ce sens ?

Citation:

---

Envoyé par popeyes

==> Cela ne change rien

---

Ce qui est parfaitement normal. SizeOf retourne une constante à la compilation. Buffer est un pointeur, SizeOf renvoie 4.

Code:

---

1 2 3 4 5

var buffer :array[1..100*1024] of char; begin ZeroMemory(@Buffer[1], sizeof(Buffer)); end;

---

ou

Code:

---

1 2 3

Len := 100*1024; GetMem(Buffer, Len); ZeroMemory(Buffer, Len);

---

ou plus simplement

Code:

---

AllocMem(Buffer, 100*1024); //AllocMem équivaut à GetMem suivi de ZeroMemory

---

Citation:

---

Envoyé par Andnotor

Code:

---

AllocMem(Buffer, 100*1024); //AllocMem équivaut à GetMem suivi de ZeroMemory

---

---

J'ai un type incompatible en tentant de l'utiliser, les autres solutions génèrent soit un type incompatible soit une erreur en exécution...
J'ai tenté en utilisant ReallocMem (je n'ai pas d'erreur à la compilation) mais j'ai une erreur en exécution...

Oui, bon... Buffer := AllocMem(100*1024);

Citation:

---

Envoyé par Andnotor

Oui, bon... Buffer := AllocMem(100*1024);

---

Effectivement, j'avais pas essayé cette écriture mais j'ai toujours des caractères chinois :weird:

On est bien d 'accord que je laisse ma variable Buffer déclaré en tant que Pchar ?

char * en C++ = PAnsiChar en Delphi

PAnsiChar = PChar sous Delphi 3 à 2007
PAnsiChar uniquement sous Dephi 2009 .. XE?

Citation:

---

Envoyé par ShaiLeTroll

char * en C++ = PAnsiChar en Delphi

PAnsiChar = PChar sous Delphi 3 à 2007
PAnsiChar uniquement sous Dephi 2009 .. XE?

---

:ptdr:
SUPER !

Merci à tous, ça marche parfaitement comme il faut (en effet, il suffisait de passer en PAnsiChar !)

En tout cas, c'est sympa de m'avoir bien dépanné sur ce coup là, ça fait bien longtemsp que j'avais pas réutiliser Delphi alors je patauge un peu !