Bad dll calling convention error 49

In my case this was «caused» by an excessive use of the continue character _ in a single if conditional

I had already recompiled, checked all return codes, moved modules around ,restarted excel , restarted my computer, copied the code to a brand new Excel spread-sheet, I read this article and the bit about return codes made me think about how many returns can be in an if statement

I had this

    If CompressIntoOneLineON(rg1, rgstart, rgend) or _
       CompressIntoOneLineOS(rg1, rgstart, rgend) or _
       CompressIntoOneLineOGN(rg1, rgstart, rgend) or _
       CompressIntoOneLineOGS(rg1, rgstart, rgend) or _
       CompressIntoOneLineGO(rg1, rgstart, rgend) Then
       <code>
    End If

I was getting the error when the subroutine containing this code exited
So I changed to this

matched = True
If CompressIntoOneLineON(rg1, rgstart, rgend) Then
ElseIf CompressIntoOneLineOS(rg1, rgstart, rgend) Then
ElseIf CompressIntoOneLineOGN(rg1, rgstart, rgend) Then
ElseIf CompressIntoOneLineOGS(rg1, rgstart, rgend) Then
ElseIf CompressIntoOneLineGO(rg1, rgstart, rgend) Then
Else
  matched = False
End If
if matched then
  <code>

and the error went away

	Номер ошибки:	Ошибка во время выполнения 49
Название ошибки:	Bad DLL calling convention
Описание ошибки:	Arguments passed to a dynamic-link library (DLL) must exactly match those expected by the routine. Calling conventions deal with number, type, and order of arguments.
Разработчик:	Microsoft Corporation
Программное обеспечение:	Windows Operating System
Относится к:	Windows XP, Vista, 7, 8, 10, 11

«Bad DLL calling convention» Введение

Люди часто предпочитают ссылаться на «Bad DLL calling convention» как на «ошибку времени выполнения», также известную как программная ошибка. Разработчики программного обеспечения, такие как Microsoft Corporation, обычно принимают Windows Operating System через несколько уровней отладки, чтобы сорвать эти ошибки перед выпуском для общественности. Как и во всем в жизни, иногда такие проблемы, как ошибка 49, упускаются из виду.

Некоторые люди могут столкнуться с сообщением «Arguments passed to a dynamic-link library (DLL) must exactly match those expected by the routine. Calling conventions deal with number, type, and order of arguments.» во время работы программного обеспечения. Когда это происходит, конечные пользователи программного обеспечения могут сообщить Microsoft Corporation о существовании ошибки 49 ошибок. Microsoft Corporation вернется к коду и исправит его, а затем сделает обновление доступным для загрузки. Таким образом при выполнении обновления программного обеспечения Windows Operating System, он будет содержать исправление для устранения проблем, таких как ошибка 49.

Почему возникает ошибка времени выполнения 49?

Ошибки выполнения при запуске Windows Operating System — это когда вы, скорее всего, столкнетесь с «Bad DLL calling convention». Рассмотрим распространенные причины ошибок ошибки 49 во время выполнения:

Ошибка 49 Crash — Ошибка 49 остановит компьютер от выполнения обычной программной операции. Это происходит много, когда продукт (Windows Operating System) или компьютер не может обрабатывать уникальные входные данные.

Утечка памяти «Bad DLL calling convention» — если есть утечка памяти в Windows Operating System, это может привести к тому, что ОС будет выглядеть вялой. Критическими проблемами, связанными с этим, могут быть отсутствие девыделения памяти или подключение к плохому коду, такому как бесконечные циклы.

Ошибка 49 Logic Error — логическая ошибка Windows Operating System возникает, когда она производит неправильный вывод, несмотря на то, что пользователь предоставляет правильный ввод. Виновником в этом случае обычно является недостаток в исходном коде Microsoft Corporation, который неправильно обрабатывает ввод.

Как правило, ошибки Bad DLL calling convention вызваны повреждением или отсутствием файла связанного Windows Operating System, а иногда — заражением вредоносным ПО. Как правило, любую проблему, связанную с файлом Microsoft Corporation, можно решить посредством замены файла на новую копию. В качестве последней меры мы рекомендуем использовать очиститель реестра для исправления всех недопустимых Bad DLL calling convention, расширений файлов Microsoft Corporation и других ссылок на пути к файлам, по причине которых может возникать сообщение об ошибке.

Распространенные сообщения об ошибках в Bad DLL calling convention

Наиболее распространенные ошибки Bad DLL calling convention, которые могут возникнуть на компьютере под управлением Windows, перечислены ниже:

• «Ошибка в приложении: Bad DLL calling convention»
• «Недопустимая программа Win32: Bad DLL calling convention»
• «Возникла ошибка в приложении Bad DLL calling convention. Приложение будет закрыто. Приносим извинения за неудобства.»
• «Файл Bad DLL calling convention не найден.»
• «Отсутствует файл Bad DLL calling convention.»
• «Ошибка запуска программы: Bad DLL calling convention.»
• «Bad DLL calling convention не работает. «
• «Bad DLL calling convention остановлен. «
• «Неверный путь к приложению: Bad DLL calling convention.»

Ошибки Bad DLL calling convention EXE возникают во время установки Windows Operating System, при запуске приложений, связанных с Bad DLL calling convention (Windows Operating System), во время запуска или завершения работы или во время установки ОС Windows. Документирование проблем Bad DLL calling convention в Windows Operating System является ключевым для определения причины проблем с электронной Windows и сообщения о них в Microsoft Corporation.

Источники проблем Bad DLL calling convention

Проблемы Windows Operating System и Bad DLL calling convention возникают из отсутствующих или поврежденных файлов, недействительных записей реестра Windows и вредоносных инфекций.

В частности, проблемы Bad DLL calling convention возникают через:

• Поврежденная или недопустимая запись реестра Bad DLL calling convention.
• Зазаражение вредоносными программами повредил файл Bad DLL calling convention.
• Bad DLL calling convention ошибочно удален или злонамеренно программным обеспечением, не связанным с приложением Windows Operating System.
• Другое программное обеспечение, конфликтующее с Windows Operating System, Bad DLL calling convention или общими ссылками.
• Windows Operating System (Bad DLL calling convention) поврежден во время загрузки или установки.

Продукт Solvusoft

Загрузка
WinThruster 2022 — Проверьте свой компьютер на наличие ошибок.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление

Как исправить ошибку во время выполнения 49

«Bad DLL calling convention» Введение

Люди часто предпочитают ссылаться на «Bad DLL calling convention» как на «ошибку времени выполнения», также известную как программная ошибка. Разработчики программного обеспечения, такие как Microsoft Corporation, обычно принимают Windows Operating System через несколько уровней отладки, чтобы сорвать эти ошибки перед выпуском для общественности. Как и во всем в жизни, иногда такие проблемы, как ошибка 49, упускаются из виду.

Некоторые люди могут столкнуться с сообщением «Arguments passed to a dynamic-link library (DLL) must exactly match those expected by the routine. Calling conventions deal with number, type, and order of arguments.» во время работы программного обеспечения. Когда это происходит, конечные пользователи программного обеспечения могут сообщить Microsoft Corporation о существовании ошибки 49 ошибок. Microsoft Corporation вернется к коду и исправит его, а затем сделает обновление доступным для загрузки. Таким образом при выполнении обновления программного обеспечения Windows Operating System, он будет содержать исправление для устранения проблем, таких как ошибка 49.

Почему возникает ошибка времени выполнения 49?

Ошибки выполнения при запуске Windows Operating System — это когда вы, скорее всего, столкнетесь с «Bad DLL calling convention». Рассмотрим распространенные причины ошибок ошибки 49 во время выполнения:

Ошибка 49 Crash — Ошибка 49 остановит компьютер от выполнения обычной программной операции. Это происходит много, когда продукт (Windows Operating System) или компьютер не может обрабатывать уникальные входные данные.

Утечка памяти «Bad DLL calling convention» — если есть утечка памяти в Windows Operating System, это может привести к тому, что ОС будет выглядеть вялой. Критическими проблемами, связанными с этим, могут быть отсутствие девыделения памяти или подключение к плохому коду, такому как бесконечные циклы.

Ошибка 49 Logic Error — логическая ошибка Windows Operating System возникает, когда она производит неправильный вывод, несмотря на то, что пользователь предоставляет правильный ввод. Виновником в этом случае обычно является недостаток в исходном коде Microsoft Corporation, который неправильно обрабатывает ввод.

Как правило, ошибки Bad DLL calling convention вызваны повреждением или отсутствием файла связанного Windows Operating System, а иногда — заражением вредоносным ПО. Как правило, любую проблему, связанную с файлом Microsoft Corporation, можно решить посредством замены файла на новую копию. В качестве последней меры мы рекомендуем использовать очиститель реестра для исправления всех недопустимых Bad DLL calling convention, расширений файлов Microsoft Corporation и других ссылок на пути к файлам, по причине которых может возникать сообщение об ошибке.

Распространенные сообщения об ошибках в Bad DLL calling convention

Наиболее распространенные ошибки Bad DLL calling convention, которые могут возникнуть на компьютере под управлением Windows, перечислены ниже:

• «Ошибка в приложении: Bad DLL calling convention»
• «Недопустимая программа Win32: Bad DLL calling convention»
• «Возникла ошибка в приложении Bad DLL calling convention. Приложение будет закрыто. Приносим извинения за неудобства.»
• «Файл Bad DLL calling convention не найден.»
• «Отсутствует файл Bad DLL calling convention.»
• «Ошибка запуска программы: Bad DLL calling convention.»
• «Bad DLL calling convention не работает. «
• «Bad DLL calling convention остановлен. «
• «Неверный путь к приложению: Bad DLL calling convention.»

Ошибки Bad DLL calling convention EXE возникают во время установки Windows Operating System, при запуске приложений, связанных с Bad DLL calling convention (Windows Operating System), во время запуска или завершения работы или во время установки ОС Windows. Документирование проблем Bad DLL calling convention в Windows Operating System является ключевым для определения причины проблем с электронной Windows и сообщения о них в Microsoft Corporation.

Источники проблем Bad DLL calling convention

Проблемы Windows Operating System и Bad DLL calling convention возникают из отсутствующих или поврежденных файлов, недействительных записей реестра Windows и вредоносных инфекций.

В частности, проблемы Bad DLL calling convention возникают через:

• Поврежденная или недопустимая запись реестра Bad DLL calling convention.
• Зазаражение вредоносными программами повредил файл Bad DLL calling convention.
• Bad DLL calling convention ошибочно удален или злонамеренно программным обеспечением, не связанным с приложением Windows Operating System.
• Другое программное обеспечение, конфликтующее с Windows Operating System, Bad DLL calling convention или общими ссылками.
• Windows Operating System (Bad DLL calling convention) поврежден во время загрузки или установки.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Источник

Недопустимое соглашение о вызовах библиотеки DLL (ошибка 49)

Аргументы, передаваемые в библиотеку динамической компоновки (DLL) или процедуру ресурсов кода Macintosh, должны в точности соответствовать всем требованиям процедуры. Соглашения о вызове действуют в отношении числа, типа и порядка аргументов. Эта ошибка имеет следующие причины и решения:

Программа вызывает процедуру в DLL (Windows) или ресурсе кода (Macintosh) и передает им аргументы неверного типа. Убедитесь, что тип аргументов соответствует заданному в объявлении процедуры, которую вы вызываете.

Программа вызывает процедуру в DLL (Windows) или ресурсе кода (Macintosh) и передает им неверное число аргументов. Убедитесь, что число аргументов соответствует заданному в объявлении процедуры, которую вы вызываете.

Программа вызывает процедуру в DLL с нарушением соглашения о стандартном вызове. Если процедура DLL требует указывать аргументы по значению, убедитесь, что в объявлении процедуры для этих аргументов определен атрибут ByVal.

Оператор Declare для библиотеки DLL Windows включает ключевое слово CDecl. Ключевое слово CDecl применяется только на платформе Macintosh.

Для получения дополнительной информации выберите необходимый элемент и нажмите клавишу F1 (для Windows) или HELP (для Macintosh).

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Run time error 49 word bad dll calling convention

Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ !
4. Используйте теги [ code=vba ] . текст программы. [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
FAQ Сайта FAQ Раздела Кладовка Наши Исходники API-Guide Поиск по Разделу MSDN Library Online Google
Ваше мнение о модераторах: SCINER, B.V.

Источник

How to fix the Runtime Code 49 Bad DLL calling convention

This article features error number Code 49, commonly known as Bad DLL calling convention described as Arguments passed to a dynamic-link library (DLL) must exactly match those expected by the routine. Calling conventions deal with number, type, and order of arguments.

Error Information

Error name: Bad DLL calling convention
Error number: Code 49
Description: Arguments passed to a dynamic-link library (DLL) must exactly match those expected by the routine. Calling conventions deal with number, type, and order of arguments.
Software: Windows
Developer: Microsoft

This repair tool can fix common computer errors like BSODs, system freezes and crashes. It can replace missing operating system files and DLLs, remove malware and fix the damage caused by it, as well as optimize your PC for maximum performance.

About Runtime Code 49

Runtime Code 49 happens when Windows fails or crashes whilst it’s running, hence its name. It doesn’t necessarily mean that the code was corrupt in some way, but just that it did not work during its run-time. This kind of error will appear as an annoying notification on your screen unless handled and corrected. Here are symptoms, causes and ways to troubleshoot the problem.

Definitions (Beta)

Here we list some definitions for the words contained in your error, in an attempt to help you understand your problem. This is a work in progress, so sometimes we might define the word incorrectly, so feel free to skip this section!

• Calling convention — A calling convention refers to the way a function transmits parameters to a called function and receives a return value from it.
• Convention — A convention is a set of agreed, stipulated, or generally accepted norms
• Conventions — A generic tag covering any accepted method of doing things, which could include naming, spacing, coding, commenting, etc.
• Dll — A dynamic-link library DLL is a module that contains functions and data that can be used by another module application or DLL
• Dynamic — Dynamic is a widely used term that, in general, describes a decision made by the program at run-time rather than at compile time.
• Match — A programming concept about finding results based on some kind of search
• Order — THIS TAG IS VAGUE
• Link — A hyperlink is a reference to a document or a section that can be followed for retrieval using a navigation system that allows selecting emphasized content within an originating document.
• Type — Types, and type systems, are used to enforce levels of abstraction in programs.
• .dll — A dynamic-link library DLL is a module that contains functions and data that can be used by another module application or DLL
• Number — A number is a mathematical object used to count, measure and label

Symptoms of Code 49 — Bad DLL calling convention

Runtime errors happen without warning. The error message can come up the screen anytime Windows is run. In fact, the error message or some other dialogue box can come up again and again if not addressed early on.

There may be instances of files deletion or new files appearing. Though this symptom is largely due to virus infection, it can be attributed as a symptom for runtime error, as virus infection is one of the causes for runtime error. User may also experience a sudden drop in internet connection speed, yet again, this is not always the case.

(Bad DLL calling convention) Repair Tool»/>
(For illustrative purposes only)

Causes of Bad DLL calling convention — Code 49

During software design, programmers code anticipating the occurrence of errors. However, there are no perfect designs, as errors can be expected even with the best program design. Glitches can happen during runtime if a certain error is not experienced and addressed during design and testing.

Runtime errors are generally caused by incompatible programs running at the same time. It may also occur because of memory problem, a bad graphics driver or virus infection. Whatever the case may be, the problem must be resolved immediately to avoid further problems. Here are ways to remedy the error.

Repair Methods

Runtime errors may be annoying and persistent, but it is not totally hopeless, repairs are available. Here are ways to do it.

If a repair method works for you, please click the upvote button to the left of the answer, this will let other users know which repair method is currently working the best.

Источник

Bad DLL calling convention (Error 49)

Arguments passed to a dynamic-link library (DLL) or Macintosh code resource routine must exactly match those expected by the routine. Calling conventions deal with number, type, and order of arguments. This error has the following causes and solutions:

Your program is calling a routine in a DLL (in Windows) or a code resource (on the Macintosh) that’s being passed the wrong type of arguments. Make sure all argument types agree with those specified in the declaration of the routine you are calling.

Your program is calling a routine in a DLL (in Windows) or a code resource (on the Macintosh) that’s being passed the wrong number of arguments. Make sure you are passing the same number of arguments indicated in the declaration of the routine you are calling.

Your program is calling a routine in a DLL, but isn’t using the StdCall calling convention. If the DLL routine expects arguments by value, then make sure ByVal is specified for those arguments in the declaration for the routine.

Your Declare statement for a Windows DLL includes CDecl. The CDecl keyword applies only to the Macintosh.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

03.08.2013, 22:51. Показов 52535. Ответов 18

1
2

Private Declare Function название_функции Lib "имя_библиотеки" Alias "название_функции_в_библиотеке"
(ByVal параметр_1 As тип_параметра, ..., ByVal параметр_n As тип_параметра) As тип_функции

1

Private Declare Function Symma Lib "test.dll" Alias "Summ" (ByVal a As Integer, ByVal b As Integer) As Integer

1
2

c = Symma(a,b)
d = Symma(1,3)

1

Private Declare Function название_функции cDecl Lib "название_библиотеки"...

1
2
3
4
5
6
7
8

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _
(ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" _
(ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" _
(ByVal hLibModule As Long) As Long
 
Dim handle As Long, address As Long, unload As Long

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Option Explicit
' API-функции 
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
 
Dim handle As Long, address As Long, unload As Long ' переменные с результатами функций
 
Private Sub Form_Load()
 
handle = LoadLibrary("test.dll") ' загружаем библиотеку
 
If handle <> 0 Then ' успешная загрузка
 
   MsgBox ("Библиотека успешно загружена.")
   address = GetProcAddress(handle, "Summ") ' получаем адрес функции
 
   If address <> 0 Then ' успешное получение адреса
 
      MsgBox ("Адрес функции успешно получен.") ' здесь можно использовать функцию
 
   ElseIf address = 0 Then ' ошибка при получении адреса
 
      MsgBox ("Ошибка при извлечении адреса функции из DLL!")
      Exit Sub 
 
   End If  
 
ElseIf handle = 0 Then ' ошибка при загрузке 
 
   MsgBox ("Ошибка при загрузке DLL!")
 
End If 
 
unload = FreeLibrary(handle) ' высвобождаем библиотеку из памяти 
 
If unload <> 0 Then ' успешно выгрузили 
 
   MsgBox ("Библиотека выгружена успешно.") 
 
ElseIf unload = 0 Then 'ошибка при выгрузке 
 
   MsgBox ("Ошибка при выгрузке библиотеки из памяти!") 
 
End If 
 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

Option Explicit
 
Private Declare Sub qsort Lib "ntdll" (base As Any, ByVal num As Long, ByVal width As Long, ByVal compare As Long)
Private Declare Function VarCmp Lib "oleaut32" (ByVal pvarLeft As Variant, ByVal pvarRight As Variant, ByVal lcid As Long, ByVal dwFlags As Long) As Long
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal Length As Long)
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpFunc As Long, ByVal Param1 As Long, ByVal Param2 As Long, ByVal Param3 As Long, ByVal Param4 As Long) As Long
 
Dim hModule1 As Long, EntryPoint As Long
Dim hModule2 As Long, VarCmp As Long
Dim Thunk(0 To 32) As Byte
Dim Comparer(0 To 24) As Byte
 
Public Sub Initialize()
    hModule1 = LoadLibrary("ntdll")
    EntryPoint = GetProcAddress(hModule1, "qsort")
    hModule2 = LoadLibrary("oleaut32")
    VarCmp = GetProcAddress(hModule2, "VarCmp")
' cDecl - ложим в стек параметры справа налево
CopyMemory Thunk(0), &H102474FF, 4  'FF742410   push dword ptr [esp+10h] - помещаем адрес функции VarCmp
    CopyMemory Thunk(4), &H102474FF, 4  'FF742410   push dword ptr [esp+10h] - помещаем размер (в байтах) одной переменной
    CopyMemory Thunk(8), &H102474FF, 4  'FF742410   push dword ptr [esp+10h] - помещаем кол-во элементов массива
    CopyMemory Thunk(12), &H102474FF, 4 'FF742410   push dword ptr [esp+10h] - помещаем указатель на буфер
    CopyMemory Thunk(16), &H6E8, 2      'E806000000 call $+6 - помещаем в стек, адрес следующей инструкции,
                                        ' после вызова qSort, выполнение начнется с нее. А также вызываем
                                        ' инструкцию расположенную на шесть байт после текущей
    CopyMemory Thunk(21), &H10C483, 3   '83C410     add esp, 10h - вызов cDecl чистим стек здесь, потому что
                                        ' VB не будет этого за нами делать
    CopyMemory Thunk(24), &H10C2, 2     'C21000     ret 10h - Тоже для CallWindowProc
    Thunk(27) = &H68                    '68xxxxxxxx push xxxxxxxx - здесь пишем адрес функции qSort в стек
    CopyMemory Thunk(28), EntryPoint, 4
    Thunk(32) = &HC3                    'C3         ret - удаляем из стека адрес функции qSort, и вызываем ее
' Для косвенного вызова через qSort функции VarCmp (сравнение двух Variant переменных)
    ' qSort сама чистит стек после выполнения этой вставки.
    ' stdCall - ложим в стек параметры справа налево
Comparer(0) = &H6A                  '6A00       push 0 - dwFlags
    Comparer(2) = &H6A                  '6A00       push 0 - lcid
    CopyMemory Comparer(4), &H102474FF, 4 'FF742410 push dword ptr [esp+10h] - pvarRight
    CopyMemory Comparer(8), &H102474FF, 4 'FF742410 push dword ptr [esp+10h] - pvarLeft
    CopyMemory Comparer(12), &H2E8, 2   'E802000000 call $+2 - Начнем выполнение с Comparer(19) (push xxxxxxxx -
                                        ' где xxxxxxxx- адрес функции VarCmp)
                                        ' Возвращаемое значение в регистре eax
    Comparer(17) = &H48                 '48         dec eax  - Вычитаем единицу для соответствия константам qSort'a
    Comparer(18) = &HC3                 'C3         ret - stdcall функция VarCmp сама почистила стек, поэтому просто выходим
Comparer(19) = &H68                 '68xxxxxxxx push xxxxxxxx - здесь пишем адрес функции VarCmp в стек
    CopyMemory Comparer(20), VarCmp, 4
    Comparer(24) = &HC3                 'C3         ret - переходим к выполнению VarCmp
End Sub
 
Public Sub Terminate()
    FreeLibrary hModule1
    FreeLibrary hModule2
End Sub
 
Public Sub SystemSort(SortArray())
    Initialize
    CallWindowProc VarPtr(Thunk(0)), VarPtr(SortArray(LBound(SortArray))), UBound(SortArray) - LBound(SortArray) + 1, 16, VarPtr(Comparer(0))
    Terminate
End Sub
 
Sub Main()
Dim i As Long, MyArr(-800 To 4000), StartTime As Single
Randomize Timer
  For i = LBound(MyArr) To UBound(MyArr)
    MyArr(i) = Rnd * 800
  Next
StartTime = Timer
  SystemSort MyArr
  Debug.Print Round(Timer - StartTime, 4)
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84

Option Explicit
 
Private Declare Function GetMem4 Lib "msvbvm60" (pSrc As Any, pDst As Any) As Long
Private Declare Function GetMem2 Lib "msvbvm60" (pSrc As Any, pDst As Any) As Long
Private Declare Function PutMem4 Lib "msvbvm60" (pDst As Any, NewValue As Any) As Long
 
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpFunc As Long, ByVal Param1 As Long, ByVal Param2 As Long, ByVal Param3 As Long, ByVal Param4 As Long) As Long
 
Dim hModule1 As Long, EntryPoint As Long
 
Dim Thunk(0 To 43) As Byte
 
Public Sub Initialize()
 
    hModule1 = LoadLibrary("ntdll")
    EntryPoint = GetProcAddress(hModule1, "qsort")
 
    ' cDecl - ложим в стек параметры справа налево
    
    Thunk(0) = &HB8                     'B800000000 - помещаем в eax адрес функции qSort
    GetMem4 EntryPoint, Thunk(1)
    Thunk(5) = &H5B                     'pop ebx
    GetMem2 &H1D89, Thunk(6)            'mov xxxxxxxx,ebx
    PutMem4 Thunk(8), Thunk(24)
    GetMem2 &HD0FF, Thunk(12)           'FFD0 - Call eax вызываем qSort
    GetMem2 &H1D8B, Thunk(14)           'mov ebx,xxxxxxxx
    PutMem4 Thunk(16), Thunk(24)
    Thunk(20) = &H53                    'push ebx
    GetMem2 &H10C2, Thunk(21)           'C21000     ret 10h - Тоже для CallWindowProc
 
    ' т.к. qSort сама чистит стек, Compare вызывается через вставку
    
    GetMem4 &H82474FF, Thunk(28)          'push   DWORD PTR [esp+0x8]  ' Дубликат параметра
    GetMem4 &H82474FF, Thunk(32)          'push   DWORD PTR [esp+0x8]  ' Дубликат параметра
    Thunk(36) = &HB8                      'mov eax,xxxxxxxx
    GetMem4 AddressOf Compare, Thunk(37)  'xxxxxxxx - Compare
    GetMem2 &HD0FF, Thunk(41)             'call eax - вызываем Compare
    Thunk(43) = &HC3                      'ret - Возвращаемся, стек почистит qSort
End Sub
 
Public Function Compare(ByVal lpOp1 As Long, ByVal lpOp2 As Long) As Long      ' CallBack - функция сравнения
    Dim Op1 As Long, Op2 As Long
    
    GetMem4 ByVal lpOp1, Op1
    GetMem4 ByVal lpOp2, Op2
    
    ' По возрастанию
    If Op1 < Op2 Then Compare = -1: Exit Function
    If Op1 = Op2 Then Compare = 0: Exit Function
    Compare = 1
    
    ' По убыванию
'    If Op1 < Op2 Then Compare = 1: Exit Function
'    If Op1 = Op2 Then Compare = 0: Exit Function
'    Compare = -1
    
End Function
 
Public Sub Terminate()
    FreeLibrary hModule1
End Sub
 
Public Sub SystemSort(SortArray() As Long)
    Initialize
    CallWindowProc VarPtr(Thunk(0)), _
                   VarPtr(SortArray(LBound(SortArray))), _
                   UBound(SortArray) - LBound(SortArray) + 1, _
                   LenB(SortArray(LBound(SortArray))), VarPtr(Thunk(28))
    Terminate
End Sub
 
Sub Main()
    Dim i As Long, MyArr(0 To 4000) As Long
    
    For i = 0 To UBound(MyArr)
        MyArr(i) = Rnd * 800
    Next
    
    SystemSort MyArr
 
End Sub

1

Set myObj = New имя_dll.myClass

1

Set myObj=CreateObject("имя_dll.myClass")

1

x=myObj.Summ(параметры)

15

Нравится ресурс? Помоги проекту!

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

• Подписаться на тему
• Сообщить другу
• Скачать/распечатать тему

Сообщ. #1 , 14.05.05, 09:35

Member

Господа, помогите, пожалуйста, избавиться от 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:workaccessmfcdll.dll» _   Alias «?mfcfun@@YAXH@Z» _   (ByVal n As Integer) Private Sub testDLL()     mfcfun 33 End Sub Она нормально вызывается, но выдаёт после выхода эту самую ошибку 49. Конечно, можно поставить On Error Resume Next но только боюсь, это приведёт рано или поздно к каким-нибудь проблемам. Что посоветуете? PS на CodeNet.ru никто не знает, похоже…

Mr. Greg	Сообщ. #2 , 14.05.05, 09:42
	Попробуй убрать 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.

sq_deep	Сообщ. #3 , 14.05.05, 12:52
Member	Цитата Mr. Greg @ 14.05.05, 09:42 Попробуй убрать ByVal Нельзя. Тогда должно будет стать mfcfun(int* n), а мне надо без «*»…

Mr. Greg	Сообщ. #4 , 14.05.05, 12:57
	Скинь длл

sq_deep	Сообщ. #5 , 14.05.05, 14:25
Member	Вот rar. В нём проект на VC++ v7.0. В папках Debug и Release соответственно отладочная и релизная DLL. Обе ведут себя одинаково. Функция вызывается, параметр передаётся правильно, но потом ошибка 49… Моя реальная DLL делает, конечно, гораздо больше всего интересного, но эта тестовая ведёт себя так же. Прикреплённый файлmfcdll.rar (31.26 Кбайт, скачиваний: 104)

Mr. Greg

Сообщ. #6 , 15.05.05, 03:27

Цитата 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

nikf	Сообщ. #7 , 15.05.05, 14:05
	попробуй вместо void поюзать инт.. ноль возвратишь и ладно.. басике инт на лонг надо менять…

sq_deep	Сообщ. #8 , 16.05.05, 06:00
Member	Спасибо, Mr. Greg. Надо действительно писать __stdcall (или PASCAL): __declspec(dllexport) void __stdcall mfcfun(int n) {…}

Old Bat	Сообщ. #9 , 16.05.05, 07:06

sq_deep	Сообщ. #10 , 16.05.05, 08:42
Member	Цитата Old Bat @ 16.05.05, 07:06 Тема перемещена из раздела VB for Application Вам, конечно, виднее, уважаемый Old Bat, но мне почему-то кажется, что вопрос «как вызвать функцию из DLL в программе, написанной на VBA?» всё-таки относится именно к VBA, у не к каким-то там «общим вопросам»…

Old Bat	Сообщ. #11 , 16.05.05, 09:26
	IMHO к VB, и, в том числе, к VBA. В теме не рассматриваются особенности именно VBA-кода (см. пост #6)

sq_deep	Сообщ. #12 , 16.05.05, 10:01
Member	Да, вы правы.

nash	Сообщ. #13 , 16.05.05, 11:58
	Private Declare Sub mfcfun _ Lib «C:workaccessmfcdll.dll» _ Alias «?mfcfun@@YAXH@Z» _ (ByVal n As LONG) и все ок будет

Алиса	Сообщ. #14 , 16.05.05, 12:07
Senior Member Рейтинг (т): 58	Используй def-файл, чтобы убрать декорирование имен. Тогда будет не «?mfcfun@@YAXH@Z», а «mfcfun» Достаточно в этом файле прописать EXPORT: mfcfun

Mr. Greg	Сообщ. #15 , 16.05.05, 13:29
	Цитата nash @ 16.05.05, 12:07 и все ок будет утверждение ложное, не проверил, а советуешь Цитата Алиса @ 16.05.05, 12:07 убрать декорирование имен однако, полезно предыдущие ответы посмотреть — в ссылке об этом есть. Сообщение отредактировано: Mr. Greg — 16.05.05, 13:30

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

• Предыдущая тема
• Visual Basic: Общие вопросы
• Следующая тема

[ Script execution time: 0,0600 ]   [ 16 queries used ]   [ Generated: 9.02.23, 07:30 GMT ]  

Модератор: Модераторы

Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9