Discussion :

[ipholed]

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 :

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

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 :

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

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 :

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

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 :

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

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

[ShaiLeTroll]

le C veut un pointeur sur Char

Code :

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

char* ValeurChamp,

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

Code :

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

Var ValeurChamp : PChar;

essaye

Code :

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

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 :

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

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 :

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

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

[ipholed]

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.

[sorlok]

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 :

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

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

[Jipété]

Salut !

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

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