Bad DLL calling convention , вызов функции из vba

Господа, помогите, пожалуйста, избавиться от Run-time error 49 (Bad DLL calling convention). Ситуация такая.

У меня есть MFC DLL, которую я сделал на MSVC++ v7. В ней функция

__declspec(dllexport) void mfcfun(int n) {...}

Я её вызываю из MS Access следующим кодом

Private Declare Sub mfcfun _
  Lib "C:\work\access\mfcdll.dll" _
  Alias "?mfcfun@@YAXH@Z" _
  (ByVal n As Integer)
 
Private Sub testDLL()
    mfcfun 33
End Sub

Она нормально вызывается, но выдаёт после выхода эту самую ошибку 49.

Конечно, можно поставить
On Error Resume Next
но только боюсь, это приведёт рано или поздно к каким-нибудь проблемам.

Что посоветуете?

PS на CodeNet.ru никто не знает, похоже...

Попробуй убрать

ByVal

Добавлено 14.05.05, 09:55

Цитата

Bad DLL Calling Convention Error
This error is often caused by incorrectly omitting or including the ByVal keyword from the Declare statement. This error can also be caused if the wrong parameters are passed.

Цитата Mr. Greg @ 14.05.05, 09:42

Попробуй убрать ByVal

Нельзя. Тогда должно будет стать
mfcfun(int* n), а мне надо без "*"...

Скинь длл

Вот rar.

В нём проект на VC++ v7.0.

В папках Debug\ и Release\ соответственно отладочная и релизная DLL. Обе ведут себя одинаково. Функция вызывается, параметр передаётся правильно, но потом ошибка 49...

Моя реальная DLL делает, конечно, гораздо больше всего интересного, но эта тестовая ведёт себя так же.
Прикреплённый файлmfcdll.rar (31.26 Кбайт, скачиваний: 135)

Цитата

The C++ project must also be set to use the __stdcall calling convention. Otherwise you will get error 49 "Bad DLL Calling Convention". The issue there is that C++ and VB natively push arguments on the stack in different manner. But when you tell Visual C++ (presumable could do the same w/ Borland or another compiler) to use the __stdcall convention it makes it so your VB program can read it.

__stdcall

надо использовать, тем более если тип данных не определен

void

, с VB так нельзя.
зы. проект перекомпиленный в vc 6 ведет себя также

Добавлено 15.05.05, 03:28
VC DLL in VB

Сообщение отредактировано: Mr. Greg - 15.05.05, 03:34

попробуй вместо void поюзать инт.. ноль возвратишь и ладно.. басике инт на лонг надо менять...

Спасибо, Mr. Greg. Надо действительно писать __stdcall (или PASCAL):

__declspec(dllexport) void __stdcall mfcfun(int n) {...}

M

Тема перемещена из раздела VB for Application

Цитата Old Bat @ 16.05.05, 07:06

Тема перемещена из раздела VB for Application

Вам, конечно, виднее, уважаемый Old Bat, но мне почему-то кажется, что вопрос "как вызвать функцию из DLL в программе, написанной на VBA?" всё-таки относится именно к VBA, у не к каким-то там "общим вопросам"...

IMHO к VB, и, в том числе, к VBA. В теме не рассматриваются особенности именно VBA-кода (см. пост #6)

Да, вы правы.

Private Declare Sub mfcfun _
Lib "C:\work\access\mfcdll.dll" _
Alias "?mfcfun@@YAXH@Z" _
(ByVal n As LONG)

и все ок будет

Используй def-файл, чтобы убрать декорирование имен.
Тогда будет не "?mfcfun@@YAXH@Z", а "mfcfun"
Достаточно в этом файле прописать
EXPORT:
mfcfun

Цитата nash @ 16.05.05, 12:07

и все ок будет

утверждение ложное, не проверил, а советуешь

Цитата Алиса @ 16.05.05, 12:07

убрать декорирование имен

однако, полезно предыдущие ответы посмотреть - в ссылке об этом есть.

Сообщение отредактировано: Mr. Greg - 16.05.05, 13:30

Цитата

утверждение ложное, не проверил, а советуешь

что проверять когда C-ый int - это VB-ый Long.
Уже здесь ошибка. Может еще в чем.
Кстати, это ты советуешь во втором посте передавать по ссылке, когда сразу видно, что там по значению

Сообщение отредактировано: nash - 16.05.05, 14:16