API Sesam VITALE

Bonjour à toutes et à tous,

Je rencontre quelques problèmes pour la lecture des API Sesam-VITALE avec DELPHI.

En effet, je dois utiliser la fonction suivante dans la DLL sgdw32.dll

Code:

---

1 2 3 4 5 6 7 8 9

Unsigned short SGD_LireChamp ( unsigned short NumeroSession, unsigned short IdGroupe, unsigned short OccurenceGroupe, unsigned short NumeroChamp, char* ValeurChamp, size_t* TailleMax );

---

Pour cela, j’ai déclaré ma fonction comme suit:

Code:

---

1 2 3 4 5 6 7 8 9

function SGD_LireChamp( NumSession : Word; IdGroupe:Word; OccGroupeCourant:Word; NumChamp : Word; Var ValeurChamp : PChar; var TailleMax:LongWord ): Word; stdcall;external 'sgdw32.dll' name 'SGD_LireChamp';

---

Et je l’appelle dans mon programme de la façon suivante :

Code:

---

1 2	ResFunc:=SGD_LireChamp(NSession,IdtGrp,OccGrp,1,ValChamp,Taille);

---

Les variables NSession, IdtGrp et OccGrp ayant été préalablement chargées.

Après exécution de la fonction , ma variable ValChamp (qui est un PChar initialisé à ‘Nil’) doit normalement être chargée ce qui n’est pas le cas.
Au contraire, l’évaluateur d’expression ne me donne plus aucun renseignement (alors qu’il indiquait ‘Nil’ avant) et tout appel à cette variable me plante le programme.
nb : La variable Taille est bien chargée avec la valeur '4' qui est la bonne valeur

Pour information, voici le résultat du mode « trace » lors de l’appel de cette fonction

Code:

---

1 2 3 4 5 6 7

SGD_LireChamp : numeroSession = 1, idGroupe = 3600, occurrenceGroupe = 1, numeroChamp = 1 { Zone::rechercherChamp : identifiant = 3600, occurrenceGroupe = 1, numero = 1   { Zone::positionnerDebut   } cr = 0x0000, donnees = 0x0036868C, longueur = 4 }

---

Par avance, merci de votre aide

le C veut un pointeur sur Char

Code:

---

char* ValeurChamp,

---

et tu lui donnes un Pointeur sur Pointeur sur Char (la var ajoute une indirection)

Code:

---

Var ValeurChamp : PChar;

---

essaye

Code:

---

ValeurChamp : PChar;

---

Et j'aurais tendance à dire, qu'il faille faire toi même le GetMem avant l'appel pour allouer ValeurChamp à TailleMax (voir si + 1 pour le 0 terminal, je n'en suis pas sur !) et ensuite faire le FreeMem

tu peux aussi utiliser un tableau fixe, par exemple

Code:

---

1 2 3 4 5 6

int GetClassName(   HWND hWnd, // handle of window LPTSTR lpClassName, // address of buffer for class name int nMaxCount // size of buffer, in characters );

---

Code:

---

1 2 3 4

var lpRes : array[Byte] of Char; begin GetClassName(hWnd, lpRes, Length(lpRes));

---

OK, merci pour l'aide

J'ai redéclaré ma variable ValChamp en array [Byte] of char;
et appeler la fonction avec @valchamp.

ça marche et je te remercie beaucoup.

Bonjour,

Je me permets de faire remonter ce sujet car je travaille actuellement sur le développement d'une application qui doit entre autres effectuer une lecture de carte Sesam Vitale, en VB.Net.
Je travaille avec la version 6 des API et je ne parviens pas à interpréter les données que je récupère. Pour info voici un extrait de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

If initDone = True Then MsgBox("Essai lecture")   dataPointer = System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(data, 0)       retour = Hn_LectureVitale(seconds, dataPointer, lgData, etatCarte, codeErreur)   'Fermeture de la communication avec l'API If initDone = True Then retour = Hn_Finir(one) End If   For Each caractere In data sortie &= caractere Next MsgBox(sortie) End If

---

Lorsque la msgbox finale s'affiche, je n'ai que des carrés vides à la place de mes caractères...

Auriez-vous une idée? Quelqu'un a-t-il déjà rencontré ce problème?
A votre dispo pour toute précision technique bien sûr...

Merci à tous

Salut !

Citation:

---

Envoyé par sorlok

(...) en VB.Net. (...)

---

Euh, t'es au courant qu'ici c'est un forum Delphi, :P ?