appel DLL C++ en Delphi (pb avec type)

Bonjour,

Je dois appeler une fonction d'une dll C++ en Delphi.
Mais j'ai des pb avec les types (notamment "typedef BYTE RSI_TEMPLATE[9]").
Je ne sais pas d'autres part comment initialiser ma structure delphi avant de la passe à la fonction.
Faut-il attribuer de la mémoire ???, ect ...


code c++ (fichier .h)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

//déclaration de la fonction à appeler RSI_DLL RSI_RESULT RSI_API rsiGetUserRecord(byte id, RSI_USER_RECORD FAR* ur);   //les types typedef BYTE RSI_TEMPLATE[9]; typedef struct { byte id; RSI_TEMPLATE templateVector; } RSI_USER_RECORD;

---

Mon Code delphi

Code:

---

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

//déclaration de la fonction function rsiGetUserRecord(Userid : byte; userRec:RSI_USER_RECORD) :integer; stdCall; external ...   //délaration des types delphi RSI_TEMPLATE=array[1..9] of byte;   RSI_USER_RECORD=record ID : byte; templateVector : RSI_TEMPLATE; end;   //appel de la fonction var userRec:RSI_USER_RECORD; begin //pour le user ayant id=1 result := rsiGetUserRecord(1,userRec);   //--> erreur "Violation d'accès à l'adresse .. ds le module rsi32.dll..." end;   merci pour votre aide

---

C'est un pointer qu'il faut passer en paramètre:

Code:

---

result := rsiGetUserRecord(1,@userRec);

---

Il peut avoir aussi un problème d'alignement. Essai cela si cela ne marche toujours pas

Code:

---

1 2 3 4

RSI_USER_RECORD=packed record ID : byte; templateVector : RSI_TEMPLATE; end;

---

Bonjours,

Je suis pas trop sûr que ça changera quelque chose, mais deux points :

Code:

---

1 2 3

type RSI_TEMPLATE = array[1..9] of byte;

---

C'est faux. En C, RSI_TEMPLATE[9]; équivaut a un tableau de 9 entrée, commençant a 0, donc :

Code:

---

1 2 3

type RSI_TEMPLATE = array[0..8] of byte;

---

devrait mieux marcher.

Ensuite, la fonction C attend un pointeur sur le premier élément du tableau.
Donc rajoute :

Code:

---

1 2 3

type PRSI_USER_RECORD = ^RSI_USER_RECORD

---

et défini la fonction ainsi :

Code:

---

1 2 3

function rsiGetUserRecord(Userid: Byte; userRec: PRSI_USER_RECORD) : Integer; stdcall;

---

J'espère que ça va marcher, mais je ne suis pas trop sûr de moi ...

Citation:

---

C'est faux. En C, RSI_TEMPLATE[9]; équivaut a un tableau de 9 entrée, commençant a 0

---

Tant que l'on accède pas aux elements du tableau dans le code delphi, le déclarer en [0..8], [1..9] ou [90..98] revient exactement au même.

D'accord, j'en était pas trop sûr, mais bon, j'ai dit une grosse bétise :oops:

Faut-il allouer de la mémoire à userRec ou juste déclarer une variable userRec, et la passer à la focntion ?

Non si tu déclares un record et que tu passe l'adresse en parametre, oui si tu déclares un pointeur

Merci ca à l'air de fonctionner pour cette fonction.
J'en ai encore moult autre à faire, mais ca va se ressembler.