Discussion :

[petitcoucou31]

Bonjour a tous, juste une petite question ou je ne trouve pas de reponse,

je voudrais savoir si il est possible de declarer plusieurs noms de fonction identiques (juste les parametres changent) dans plusieurs DLL. A savoir que les DLL sont utilisées en meme temps par la meme application Ne peut il y avoir de conflit ?

merci.

[tourlourou]

je ne conçois pas de problème, sauf si l'une des définitions utilisait un paramètre supplémentaire avec une directive default : l'appel serait indécidable (ou résolu, mais pas forcément dans le sens souhaité !)

[ShaiLeTroll]

Tout dépend tes déclarations

si tu le fait par prototype ...

Code :

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

1
2
3
4
5
6
function FonctionDLL(Truc: Bidule): Longint stdcall; overload;
function FonctionDLL(Machin: Chose): Longint stdcall; overload;
 
...
function FonctionDLL(Truc: Bidule): Longint; external 'DllUN.dll' name FonctionDLL;
function FonctionDLL(Machin: Chose): Longint; external 'DllDeux.dll' name FonctionDLL;

sinon, tu peux le faire dans des Wrappers genre

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
procedure FonctionDLL(Truc: Bidule);
var
  HandleDLL: HMODULE;
  HandleFonctionDLL: function(Truc: Bidule): Longint stdcall; 
begin
  HandleDLL := LoadLibrary('DllUN.dll');
 
  if HandleDLL > 0 then
  begin
    try
      @HandleFonctionDLL := GetProcAddress(HandleDLL, 'FonctionDLL');
      if Assigned(@HandleFonctionDLL) then
        HandleFonctionDLL(Truc);
    finally
      FreeLibrary(HandleDLL);
    end;
  end;
end;
 
procedure FonctionDLL(Machin: Chose);
var
  HandleDLL: HMODULE;
  HandleFonctionDLL: function(Machin: Chose): Longint stdcall; 
begin
  HandleDLL := LoadLibrary('DllDeux.dll');
 
  if HandleDLL > 0 then
  begin
    try
      @HandleFonctionDLL := GetProcAddress(HandleDLL, 'FonctionDLL');
      if Assigned(@HandleFonctionDLL) then
        HandleFonctionDLL(Machin);
    finally
      FreeLibrary(HandleDLL);
    end;
  end;
end;

[petitcoucou31]

Merci ShaileTrol, je vais essayer ton Wrapper..

bye