Discussion :

[almoude]

Bonjour,

Je dois développer une application Delphi qui imprime des PIN avec une imprimante relié à un HSM ou un matériel chryptographique qui effectue en interne le déchiffrement du PIN.
Pour manipuler l'appareil j'utilise une dll C++ qu'un collègue a dévelopé. Mais j'ai un souci au niveau d'une fonction de la dll.
prototype C++ :

Code C++ :

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

1
2
3
4
5
6
7
8
9
10
 
int PM_PRINT_PIN_MAILER (
char *accountNumber,    // j'utilise String en Delphi
char *pinEncrypted,  // j'utilise String en Delphi
char **tabFields, // // j'utilise un tableau de String en Delphi
int size,
char *errorCodeBefore,  //Pour ces trois variables leur valeur est modifiée
char *pinRefNumber,     //aprés l'appel à la fonction
char *errorCodeAfter    //Donc j'utilise un TCHAR 
)

Il n'y a pas d'erreur de syntaxe detectée sous Delphi donc j'execute normalement et tout se passe bien. Mais quand je lance l'impression du PIN. la valeur char *errorCodeBefore me renvoit :
Erreur 15 : "Donnée d'impression pas bonnes"
Ce qui veut dire qu'il y'a corruption de mes données d'entrées car les données d'impression sont bonnes. Donc je pense que la corruption est due à un problème de compatibilité de type. Donc SVP :

1- Je veux savoir quel type est le plus adapté pour transmettre un paramettre en Delphi quand C++ attend un char** . En d'autre termes l'équivalent de char** en delphi.

2- Je veux également savoir si char* peut etre codé par string en Delphi ou s'il faut toujours utiliser un tableau de Char.

S'il y'a quelqu'un qui peut m'aider à avancer sa proposition est trés attendue .

Je vous salue

[anapurna]

salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Type 
 PPchar : ^Pchar;
 
function PM_PRINT_PIN_MAILER (
accountNumber,    // j'utilise String en Delphi
pinEncrypted : Pchar;  // j'utilise String en Delphi
tabFields : PPChar, // // j'utilise un tableau de String en Delphi
size : Integer;
errorCodeBefore,  //Pour ces trois variables leur valeur est modifiée
pinRefNumber,     //aprés l'appel à la fonction
errorCodeAfter : Pchar    //Donc j'utilise un TCHAR 
) : integer;

@+ Phil

[almoude]

Bonjour anapurna
j'essaie cette methode immédiatement.
donc char * ===> Pchar
char** ===> ^Pchar

je code cela et je vous met au courant

encore merci .

[almoude]

Bonjour,
Comme le type Pchar est trop obscur pour moi, Au lieu d'utiler Pchar pour char* et ^Pchar pour char** je fais comme suit

type TCHAR = array[1..255] of CHAR
char* --->TCHAR
char**--->^TCHAR

les fonctions de la dll prenant en parametre des char* fonctionnent correctement car j'initialise bien les variales TCHAR.
Mais je n'arrive pas à initialiser une variable ^TCHAR, ce que je veux c'est disposer d'un tableau de tableau de caractère est ce implementable en ^TCHAR si oui pouvez vous m'aider par un exemple d'initialisation de ce tableau de tableau.
Merci.

[fabrice_91]

Bonjour à vous, le problème date un peu, mais il est d'actualité pour moi, avez vous trouvé un solution ?

[ShaiLeTroll]

Tu aurais du ouvrir un autre sujet avec plus de précision que de répondre dans un sujet vieux de 4 ans !

Quel est ton problème c'est de manipuler un char** ce qui donne en Delphi un PPChar ou alors un array of PChar
Il suffit d'allouer d'abord un nombre connu d’élément (pointeur), puis d'allouer la taille nécessaire pour chaque élément du tableau, cela ressemble à

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
var
  Tab: PPAnsiChar; // ^PAnsiChar // ^^AnsiChar;
  Cell: PPAnsiChar;
begin
  GetMem(Tab, 5 * SizeOf(PAnsiChar)); // si PPAnsiChar
 
  // Il me semble que [] fonctionne aussi avec PPAnsiChar comme ceci
  // GetMem(Tab[0], 3 * SizeOf(AnsiChar)); 
  // GetMem(Tab[1], 5 * SizeOf(AnsiChar));
  // Voici la vraie méthode
  Cell := Tab; 
  GetMem(Cell, 3 * SizeOf(AnsiChar));
  CopyMemory(Cell, ...);
  Inc(Cell);
  GetMem(Cell, 5 * SizeOf(AnsiChar));
  CopyMemory(Cell, ...);
  Inc(Cell);
  GetMem(Cell, 2 * SizeOf(AnsiChar));
  CopyMemory(Cell, ...);
  Inc(Cell);
  GetMem(Cell, 7 * SizeOf(AnsiChar));
  CopyMemory(Cell, ...);
  Inc(Cell);
  GetMem(Cell, 9 * SizeOf(AnsiChar));  
  CopyMemory(Cell, ...);
 
  ... Appel à la fonction
  LaFonction(Tab, 5, ...);
 
  FreeMem(Cell);
  Dec(Cell);
  FreeMem(Cell);
  Dec(Cell);
  FreeMem(Cell);
  Dec(Cell);
  FreeMem(Cell);
  Dec(Cell);
  FreeMem(Cell);
  FreeMem(Tab);

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
21
22
23
24
var
  Tab: Array of PAnsiChar;
begin
  SetLength(Tab, 5);
  GetMem(Tab[0], 3 * SizeOf(AnsiChar)); 
  CopyMemory(Tab[0], ...);
  GetMem(Tab[1], 5 * SizeOf(AnsiChar));
  CopyMemory(Tab[1], ...);
  GetMem(Tab[2], 2 * SizeOf(AnsiChar));
  CopyMemory(Tab[2], ...);
  GetMem(Tab[3], 7 * SizeOf(AnsiChar));
  CopyMemory(Tab[3], ...);
  GetMem(Tab[4], 9 * SizeOf(AnsiChar));
  CopyMemory(Tab[4], ...);
 
  ... Appel à la fonction
  LaFonction(@Tab[0], 5, ...); // note le @[0] pour fournir le pointeur du premier élément 
 
  FreeMem(Tab[4]);
  FreeMem(Tab[3]);
  FreeMem(Tab[2]);
  FreeMem(Tab[1]);
  FreeMem(Tab[0]);
  // Le Tableau sera libéré par Delphi !

Attention, ne pas confondre char** qui fourni un vrai tableau de char*
Et un char* utilisé comme un tableau de chaine gérant un double zéro terminal comme certaines API Windows !
Cette méthode est plus performante car on alloue tout le tableau en une seule fois !