Discussion :

[Tuizi]

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 :

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

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 :

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

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 :

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

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

[Spout]

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

[Tuizi]

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

[NairodDorian]

"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;
}

[Tuizi]

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 :

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

  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

[Tuizi]

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 :

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

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

[Médinoc]

Généralement, j'utilise ceci:

Code C/C++ :

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
//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 C++ :

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

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 VB :

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

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 X :

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

1
2
3
LIBRARY "MaDLL"
EXPORTS
	DisplayHelloFromDLL=_DisplayHelloFromDLL@8