Discussion :

[fkerbourch]

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 :

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

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 :

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
 
//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

[cpdump]

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

Code :

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

result := rsiGetUserRecord(1,@userRec);

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

Code :

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

1
2
3
4
RSI_USER_RECORD=packed record
      ID : byte;
      templateVector : RSI_TEMPLATE;
end;

[blinkseb]

Bonjours,

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

Code :

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

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 :

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

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 :

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

1
2
3
 
type
  PRSI_USER_RECORD = ^RSI_USER_RECORD

et défini la fonction ainsi :

Code :

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

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 ...

[cpdump]

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.

[blinkseb]

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

[fkerbourch]

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

[cpdump]

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

[fkerbourch]

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