Discussion :

[colorid]

avec :

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
procedure TForm4.Button1Click(Sender: TObject);
var
  hDLL: THandle;
  Somme: TDLLSomme;
  a,b: double;
begin
  hDLL:= LoadLibrary(pChar(DLLName));
  if (hDLL < HINSTANCE_ERROR) then
       raise Exception.Create(DLLName + 'erreur au chargement de la DLL' + SysErrorMessage(GetLastError));
  try
    @Somme:=GetProcAddress(hDLL,'Add');
    if Assigned(Somme) then
    begin
      a:= 2.5;
      b:= 1.5;
      label1.Caption:= FloatToStrF(Somme(a,b),ffFixed,5,2);
    end;
  finally
    FreeLibrary(hDLL);
  end;
end;

la fonction Somme n'est pas assignée alors que la DLL a été chargée.
Les fonctions de la DLL ont été développées en VC avec le code suivant :

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
#include "stdafx.h"
    class MyMathFuncs
    {
    public:
        // Returns a + b
        static __declspec(dllexport) double Add(double a, double b);
 
        // Returns a - b
        static __declspec(dllexport) double Subtract(double a, double b);
 
        // Returns a * b
        static __declspec(dllexport) double Multiply(double a, double b);
 
        // Returns a / b
        // Throws DivideByZeroException if b is 0
        static __declspec(dllexport) double Divide(double a, double b);
    };

Où est l'erreur ?

[Ph. B.]

Bonjour,

Où est l'erreur ?

Je dirais qu'elle est dans le type TDLLSomme qui n'est pas indiqué...
Ce devrait resembler à :

Code :

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

1
2
// static __declspec(dllexport) double Add(double a, double b);
TDllsomme = function(a, b: Double): Double; cdecl;

[colorid]

Avant la procedure TForm4.Button1Click je déclare :

Code :

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

1
2
3
4
5
6
7
8
const
  DLLName = 'DLLTestVC.dll';
 
function Add(a,b:double):double; stdcall; external DLLName;
 
 
type
  TDLLSomme = function (param1,param2: double): double;

[Ph. B.]

Il y a un gros micmac.
Vous avez déclaré la dll et sa fonction de manière statique et dans la procédure, vous la rappelez de manière dynamique...
De 2 choses l'une :

1. Appel statique :
   

   Code :

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

   1
   2
   3
   4
   5
   6
   7
   const
     DLLName = 'DLLTestVC.dll';
    
   function Add(a, b: Double): Double; cdecl; external DLLName;
    
   // Dans la procédure, pas de LoadLibrary ni de GetProcAdress:
     label1.Caption:= FloatToStrF(Add(a, b), ffFixed, 5, 2);

2. Appel dynamique :
   

   Code :

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

   1
   2
   3
   4
   type
     TDLLSomme = function (param1, param2: Double): Double; cdecl;
    
   // Dans la procédure, appel à LoadLibrary, GetProcAdress, etc

Ne pas oublier le type d'appel cdecl...

[colorid]

Correction :

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
27
28
29
30
31
32
const
  DLLName = 'DLLTestVC.dll';
 
//function Add(a,b:double):double; stdcall; external DLLName;
 
 
type
  TDLLSomme = function (param1,param2: double): double; cdecl;
 
 
procedure TForm4.Button1Click(Sender: TObject);
var
  hDLL: THandle;
  Somme: TDLLSomme;
  a,b: double;
begin
  hDLL:= LoadLibrary(pChar(DLLName));
  if (hDLL < HINSTANCE_ERROR) then
    raise Exception.Create(DLLName + 'erreur au chargement' +
                            SysErrorMessage(GetLastError));
  try
    @Somme:=GetProcAddress(hDLL,'Add');
    if Assigned(Somme) then
    begin
      a:= 2.5;
      b:= 1.5;
      label1.Caption:= FloatToStrF(Somme(a,b),ffFixed,5,2);
    end else ShowMessage('La fonction "Add" n''a pas été trouvée dans la DLL');
  finally
    FreeLibrary(hDLL);
  end;
end;

Résultat à l(exécution : 'La fonction "Add" n''a pas été trouvée dans la DLL'

[Ph. B.]

Que donne comme rapport un outil comme "DLL Export Viewer" ?
Cela devrait ressembler à ceci et permettre de connaitre le nom del afonction exportée :

==================================================
Function Name : Add
Address : 0x12345678
Relative Address : 0x00001234
Ordinal : 12 (0xc)
Filename : dlltestvc.dll
Full Path : C:\MyDll\dlltestvc.dll
Type : Exported Function
==================================================

Aussi, je vois dans le code VC une syntaxe class { }. Classe d'objet C++ ?

[colorid]

Je viens d'essayer avec une DLL développée sous Delphi avec les mêmes fonctions : A la ligne 27 quand il exécute la fonction il se plante avec "Access violation at.."

[Paul TOTH]

Je viens d'essayer avec une DLL développée sous Delphi avec les mêmes fonctions : A la ligne 27 quand il exécute la fonction il se plante avec "Access violation at.."

avec la même convention d'appel dans la DLL et l'EXE ?

[colorid]

Code :

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

1
2
3
4
5
 
function Add(const a,b: double):double; stdcall; export;
function Subtract(const a,b: double):double; stdcall; export;
function Multiply(const a,b: double):double; stdcall; export;
function Divide(const a,b: double):double;stdcall; export;

[Ph. B.]

Et les définitions et conventions d'appel côté exécutable ? elles sont les mêmes ?

[Paul TOTH]

Et les définitions et conventions d'appel côté exécutable ? elles sont les mêmes ?

dans l'exemple plus haut c'est du cdecl, alors forcément ça coince

NB: le mot clé export n'est plus nécessaire depuis Delphi 2

Les directives near, far et export désignent des conventions d'appels utilisées dans la programmation Windows 16 bits. Elles sont sans effet dans les applications 32 bits et sont conservées uniquement dans un souci de compatibilité ascendante.