Discussion :

[patoche.05]

Bonjour,

J'ai créé une procédure dans une dll comme suit :

Code :

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

procedure CalculBoulonsNecessaire(g_Assemblage : TAssemblage; effortNormal,effortTranchant,EfforTranchant_P2 : double;LeConnecteur : TConnect;NbFibre1,NbFibre2 : LongWord);stdcall;

où

Code :

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

g_Assemblage

est un pointeur sur une structure

Lorsque j'appelle cette fonction, le g_Assemblage que j'ai placé en paramètre devient nil à l'intérieure de la fonction de la dll.

D'où vient mon erreur??

Merci d'avance.

[ShaiLeTroll]

La convention de nommage est la suivante :

Code :

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

1
2
3
4
PAssemblage = ^TAssemblage;
TAssemblage = record
...
end;

As-tu fais le New ou utilisé @ ?

[patoche.05]

C'est la conjonction d'une série d'erreurs, il faut passer l'adresse de la structure et non pas le pointeur, j'avais oublié de mettre un stdcall quelque part (je faisais ça en delphi)...

Merci

[guillemouze]

il faut passer l'adresse de la structure et non pas le pointeur

Heuuu .... c'est quoi la différence entre une adresse et un pointeur (si ce n'est les lettres) ?

[ShaiLeTroll]

C'est l'écart entre le cerveau droit et le cerveau gauche ...

[peter27x]

Heuuu .... c'est quoi la différence entre une adresse et un pointeur (si ce n'est les lettres) ?

Je suppose qu'il veut dire l'adresse de la structure et l'adresse du pointeur lui même plutôt que l'adresse pointée par le pointeur...

[Dr.Who]

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
 
unit BoulonsTypes;
 
interface
 
type
  PAssemblage = ^TAssemblage;
  TAssemblage = packed record
    // ... //
  end;
 
const
  SizeOfAssemblage = sizeOf(TAssemblage);
 
type
  PConnect = ^TConnect;
  TConnect = packed record
    // .. //
  end;
 
const
  SizeOfConnect = SizeOf(TConnect);
 
implementation
 
end.

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
 
library Boulons;
 
uses BoulonsTypes;
 
procedure CalculBoulonsNecessaire(
  aAssemblage : PAssemblage; 
  aEffortNormal, aEffortTranchant1, aEffortTranchant2 : double;
  aConnecteur : PConnect;
  aNbFibre1, aNbFibre2 : LongWord); stdcall;
begin
  // ... //
end;
exports CalculBoulonsNecessaire;
 
begin
end.

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
 
unit BoulonsWrapper;
 
interface
 
uses BoulonsTypes;
 
procedure CalculBoulonsNecessaire(
  aAssemblage : PAssemblage; 
  aEffortNormal, aEffortTranchant1, aEffortTranchant2 : double;
  aConnecteur : PConnect;
  aNbFibre1, aNbFibre2 : LongWord); stdcall;
 
implementation
 
const
  LibBoulons = 'boulons.dll';
 
procedure CalculBoulonsNecessaire; external LibBoulons name 'CalculBoulonsNecessaire';
 
end.

[guillemouze]

Dr. Who, quel est l'interet de

Code :

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

1
2
3
 
const
  SizeOfConnect = SizeOf(TConnect);

sachant que SizeOf(...) est interpreté a la compilation et remplacé par la bonne valeur directement ?