DLL C++ utilisée en VB

Bonjour a tous,
J'ai un gros problème! J'ai écris une dll en c++ avec VC++ 6.0 Enterprise, en utilisant le win32 dll wizard. J'ai ajouté mes fonctions comme celle de l'exemple et comme celles des tutorials que j'ai vu sur le net. Malgré tout ceci, lorsque j'essaie d'utiliser la dll en VB, les parametres ne passent pas correctement, et les retours sont corrects seulement si il s'agit de constantes (ex: "return 24;" donne 24, mais "int myvar = 24; return myvar;" donnera un chiffre aléatoire). Je ne sais pas si il s'agit de ma dll, ou de vb, mais j'aimerais bcp avoir de l'aide. Merci d'avance de m'aider.

Je suis en train de travailler sur un gros projet avec un ami, une invention un peu bizzaroide, et j'ai absolument besoin de terminer toute la programmation avant le 20 mars 2004. Je remercie énormément tout ceux qui voudront m'aider, meme la plus petite information est précieuse. Nous travaillons avec VB 6.0 et VC++ 6.0 Enterprise. Répondez ici et si vous avez des questions, écrivez moi directement à l'adresse suivente " aidez.nous@xerolab.tk ". Vous pouvez aussi visiter mon site www.xerolab.4t.com pour plus d'information sur mon projet.

Merci encore!

Jack

Mets nous le code de ta fonction C et ta déclaration de cette même fonction sous VB, ce sera plus facile de voir ce qui ne va pas !

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

va faire un tour là tu y trouvera peut-être la réponse :
http://www.cppfrance.com/code.aspx?ID=20672

voici la source de la dll, avant que les fonctions ne soient remplis (prend moins de place, et c bcp plus compréhensible)
XLdll.cpp:
#include <windows.h>

BOOL WINAPI DllMain(HINSTANCE hDll, DWORD dwReason, LPVOID Reserved)
{
// remplir switch(dwReason) si besoin
return 1;
}

extern "C" int __stdcall bnFuncA(int dwcode) // export dans le def
{
dwcode++;
return dwcode;
}

extern "C" int __stdcall bnFuncB(char *pszfile) // export dans le def
{
// code fonction
return 0;
}

XLdll.def:
LIBRARY XLdll
EXPORTS
bnFuncA
bnFuncB

Code VB
Module:
(je n'utilise que la fonction bnFuncA pour l'instant)
Public Declare Function bnFuncA Lib "C:\Documents and Settings\--**Mon nom a moi ;) **--\My Documents\Visual Studio Projects\XLdll\Release\XLdll.dll" (dwcode As Long) As Long

code:
Private Sub Command1_Click()
Dim Data As Long
If Check1.Value = 1 Then Data = 1
If Check1.Value = 2 Then Data = 2
If Check1.Value = 3 Then Data = 3
If Check1.Value = 4 Then Data = 4
Label1.Caption = bnFuncA(Data)
End Sub

Le code VB est utilisé seulement pour le test, et sera remplacé par qqchose de plus utile. Pour l'instant, si je mets dans la dll c++ "return 0;" la valeur du Label1.Caption est de 0, mais si je mets le code qui retourne une variable, peu importe la valeur de Data, la valeur de Label1.Caption est de "1242189"

OK, je vois que mon doute etait fonde dans la reponse privee.
Il ne manque que le ByVal dans la Declare VB.

ciao...
BruNews, Admin CS, MVP Visual C++