C++ et VB6 ne font pas bon ménage!

Bonjour,

Voila j'ai besoin de créer une DLL en C++ qui sera utilisé par un programme en VB6, j'ai beau testé tout les tutoriels qui se trouve sur le net, je n'y arrive pas.

Sous VS2008 je créé un projet Win32 vide, qui contient 1 seul .cpp:

Code:

---

1 2 3 4 5 6 7 8

extern "C" { __declspec(dllexport) int DisplayHelloFromDLL(int a,int b) { return a+b; } }

---

Et voici le programme VB6:
Déclaration

Code:

---

Public Declare Function DisplayHelloFromDLL Lib "ma_dll.dll" (ByVal a As Long, ByVal b As Long) As Long

---

Et l'appel de la fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click() Dim a As Long Dim b As Long   a = 1 b = 2   MsgBox API.DisplayHelloFromDLL(a, b) End Sub

---

Et là je tombe sur une erreur:
Erreur d'exécution 49: Convention d'appel de DLL incorrecte.

Quel est le problème? Apparemment cette erreur est générer si lors de la déclaration je lui passe un mauvais type d'argument, mais ici se n'est pas le cas!

J'ai oublié quelque chose dans ma DLL C++?
J'ai tout essayer avec des fichiers .def, etc... mais rien ça ne veux pas!

Merci

Je ne connais pas trop VB, mais le fait de déclarer côté VB un point d'entrée avec des long en paramètre ne pose-t-il pas un problème si dans ta DLL la fonction a une interface avec des int? N'y-a-t-il pas un type équivalent en VB (int ou integer)?

Si en VB6 le type Integer existe et j'ai essayé aussi de déclarer ma fonction dans VB6 avec des Integer et non des Long mais rien a faire :(

"Erreur d'exécution 49: Convention d'appel de DLL incorrecte"
Le message parle de lui même.
Utilise la convention d'appel standard.
Utilise un fichier def plutôt que __declspec(dllexport).

Sinon pour revenir à la convention d'appel :
#include <windows.h>
__declspec(dllexport) int WINAPI DisplayHelloFromDLL(int a,int b)
{
return a+b;
}

Citation:

---

Envoyé par NairodDorian

Sinon pour revenir à la convention d'appel :
#include <windows.h>
__declspec(dllexport) int WINAPI DisplayHelloFromDLL(int a,int b)
{
return a+b;
}

---

Lorsque je fais ça, j'obtiens l'erreur: "Impossible de trouvé le point d'entrée DisplayHelloFromDLL dans madll.dll"




J'ai beau essayer avec un fichier .def, mais je dois mal mis prendre:

• Je génère le fichier MAP (.map)
• Je récupère la signature de ma fonction (ici ?DisplayHelloFromDLL@@YGHHH@Z (int __stdcall DisplayHelloFromDLL(int,int)))
• Mon fichier .def:
  
  Code:

  ---

  1 2 3

  LIBRARY "MaDLL" EXPORTS DisplayHelloFromDLL ?DisplayHelloFromDLL@@YGHHH@Z (int __stdcall DisplayHelloFromDLL(int,int))

  ---

Mais quand je compile j'obtiens l'erreur:
fatal error LNK1118: syntax error in '?DisplayHelloFromDLL@@YGHHH@Z' statement :(

Ah ba c'est bon ça fonctionne!

Dans le fichier .def, il faut mettre l'ordinal et non le nom de la fonction décorée
Soit:

Code:

---

1 2 3

LIBRARY "MaDLL" EXPORTS DisplayHelloFromDLL @1

---

@1 étant l'ordinal qui m'est donné dans le fichier .map généré par VS :D

Généralement, j'utilise ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

//MaDLL.h #ifndef EXTERN_C #ifdef __cplusplus #define EXTERN_C extern "C" #else #define EXTERN_C extern #endif #endif   #ifdef MADLL_EXPORTS #define MADLL_API __declspec(dllexport) #else #define MADLL_API __declspec(dllimport) #endif   EXTERN_C MADLL_API int __stdcall DisplayHelloFromDLL(int a,int b);

---

Code:

---

1 2 3 4 5

//MaDLL.cpp EXTERN_C MADLL_API int __stdcall DisplayHelloFromDLL(int a,int b) { return a+b; }

---

Et soit j'utilise directement le nom décoré en VB:

Code:

---

Public Declare Function DisplayHelloFromDLL Lib "ma_dll.dll" Alias "_DisplayHelloFromDLL@8" (ByVal a As Long, ByVal b As Long) As Long

---

Soit je corrige dans un fichier def:

Code:

---

1 2 3

LIBRARY "MaDLL" EXPORTS DisplayHelloFromDLL=_DisplayHelloFromDLL@8

---