Bonjour,
J'ai un problème d'appel de DLL écrite en C, dans mon code en VB. pourriez vous m'aider ? ? ?
Voici mon message d'erreur quand j'exécute mon VB :
Erreur d'exécution '453' :
Point d'entrée proc d'une DLL introuvable dans C:\essaiDLL\GEPT.dll

Pour un peu plus de précision, voici mon code en VB :
Dim valeur As Long
' declaration de la DLL
Private Declare Function DLLessai Lib "C:\essaiDLL\GEPT.dll" Alias "proc" _
(ByVal valeur As Long) As Long

Public Sub Command1_Click()
Dim lghDC As Long
valeur = 2
' appel de la DLL
lghDC = DLLessai(valeur)
Text1.Text = lghDC

End Sub

Et le code de la DLL :
//fichier c Gept32.cpp

#define EXPORT __declspec(dllexport)

EXPORT int toto; /* Valeur calculee par le systeme */

EXPORT int proc(int var)
{//multiplie la variable var par 2
var*=2;
return var;
}

Merci beaucoup pour votre aide :-)
Laet

Moi mes deux fichiers contiennent:

MaDLL.h:
// MaDLL.h
//


typedef unsigned char Byte;
typedef short Integer;
typedef long LONG;
typedef float Single;
typedef double Double;


Integer WINAPI CalcDOBYear (Integer, Integer); // juste pour les tests

//void WINAPI CenterScreenObject (Integer&, Integer&, Integer, Integer);

et

MaDLL.cpp:
// MaDLL.cpp : Defines the entry point for the DLL application.
//

#include "stdafx.h"
#include "MaDLL.h"

BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}



Integer WINAPI CalcDOBYear (Integer YearNow, Integer Age) // juste pour les tests
{
Integer Retour;

Retour = YearNow - Age;

//MessageBox "Yo!";

return (Retour);

}


-------------------------------
Réponse au message :
-------------------------------

Bonjour,
J'ai un problème d'appel de DLL écrite en C, dans mon code en VB. pourriez vous m'aider ? ? ?
Voici mon message d'erreur quand j'exécute mon VB :
Erreur d'exécution '453' :
Point d'entrée proc d'une DLL introuvable dans C:\essaiDLL\GEPT.dll

Pour un peu plus de précision, voici mon code en VB :
Dim valeur As Long
' declaration de la DLL
Private Declare Function DLLessai Lib "C:\essaiDLL\GEPT.dll" Alias "proc" _
(ByVal valeur As Long) As Long

Public Sub Command1_Click()
Dim lghDC As Long
valeur = 2
' appel de la DLL
lghDC = DLLessai(valeur)
Text1.Text = lghDC

End Sub

Et le code de la DLL :
//fichier c Gept32.cpp

#define EXPORT __declspec(dllexport)

EXPORT int toto; /* Valeur calculee par le systeme */

EXPORT int proc(int var)
{//multiplie la variable var par 2
var*=2;
return var;
}

Merci beaucoup pour votre aide :-)
Laet
-------------------------------

J'ai oublié ce fichier:

MaDLL.def:
LIBRARY MADLL

EXPORTS
CalcDOBYear


-------------------------------
Réponse au message :
-------------------------------

Moi mes deux fichiers contiennent:

MaDLL.h:
// MaDLL.h
//


typedef unsigned char Byte;
typedef short Integer;
typedef long LONG;
typedef float Single;
typedef double Double;


Integer WINAPI CalcDOBYear (Integer, Integer); // juste pour les tests

//void WINAPI CenterScreenObject (Integer&, Integer&, Integer, Integer);

et

MaDLL.cpp:
// MaDLL.cpp : Defines the entry point for the DLL application.
//

#include "stdafx.h"
#include "MaDLL.h"

BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}



Integer WINAPI CalcDOBYear (Integer YearNow, Integer Age) // juste pour les tests
{
Integer Retour;

Retour = YearNow - Age;

//MessageBox "Yo!";

return (Retour);

}


-------------------------------
Réponse au message :
-------------------------------

Bonjour,
J'ai un problème d'appel de DLL écrite en C, dans mon code en VB. pourriez vous m'aider ? ? ?
Voici mon message d'erreur quand j'exécute mon VB :
Erreur d'exécution '453' :
Point d'entrée proc d'une DLL introuvable dans C:\essaiDLL\GEPT.dll

Pour un peu plus de précision, voici mon code en VB :
Dim valeur As Long
' declaration de la DLL
Private Declare Function DLLessai Lib "C:\essaiDLL\GEPT.dll" Alias "proc" _
(ByVal valeur As Long) As Long

Public Sub Command1_Click()
Dim lghDC As Long
valeur = 2
' appel de la DLL
lghDC = DLLessai(valeur)
Text1.Text = lghDC

End Sub

Et le code de la DLL :
//fichier c Gept32.cpp

#define EXPORT __declspec(dllexport)

EXPORT int toto; /* Valeur calculee par le systeme */

EXPORT int proc(int var)
{//multiplie la variable var par 2
var*=2;
return var;
}

Merci beaucoup pour votre aide :-)
Laet
-------------------------------
-------------------------------