Discussion :

[popeyes]

(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 :

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

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

[tourlourou]

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

Code c++ :

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

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 :

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

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

pour l'utiliser sur le modèle :

Code :

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

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;

[popeyes]

Effectivement, cela fonctionne presque comme il faut !

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

Code :

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

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à...])

[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

[popeyes]

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 :

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

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

==> Cela ne change rien

Code :

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

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 ?

[Andnotor]

==> Cela ne change rien

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

Code :

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

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

ou

Code :

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

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

ou plus simplement

Code :

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

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

[popeyes]

Code :

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

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...

[Andnotor]

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

[popeyes]

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

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

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

[ShaiLeTroll]

char * en C++ = PAnsiChar en Delphi

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

[popeyes]

char * en C++ = PAnsiChar en Delphi

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

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 !