problème de passage d'argument VB/C++ dans une dll

Question

Bonjour,
voici le code C++ de ma dll :


#include <windows.h>
#define export __declspec(dllexport)
export void SomeFunction(const LPCSTR sometext)
{
    MessageBox(0, sometext , "DLL Message", MB_OK | MB_ICONINFORMATION);
}


j'appelle cette fonction dans VB avec le code suivant :


Private Declare Sub SomeFunction Lib "C:\Documents and Settings\...\sample.dll" (ByVal chaine As String)
Sub Test()
SomeFunction ("toto")
End Sub


L'op&#233;ration s'effectue correctement, mais juste apr&#232;s survient un message d'erreur d'ex&#233;cution 49 (convention d'appel de DLL incorrecte). Je crois que cela a avoir avec une sombre histoire de __stdcall, mais je ne sais pas quoi en faire (o&#249; le placer dans le code). Si je le mets apr&#232;s export ("#define export __stdcall __declspec(dllexport)"), alors plus rien ne marche (erreur 453 : la fonction est introuvable). Pareil si je le mets apr&#232;s "void" ("export void __stdcall SomeFunction(const LPCSTR sometext)").


Please Help!


PS : Vous avez compris que je suis un grand d&#233;butant! Si vous avez des r&#233;f&#233;rences pour m'aider &#224; comprendre ce que je fais, elles sont les bienvenues!

PCPT · Answer

salut,

ajoute call devant ton appel pour voir? (ou enl&#232;ve les parenth&#232;ses)

BruNews · Answer

#ifdef __cplusplus
extern "C" {
#endif

void __stdcall SomeFunction(const LPCSTR sometext)
{
  MessageBox(GetFocus(), sometext , "DLL Message", MB_ICONINFORMATION);
}

#ifdef __cplusplus
}
#endif

L'appel VB va bon tel quel.

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

EL0807 · Answer

Je r&#233;ponds un peu tard, faute de connexion internet.
D&#233;j&#224;, merci pour votre aide.
H&#233;las, rien ne marche : call ne change rien, et la compilation du code propos&#233; me renvoie une flopp&#233;e d'erreur (syntax error before somtext, 'somtext' undeclared, ...)

PCPT · Answer

bonne blague ....

BruNews · Answer

Plein d'exemples de DLLs dans mes sources:

DLL C ET ASM POUR VB
http://www.cppfrance.com/code.aspx?id=20672
TRAITER STRING VB PAR DLL C/C++ (WIN32)
http://www.cppfrance.com/code.aspx?ID=30115

etc...

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

EL0807 · Answer

J'ai bien repris les conseils qui m'ont &#233;t&#233; donn&#233;, et me suis inspir&#233; des exemples (qui marchent effectivement), mais mon code bute toujours sur l'erreur 49 : 
#include <windows.h>
#ifdef __cplusplus
extern "C" {
#endif
void SomeFunction(const LPCSTR sometext)
{
    MessageBox(0, sometext , "DLL Message", MB_OK | MB_ICONINFORMATION);
}
#ifdef __cplusplus
}
#endif
Pourquoi ce code provoque-t-il une erreur tandis que ceux aimablement propos&#233;s (ceux de TRAITER STRING VB PAR DLL C/C++ (WIN32)), fonctionnent correctement? 
Je ne suis absolument pas informaticien, et les exemples de codes sans commentaires sont pour moi totalement abscons. Je n'ai pas la moindre id&#233;e de ce qui est important et de ce qui ne l'est pas, de ce qui peut provoquer cette erreur et de ce qui n'a rien &#224; voir! Un peu de piti&#233; pour un b&#233;otien!
Bien cordialement,
EL

EL0807 · Answer

J'oubliais de pr&#233;ciser que j'ai plac&#233; dans le dossier o&#249; se situe la dll (TestDLL.dll) un fichier TestDLL.def contenant ces lignes : 
LIBRARY TestDLL
EXPORTS
SomeFunction @1
J'ai &#233;videmment chang&#233; le nom de la dll dans le code VB.
Bien cordialement,
EL

EL0807 · Answer

Autre chose : j'utilise Code::Blocks pour compiler le code et cr&#233;er la dll.
Bien cordialement,
EL

BruNews · Answer

void __stdcall SomeFunction(const LPCSTR sometext)

Ne jamais oublier qu'il faut exporter en STDCALL.

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

EL0807 · Answer

A nouveau merci pour le coup de main!
Le probl&#232;me c'est que l'ajout de __stdcall provoque une erreur 453 (point d'entr&#233;e introuvable). Comme je commence &#224; saisir deux trois trucs, j'ai eu la curiosit&#233; d'aller jeter un oeil sur la table d'exportation de la dll avec Quick View Plus 8.0. J'y observe alors que le nom de la fonction est devenu SomeFunction@4. Je modifie en cons&#233;quence le fichier .def, qui devient :
LIBRARY TestDLL
EXPORTS
SomeFunction SomeFunction@4


Et alors... erreur 453!


Je remodifie alors le .def en suivant des indications trouv&#233;es sur le net (http://www.laboratoire-microsoft.org/articles/dev/dll/4/) : 
LIBRARY TestDLL
EXPORTS
SomeFunction = SomeFunction@4 PRIVATE


Et alors... erreur 453!


Je vais devenir fou...


Bien cordialement,


EL

Problème de passage d'argument VB/C++ dans une dll

10 réponses

Discussions similaires