Discussion :

[popeyes]

Bonjour,

mon niveau de Delphi n'est pas exceptionnel et je sèche depuis plusieurs jours pour faire fonctionner une fonction, je n'ai jamais le résultat d'une variable précise qui est pourtant indispensable !

La fonction de la DLL :

type de retour : unsigned short
nom fonction : Test_fonction
type noms des paramètres :
- unsigned char : leChemin
- T_infosSpecial : lesinfosspecial
- unsigned short : lenombredereponse
- unsigned short : lecodederreur

Je déclare ma fonction comme cela :

Code :

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

1
2
3
4
5
6
function nom fonction(
  leChemin: PAnsiChar;
  lesinfosspecial: TList;
  var lenombredereponse: integer;
  var lecodederreur: Word
  ): Word; stdcall; external 'madll.dll' name 'nom fonction';

Je crée les var comme cela

Code :

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

1
2
3
4
5
6
var
    code_retour: integer;
    leChemin: AnsiString;
    lenombredereponse: integer;
    lesinfosspecial: tList;
    lecodederreur: word;

puis je lance

Code :

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

code_retour:=nom fonction(PAnsiChar(dossier_force),lesinfosspecial,lenombredereponse,lecodederreur);

La valeur "lesinfosspecial" ne me sort jamais ce que je veux ou je n'arrive pas à y accéder; si quelqu'un à une idée (je suppose que je suis dans le faux en exigeant un Tlist...)

Voici la documentation pour cette valeur :

Si lesinfosspecial=NULL, la fonction retourne le nombre de réponses
Si lesinfosspecial non NULL, pointeur sur un tableau de structures de type T_infosSpecial(voir ci-dessous), alloué par l’application utilisatrice

Code :

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

1
2
3
4
5
6
7
8
9
typedef struct {
	unsigned char  nom_ressource[256];
	unsigned char  valeur1;	     
	unsigned char  valeur2;	     
	unsigned char  valeur3;		
	unsigned short valeur4;	
	unsigned short valeur5;
	unsigned short valeur6;
} T_infosSpecial;

Merci à tous

[Linkin]

Il ne faudrait pas plutôt déclarer un type de cette façon?

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
type
T_infosSpecial= packed record
    nom_ressource: array[0..255] of ansichar;
valeur1 :UInt8;
valeur2:UInt8;
valeur3:UInt8;
valeur4: UInt16;
valeur5: UInt16;
valeur6: UInt16;
end;

T_infosSpecials=array of T_infosSpecial;
P_infosSpecial=^T_infosSpecial;
function nom fonction(  leChemin: PAnsiChar;  lesinfosspecial: P_infosSpecial;  var lenombredereponse: integer;var lecodederreur: Word): Word; stdcall; external 'madll.dll' name 'nom fonction';

[popeyes]

Je pense effectivement qu'il faudrait que je parte par là mais j'ai du mal à voir où placer tout cela :

où dois-je mettre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
T_infosSpecial= packed record
    nom_ressource: array[0..255] of ansichar;
valeur1 :UInt8;
valeur2:UInt8;
valeur3:UInt8;
valeur4: UInt16;
valeur5: UInt16;
valeur6: UInt16;
end;

(d'ailleurs le end est logique sans begin ?)

je suppose que la ligne "T_infosSpecials=array of T_infosSpecial;" va dans les déclarations "var"

je suppose que la ligne "P_infosSpecial=^T_infosSpecial;" va dans ma déclaration de focntion

[nostroyo]

Fais un premier appel avec nil comme paramètre pour lesinfosspecial, tu auras comme ça le nombre de réponse.

En utilisant la structure de Linkin, tu alloues un espace mémoire de nombre de réponse * SizeOf(TInfosSpecial)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  LpInfosSpecial: PInfosSpecial;
  LNbReponse: Integer;
begin
  // 1er appel pour récup LNbReponse
GetMem(LpInfosSpecial, LNbReponse * SizeOf(TInfosSpecial));
  try
      // 2eme Appel avec LpInfosSpecial  pour lesinfosspecial
      // Parcours de ton espace mémoire pour récupérer chaque infos
  finally
    FreeMem(LpInfosSpecial, LNbReponse * SizeOf(TInfosSpecial));
  end;

[popeyes]

Fais un premier appel avec nil comme paramètre pour lesinfosspecial, tu auras comme ça le nombre de réponse.

En utilisant la structure de Linkin, tu alloues un espace mémoire de nombre de réponse * SizeOf(TInfosSpecial)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  LpInfosSpecial: PInfosSpecial;
  LNbReponse: Integer;
begin
  // 1er appel pour récup LNbReponse
GetMem(LpInfosSpecial, LNbReponse * SizeOf(TInfosSpecial));
  try
      // 2eme Appel avec LpInfosSpecial  pour lesinfosspecial
      // Parcours de ton espace mémoire pour récupérer chaque infos
  finally
    FreeMem(LpInfosSpecial, LNbReponse * SizeOf(TInfosSpecial));
  end;

J'arrive à peu près à comprendre le concept pour cette partie mais je ne vois pas où mettre les informations de Linkin, si je les place dans les var, ma déclaration de fonction plante

[tourlourou]

Code :

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

1
2
3
4
5
6
function nom fonction(
  leChemin: PAnsiChar;
  lesinfosspecial: PinfosSpecial; // [EDIT] correction
  var lenombredereponse: integer; // pourquoi pas un Word (unsigned short : lenombredereponse) ???
  var lecodederreur: Word
  ): Word; stdcall; external 'madll.dll' name 'nom fonction';

[nostroyo]

En fait tu dois créer dans la partie déclaration, un type TInfosSpecial puis tu déclare un PInfosSpecial = ^TinfosSpecial; (un pointeur sur la structure). Il nous servira à pointer sur le premier élément.

Exemple du 2 eme appel :

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  lesinfosspecial: PInfosSpecial;
  ...
begin
  // GetMem etc comme vu précédement
  code_retour:=nom fonction(PAnsiChar(dossier_force),lesinfosspecial,lenombredereponse,lecodederreur);
  lesinfosspecial^.valeur1   // accès au premier élément 
// Après tu avances au suivant en incrémentant ton pointeur de la taille d'un TInfosSpecial

[tourlourou]

On doit même pouvoir parcourir le tableau avec un Inc(lesinfosspecial) qui avance le pointeur sur l'élément suivant.

[popeyes]

Magnifique !

En recoupant toutes les infos, j'ai réussi à faire fonctionner la liaison DLL sans soucis et j'ai découvert, pas mal de nouvelles choses dans Delphi !


Merci à tous pour votre aide