Discussion :

[Iaurkano]

bonjour à tous,

Me voici avec un problème que je n'arrive pas a solutionner même en farfouillant dans le forum :

Je cherche à executer une fonction dans une DLL C++ a partir de Delphi.

j'ai d'abord crée une DLL en Delphi et je l'ai appelé de puis mon prog, pour le debug, et ça marche nickel.

ensuite je mets la DLL que l'on me livre et la, impossible de me connecter au fonctions de la DLL, la DLL se charge bien mais l'assignation des fonction par GetProcAdress ne marche pas.

a force de chercher, j'ai fait un Tdump et voilà le résultat : bizarre.....

(j'ai mis les trois point pour pas vous embéter avec toutes les fonctions exporter)

Code :

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

1
2
3
4
5
6
Display of File toto_h.dll
 
...
EXPORT ord:0004='?conTH@@YAHPAD000PAH00000@Z'
...
EXPORT ord:0007='?resTH@@YAHPAD000PAH00000@Z'

le nom des fonction que je cherche sont bien resTH et conTH mais la c'est bizarre tous ces caractères avant et aprés non

dans "dependency Walker " il faut que je clique sur "undecorate C++ fonction"

pour voir alors :

Code :

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

1
2
 
int conTH(char *,char *,char *,char *,int *,char *,char *,char *,char *,char *)

et

Code :

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

1
2
 
int resTH(char *,char *,char *,char *,int *,char *,char *,char *,char *,char *)

ça ca correspond bien à ce que je veux ..

j'ai l'impression que mon problème vient de là . qu'en pensez vous ???

Pour plus d'info voici le code de mon prog :

Code :

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

1
2
 
ResTHInDLL: function(ID, DP, OPR: Pchar; DHr: PChar;out  CodeRetour: PInteger;out Quad: Pchar; Host, User, Pass, Db: Pchar): Integer; cdecl;

et l'association via GetProcAdress :

Code :

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

1
2
3
4
5
6
7
 
      ResTHinDLL := GetProcAddress(hDLLHandle, ResTH);
 
      if not assigned(ResTHinDLL) then
        begin
          mess := 'resTH introuvable dans la DLL';
        end;

la déclaration de la fonction dans la DLL :

Code :

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

1
2
 
__declspec(dllimport) int resTH(char *, char *,char *,char *,int *,char *,char *,char *,char *,char *);

[Pedro]

Salut et bienvenue sur Developpez.com
Je ne suis pas un spécialiste des DLL mais je crois que ton erreur vient de là:

Code :

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

1
2
3
4
5
6
7
 
ResTHinDLL := GetProcAddress(hDLLHandle, ResTH);
 
if not assigned(ResTHinDLL) then
begin
  mess := 'resTH introuvable dans la DLL';
end;

T'as oublié des @ :

Code :

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

1
2
3
4
5
6
7
 
@ResTHinDLL := GetProcAddress(hDLLHandle, ResTH);
 
if not assigned(@ResTHinDLL) then
begin
  mess := 'resTH introuvable dans la DLL';
end;

[Iaurkano]

Ok je vais voir mais je ne pense pas que ça vienne de la, car mon code fonctionne trés bien avec ma DLL faites en Delphi, mais pas avec celle qui m'est livrée et qui est developpée en C++.

En tous cas merci.

[tourlourou]

et si tu essayes de la récupérer par index au lieu de la récupérer par nom ?

[Iaurkano]

et si tu essayes de la récupérer par index au lieu de la récupérer par nom ?

Pareil en faisant ça :

Code :

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

1
2
 
@ResTHinDLL := GetProcAddress(hDLLHandle,'7');

ça marche pas....

je comprends pas on dirait que ça vient de la declaration qui est pas la même.... pourtant il me semble que la liaison C++ Delphi sur les c'est ça :

Code :

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

1
2
3
 
char * (C++)  --> Pchar (Delphi)
int * (C++) --> Pinteger (Delphi)

en tous cas c'est ce que j'ai fait...

[Pedro]

Salut
Visiblement, le problème vient de la déclaration de ta fonction externe.

Code :

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

1
2
 
ResTHInDLL: function(ID, DP, OPR: Pchar; DHr: PChar;out  CodeRetour: PInteger;out Quad: Pchar; Host, User, Pass, Db: Pchar): Integer; cdecl;

D'où tiens-tu le nom des variables (ID, DP, OPR, etc.)?