Discussion :

[NGeVtC87]

Bonjour,

J'ai un exemple simple de DLL C++ (A.dll) dont le fichier header est décrit ci-dessous :

Code c++ :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
//A.h
#ifndef ADLL_EXPORTS
#define ADLL_EXPORTS
#endif
 
#if defined( ADLL_EXPORTS)
    #define ADLL_API __declspec(dllexport) 
#else
    #define ADLL_API __declspec(dllimport) 
#endif
 
 
extern "C" ADLL_API void __cdecl  run(void);

Lorsque je fais un appel de la DLL à partir de mon programme de manière dynamique, la fonction "run" est chargée et exécutée :

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
 
var
  Form1: TForm1;
  xMainPrc:  procedure; cdecl ;
 
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  a:integer;
  handle : THandle;
begin
  handle := LoadLibrary('A.dll');
  if handle <> 0 then
  begin
    @xMainPrc := GetProcAddress(handle, 'run');
    if @xMainPrc <> nil then
    begin
      MessageBox(0,'Function Loaded', 0, 0);
      xMainPrc();
    end;
  end;
end;

Par contre, quand l'appel est statique, j'ai un message m'indiquant que le point d'entrée de la fonction run est introuvable :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
path='A.dll' ;
procedure run();cdecl;external path;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  run;
end;

Pouvez vous m'indiquer s'il vous plaît où se situe mon erreur dans l'appel statique de la DLL ?

Merci

[Paul TOTH]

je ne vois pas d'erreur (à part le mot clé CONST manquant devant "path")...c'est surprenant.

[ShaiLeTroll]

Il est intéressant de comprendre pourquoi cela en fonctionne pas en statique mais je te conseille vivement de tout faire en dynamique, cela permet de mieux gérer l'absence de la DLL, de pouvoir lancer ton programme en mode bridé au lieu qu'il plante par manque de dépendance