DLL c++ impossible de trouver la fonction

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.:D

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.:mouarf:

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.:cry:

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:

---

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 8O

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

pour voir alors :

Code:

---

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

---

et

Code:

---

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:

---

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:

---

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:

---

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

---

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

Code:

---

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:

---

1 2 3 4 5 6 7

@ResTHinDLL := GetProcAddress(hDLLHandle, ResTH);   if not assigned(@ResTHinDLL) then begin mess := 'resTH introuvable dans la DLL'; end;

---

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.

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

Citation:

---

Envoyé par tourlourou

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:

---

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:

---

1 2 3

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

---

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

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

Code:

---

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.)?

Citation:

---

Envoyé par Pedro

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

---

ça c'est des noms a moi..... !!!

pourquoi ça pose problème, ....

Par contre les types ( et c'est ce qui est important je pense) me viennent du developpeur de la DLL en C++.

est ce que le problème pourrais venir du mode de passages des paramètres par valeur ou par reference.

car dans les 10 paramètres de chaque fonctions il y en a 2 qui sont des paramètres de retour d'ou mon

Code:

---

out

---

dans la definition de la fonction.

est ce que ça pourrais venir de là ???

essaye de remplacer out par var

Citation:

---

Envoyé par tourlourou

essaye de remplacer out par var

---

déja tenté,

en fait j'ai de plus en plus l'impression que c'est la DLL qui m'a été livré qui pose problème....

il faut que je reboucle avec le developpeur de la dite DLL.

en tous cas merci je vous tiens au courant si je peux....

salut

quelle est la condition d'appel que tu lui as mis ?

il en existe plusieurs : register, pascal, cdecl, stdcall, et safecall

en resumé
stcall c'est pour les api windows
safecall pour les objet COM
cdecl pour les dll ecrite en c et c++ (ton cas)
register etant la convention par defaut et pascal n'etant la que pour une compatibilité acendante

@+ Phil

PS : regarde si par hazard la dll en c++ n'as pas été compilé avec une autre condition d'appel