Discussion :

[wikers]

Bonjour j'ai crée un programme qui utilise un fonction d'une dll écrite en c++ mais lors du chargement j'ai le message d'erreur "La fonction est introuvable". Voilà mais source:

Code :

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

1
2
3
4
5
var
  Form1: TForm1;
  Fractal: TForm2;
  Fcomplexe:THandle;
  isDrawable:function(a:double;b:double):Boolean;// c'est la fonction à importer

Charge la dll et la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormCreate(Sender: TObject);
begin
 Fcomplexe := LoadLibrary('Fcomplexe.dll');
 if Fcomplexe = 0 then begin
 raise Exception.Create('Dll non chargé');
 end;
 @isDrawable:=GetProcAddress(Fcomplexe,'isDrawable');
 if @isDrawable=nil then
 begin
 raise Exception.Create('La fonction est introuvable');
 end;
end;

Et voilà le code source en c++
Dans le fichier .h

Code :

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

1
2
3
4
5
6
7
#if BUILDING_DLL
# define DLLIMPORT __declspec (dllexport)
#else /* Not BUILDING_DLL */
# define DLLIMPORT __declspec (dllimport)
#endif /* Not BUILDING_DLL */
 
bool DLLIMPORT isDrawable(double a,double b);

et dans le fichier *.cpp

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
33
34
35
36
37
38
39
40
#include "E:\programmation\delphi\fractale\dll\MainDll.h"
#include <windows.h>
#include <stdio.h>
 
/* Externs */
 
 
BOOL APIENTRY DllMain &#40;HINSTANCE hInst, DWORD reason,
                       LPVOID reserved /* Not used. */ &#41;;
 
/* DllMain Results&#58;
       TRUE on success, FALSE on failure.  */
 
BOOL APIENTRY
DllMain &#40;
	 HINSTANCE hInst        /* Library instance handle. */ ,
	 DWORD reason           /* Reason this function is being called. */ ,
	 LPVOID reserved        /* Not used. */ &#41;
&#123;
 
  switch &#40;reason&#41;
    &#123;
    case DLL_PROCESS_ATTACH&#58;
      break;
 
    case DLL_PROCESS_DETACH&#58;
      break;
 
    case DLL_THREAD_ATTACH&#58;
      break;
 
    case DLL_THREAD_DETACH&#58;
      break;
    &#125;
  return TRUE;
&#125;
bool DLLIMPORT isDrawable&#40;double a,double b&#41;
&#123;
return true;
&#125;

Faut-il faire quelque chose de spéciale à la compilation sous delphi ?
Merci pour votre aide.

[MD Software]

essaye ça :

Code :

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

1
2
3
4
5
var 
  Form1: TForm1; 
  Fractal: TForm2; 
  Fcomplexe:THandle; 
  isDrawable:function(a:double;b:double):Boolean;stdcall;

[Nono40]

Dans la dll en C il faut exporter la fonction afin qu'elle soit accessible comme fonctione de dll. Par contre aucune idée du code à écrire, je ne connais pas assez le C.

Du coté Delphi, ton code est bon mais il faudra connaitre la convention d'appel par défaut de ta dll ( stdcall n'est pas forcement automatique, ça peut être cdecl )