VBA CallBack function vers DLL

Question

J'ai un pb pour envoyer un pointeur de function vers une DLL de VBA. Exactement ca marche si la function() n'a pas d'argument mais pas si elle prend un argument

Voici mon programme de 8 lignes, avec la function DLL (2 lignes), si qq sait ce qui cloche:

Le code en VBA:
----------------------------------------------------
Option Explicit

Declare Function DLLFunction Lib "MyDLL.dll" _
(ByVal VBFunction As Long) As Double

Function VBFunction(ByVal val As Double) As Double
VBFunction = val
End Function

Sub CallBack()
DLLFunction AddressOf VBFunction
End Sub
----------------------------------------------------

Et le code pour MyDLL en C++:
----------------------------------------------------
double __stdcall DLLFunction( double VBFunction(double val) )
{ return VBFunction(val); }
----------------------------------------------------

ShareVB · Answer

salut,



le code de ta dll me parait curieux, surtout le param&#232;tre VBFunction, moi je mettrais :


typedef double __stdcall (*LPVBFct)(double val);

double __stdcall DLLFunction(LPVBFct VBFunction, double val)

{ return VBFunction(val); }



ou bien :



double __stdcall DLLFunction(double __stdcall (*VBFunction)(double), double val)

{ return VBFunction(val); }



et donc :

Declare Function DLLFunction Lib "MyDLL.dll" _

(ByVal VBFunction As Long,Byval val as double) As Double


ShareVB

toto_fr_2002 · Answer

Tu as raison le pb est la DLL, j'ai oublie de donner la convention
_stdcall pour le pointeur de fc. Un des code correct est donc:



------------------------------------------

double __stdcall DLLFunction( double _stdcall VBFunction(double val) )

{ return VBFunction(1); }

-----------------------------------------



marrant que le compiler puisse accepter 2 type de conventions differentes...

ShareVB · Answer

salut,



avec quel compilo peux-tu compiler un tel code ? le param&#232;tre
VBFunction n'a pas la syntaxe d'un pointeur de fonction ? ce devrait
&#234;tre (*VBFunction) ???

ShareVB

VBA CallBack function vers DLL

3 réponses

Discussions similaires