Excel VBA:error de tiempo de ejecución 49:convención de llamada de DLL incorrecta que llama a C++ dll

 C Programming >> Programación C >  >> Tags >> Excel
Excel VBA:error de tiempo de ejecución 49:convención de llamada de DLL incorrecta que llama a C++ dll


Estoy intentando llamar a una DLL de C++ desde Excel-VBA.


Sé que la función DLL se está ejecutando cuando inserté fputs () registrando llamadas para rastrear la ejecución y los sellos aparecen en mi archivo de registro. El problema es que cada vez que regresa la función DLL, aparece el error 49.


Aquí está la declaración en VBA:


Private Declare Function InitMCR Lib "MCRBoilerplate.dll" Alias "[email protected]@YGXXZ" ()

y aquí está la declaración en C++


__declspec(dllexport) void __stdcall initMCR() { ... }

¿Por qué obtengo este comportamiento de Error 49, aunque las llamadas DLL parecen estar funcionando?


Respuestas:


En VBA, funciones que devuelven void debe declararse como Sub en lugar de Function


Entonces la declaración en VBA debería ser:


Private Declare Sub InitMCR Lib "MCRBoilerplate.dll" Alias "[email protected]@YGXXZ" ()

Consulte la página de MSDN en la declaración de declaración de VBA


Algunas respuestas de código


// MathLibrary.h - Contains declarations of math functions #pragma once  #ifdef MATHLIBRARY_EXPORTS #define MATHLIBRARY_API __declspec(dllexport) #else #define MATHLIBRARY_API __declspec(dllimport) #endif  // The Fibonacci recurrence relation describes a sequence F // where F(n) is { n = 0, a //   { n = 1, b //   { n >
1, F(n-2) + F(n-1) // for some initial integral values a and b. // If the sequence is initialized F(0) = 1, F(1) = 1, // then this relation produces the well-known Fibonacci // sequence: 1, 1, 2, 3, 5, 8, 13, 21, 34, ... // Initialize a Fibonacci relation sequence // such that F(0) = a, F(1) = b. // This function must be called before any other function. extern "C" MATHLIBRARY_API void fibonacci_init(
const unsigned int a, const unsigned int b);
// Produce the next value in the sequence. // Returns true on success and updates current value and index;
// false on overflow, leaves current value and index unchanged. extern "C" MATHLIBRARY_API bool fibonacci_next();
// Get the current value in the sequence. extern "C" MATHLIBRARY_API unsigned int fibonacci_current();
// Get the position of the current value in the sequence. extern "C" MATHLIBRARY_API unsigned fibonacci_index();
Public Declare Sub fibonacci_init Lib "C:\development\MathLibrary\Release\MathLibrary.dll" (ByVal a As Integer, ByVal a As Integer) Public Declare Function fibonacci_next Lib "C:\development\MathLibrary\Release\MathLibrary.dll" () As Boolean Public Declare Function fibonacci_current Lib "C:\development\MathLibrary\Release\MathLibrary.dll" () As Integer  Public Function run_dll()
Dim b As Integer
Call fibonacci_init(1, 1)
b = fibonacci_current() End Function
const char* str = "abcdefg";
extern "C" __declspec(dllexport) int size() {
return strlen(str);
} extern "C" __declspec(dllexport) bool test(char* pReturn) {
int nSize = strlen(str);
lstrcpynA(pReturn, str, nSize);
return true;
}
Public Declare Function size Lib "C:\development\MathLibrary\Release\Trial.dll" () As Long Public Declare Function test Lib "C:\development\MathLibrary\Release\Trial.dll" (ByVal p As Long) As Boolean  (1) Public Function run_dll() (2)    Dim bb As Boolean (3)    Dim sz As Integer (4)    Dim s As String
(5) sz = size()
(6) s = Space(sz)
(7) bb = test(StrPtr(s)) (8) End Function

No