[DLL C++] Compatibilité de type avec Delphi

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:

---

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

salut

Code:

---

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

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

je code cela et je vous met au courant

encore merci .

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.

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

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:

---

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:

---

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 !