Создание процедурных DLL в Visual Basic (статья)

@Catstail · Регистрация: 12.02.2012

Author24 — интернет-сервис помощи студентам

Создание процедурных DLL в Visual Basic

Несколько слов о резонах создания процедурных Dll на VB. Как известно, VB позволяет без проблем создавать ActiveX-Dll. Эта возможность в целом решает проблему повторного использования кода. Однако, есть два момента, которые могут сделать использование ActiveX-Dll (т.е. COM) не вполне удобным.

Первая проблема состоит в том, что ActiveX-Dll нельзя просто скопировать - нужна регистрация (т.е. административные права). А при повсеместном внедрении политик безопасности, получение прав администратора вырастает в большую проблему. Использование процедурных dll не требует регистрации.

Вторая проблема состоит в том, что интенсивное использование кода из ActiveX-Dll (даже при раннем связывании) все-таки медленнее, чем использование кода из своей программы (или из процедурной dll) - ведь соблюдение стандарта COM требует ресурсов... И особенно больших, если используется ActiveX-Exe.

Все это делает создание процедурных dll на VB достаточно актуальным.

Теперь к делу!

Интересующиеся деталями могут прочитать мой перевод статьи
"Создание процедурных DLL в Visual Basic".

А для "занятых" могу сказать следующее:

1) Скопируйте и разверните прилагаемый архив с примерами
2) из поддиректории link-2 возьмите модуль linkk.exe; перенесите его в установочную директорию VB (она обычно располагается по адресу \Program Files\Microsoft Visual Studio\Vb98); модуль LINK.EXE переименуйте в LINKLNK.EXE,
а модуль linkk.exe -> LINK.EXE
3) Для создание dll действуйте так:

- создавайте проект ActiveX-DLL (и назовите myLib)
- модуль класса не трогайте
- добавьте в проект стандартный модуль и занесите в него следующее:

Visual Basic

Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3
 
Public lastErr As Long
 
Public Function DllMain(hInst As Long, fdwReason As Long, _
  lpvReserved As Long) As Boolean
   Select Case fdwReason
      Case DLL_PROCESS_DETACH
         ' при завершении процесса ничего не делать…
      Case DLL_PROCESS_ATTACH
         DllMain = True
      Case DLL_THREAD_ATTACH
         ' перед началом потока ничего не делать…
      Case DLL_THREAD_DETACH
         ' после завершения потока ничего не делать
   End Select
End Function
 
Public Function Increment(var As Integer) As Integer
   Increment = var + 1
End Function
 
Public Function Decrement(var As Integer) As Integer
   Decrement = var - 1
End Function
 
Public Function Square(var As Long) As Long
   On Error Resume Next
   Square = var ^ 2
   If Err.Number <> 0 Then lastErr = Err.Number
End Function
 
Public Function getLastError() As Long
   getLastError = lastErr
End Function
 
Public Function ClearError() As Long
   lastErr = 0
End Function

- создайте текстовый файл myLib.def:

NAME myLib
LIBRARY MathMod
DESCRIPTION "... ..."
EXPORTS DllMain @1
Increment @2
Decrement @3
Square @4
getLastError @5
ClearError @6

- транслируйте проект обычным образом в среде IDE - получится процедурная DLL!

Для проверки работспособности DLL можно написать отдельный тестирующий модуль, в котором написать нужные операторы Declare для использования наших функций.

Все, разложенные по директориям, исходники прилагаются:

@Kataraksis · 24.11.2015, 18:38

Спасибо за ответ! Как мне уже удалось установить, что на VB6 вообще нет возможности создания 64-битных dll и видимо придется осваивать и переделывать код под VB.Net

@locm · 24.11.2015, 18:49

Сообщение от Kataraksis

видимо придется осваивать и переделывать код под VB.Net

Он тоже не создает процедурные dll. Существует не так много бейсиков которые подходят для создания процедурных x64 DLL. Например это FreeBasic и PureBasic (статья). Может еще какие-то.

Dragokas · 19.06.2017, 19:53

А допускается ли работа с экземплярами классов, созданных внутри процедурной DLL ?

Если да, то как правильно сформировать прототип и вызов?

Мой пример падает.

@The trick · 20.06.2017, 00:21

Сообщение от Dragokas

А допускается ли работа с экземплярами классов, созданных внутри процедурной DLL ?

Если поток и проект инициализирован то да. Нужно обратить внимание на время жизни объекта и обеспечить нахождение dll в памяти пока хоть один экземпляр класса находится в памяти. Это довольно-таки сложная задача, проще использовать стандартный механизм.

Сообщение от Dragokas

Если да, то как правильно сформировать прототип и вызов?

Обычно создают общий интерфейс для всех классов.

Сообщение от Dragokas

Мой пример падает.

Потому что никакой инициализации нет.

@Замабувараев · 30.07.2017, 14:01

Почему нигде не указано, что параметры экспортируемых функций и DllMain и нужно объявлять как ByVal?

@The trick · 30.07.2017, 14:12

Сообщение от Замабувараев

параметры экспортируемых функций

Не обязательно, в зависимости от задачи.

Сообщение от Замабувараев

DllMain и нужно объявлять как ByVal

Да, в статье ошибка, но это почти никак не скажется на работе приведенной Dll. Там также ошибка в типе возвращаемого значения DllMain.
Гайд по созданию DLL на VB6.

@Плотник · 02.11.2017, 09:45

Добрый день.
Заранее прошу прощения, если спрашиваю в неправильной ветке, но ответа на форму не нашёл.
Попробовал Ваш способ создания dll.
В VB6 всё отрабатывает отлично.
Но при переносе формы из Вашего проекта в Excel появляются ошибки: Добавление простых строк приводит к ошибке

Visual Basic

Public Function Increment(var As Integer) As Integer
   Increment = var + 1 'эта строка в Excel 2007 отрабатывает
   MsgBox "Не работает" 'добавление этой строки ломает всю работу
End Function

Ошибка во вложении.
Вопрос один - что не так?

@The trick · 02.11.2017, 09:50

Сообщение от Плотник

Вопрос один - что не так?

Это пробовал?

Сообщение от The trick

Гайд по созданию DLL на VB6.

@Плотник · 02.11.2017, 10:38

Сообщение от The trick

Это пробовал?
Сообщение от The trick
Гайд по созданию DLL на VB6.

Нет. Спасибо. Попробую.

Я, признаться, полагал, что и первоначальном примере при экспорте кода в Excel всё должно было работать - ведь вызывал-то MsgBox, не более.

@The trick · 02.11.2017, 10:49

Сообщение от Плотник

Я, признаться, полагал, что и первоначальном примере при экспорте кода в Excel всё должно было работать - ведь вызывал-то MsgBox, не более.

Нет. MsgBox потокозависимая функция. MsgBox это необязательно показ сообщения, в зависимости от условий это может быть и запись сообщения в журнал событий (ReportEvent).

@Плотник · 04.11.2017, 00:30

Сообщение от Плотник

Гайд по созданию DLL на VB6.

Заработало по Вашему способу. Однако, только в 32х битном Excel на Windows XP.
При запуске на Windows 7 x64 и 32х битном Excel dll подгружается, функции определяются, но при вызове функций в коде Excel вылетает.

Полагаю, что дело в "битности".
Возможна ли адаптация Вашего способа под x64?
Существуют ли универсальные варианты х32-х64?

Заранее благодарю за любую помощь.

@The trick · 04.11.2017, 11:31

Сообщение от Плотник

При запуске на Windows 7 x64 и 32х битном Excel dll подгружается, функции определяются, но при вызове функций в коде Excel вылетает.

Dll в студию.

@Плотник · 04.11.2017, 17:29

DLL, исходники, excel с формой вызова в приложении

@The trick · 04.11.2017, 17:47

Сообщение от Плотник

DLL, исходники, excel с формой вызова в приложении

Поставь SP6 для VB6 и компилируй, либо перекомпилируй TLB и измени msvbvm60.dll на MSVBVM60.DLL - все заработает.

@Плотник · 04.11.2017, 22:38

Всё получилось. Огромное спасибо за помощь!

@Kataraksis 0 / 0 / 0 Регистрация: 23.11.2015 Сообщений: 2
	24.11.2015, 18:38	61
	Спасибо за ответ! Как мне уже удалось установить, что на VB6 вообще нет возможности создания 64-битных dll и видимо придется осваивать и переделывать код под VB.Net 0

@locm 5876 / 2592 / 282 Регистрация: 28.10.2011 Сообщений: 9,833 Записей в блоге: 6
	24.11.2015, 18:49	62
	Сообщение от Kataraksis видимо придется осваивать и переделывать код под VB.Net Он тоже не создает процедурные dll. Существует не так много бейсиков которые подходят для создания процедурных x64 DLL. Например это FreeBasic и PureBasic (статья). Может еще какие-то. 3

@Замабувараев COM‐пропагандист 933 / 782 / 149 Регистрация: 18.12.2014 Сообщений: 2,243 Записей в блоге: 4
	30.07.2017, 14:01	65
	Почему нигде не указано, что параметры экспортируемых функций и DllMain и нужно объявлять как ByVal? 1

@The trick Модератор 9895 / 3800 / 878 Регистрация: 22.02.2013 Сообщений: 5,665 Записей в блоге: 78
	30.07.2017, 14:12	66
	Сообщение от Замабувараев параметры экспортируемых функций Не обязательно, в зависимости от задачи. Сообщение от Замабувараев DllMain и нужно объявлять как ByVal Да, в статье ошибка, но это почти никак не скажется на работе приведенной Dll. Там также ошибка в типе возвращаемого значения DllMain. Гайд по созданию DLL на VB6. 2

@The trick Модератор 9895 / 3800 / 878 Регистрация: 22.02.2013 Сообщений: 5,665 Записей в блоге: 78
	02.11.2017, 09:50	68
	Сообщение от Плотник Вопрос один - что не так? Это пробовал? Сообщение от The trick Гайд по созданию DLL на VB6. 1

@The trick Модератор 9895 / 3800 / 878 Регистрация: 22.02.2013 Сообщений: 5,665 Записей в блоге: 78
	20.06.2017, 00:21	64
	Сообщение от Dragokas А допускается ли работа с экземплярами классов, созданных внутри процедурной DLL ? Если поток и проект инициализирован то да. Нужно обратить внимание на время жизни объекта и обеспечить нахождение dll в памяти пока хоть один экземпляр класса находится в памяти. Это довольно-таки сложная задача, проще использовать стандартный механизм. Сообщение от Dragokas Если да, то как правильно сформировать прототип и вызов? Обычно создают общий интерфейс для всех классов. Сообщение от Dragokas Мой пример падает. Потому что никакой инициализации нет. 3

@Плотник 0 / 0 / 0 Регистрация: 31.10.2017 Сообщений: 12
	02.11.2017, 10:38	69
	Сообщение от The trick Это пробовал? Сообщение от The trick Гайд по созданию DLL на VB6. Нет. Спасибо. Попробую. Я, признаться, полагал, что и первоначальном примере при экспорте кода в Excel всё должно было работать - ведь вызывал-то MsgBox, не более. 0

@The trick Модератор 9895 / 3800 / 878 Регистрация: 22.02.2013 Сообщений: 5,665 Записей в блоге: 78
	02.11.2017, 10:49	70
	Сообщение от Плотник Я, признаться, полагал, что и первоначальном примере при экспорте кода в Excel всё должно было работать - ведь вызывал-то MsgBox, не более. Нет. MsgBox потокозависимая функция. MsgBox это необязательно показ сообщения, в зависимости от условий это может быть и запись сообщения в журнал событий (ReportEvent). 1

@Плотник 0 / 0 / 0 Регистрация: 31.10.2017 Сообщений: 12
	04.11.2017, 00:30	71
	Сообщение от Плотник Гайд по созданию DLL на VB6. Заработало по Вашему способу. Однако, только в 32х битном Excel на Windows XP. При запуске на Windows 7 x64 и 32х битном Excel dll подгружается, функции определяются, но при вызове функций в коде Excel вылетает. Полагаю, что дело в "битности". Возможна ли адаптация Вашего способа под x64? Существуют ли универсальные варианты х32-х64? Заранее благодарю за любую помощь. 0

@The trick Модератор 9895 / 3800 / 878 Регистрация: 22.02.2013 Сообщений: 5,665 Записей в блоге: 78
	04.11.2017, 11:31	72
	Сообщение от Плотник При запуске на Windows 7 x64 и 32х битном Excel dll подгружается, функции определяются, но при вызове функций в коде Excel вылетает. Dll в студию. 0

@The trick Модератор 9895 / 3800 / 878 Регистрация: 22.02.2013 Сообщений: 5,665 Записей в блоге: 78
	04.11.2017, 17:47	74
	Сообщение от Плотник DLL, исходники, excel с формой вызова в приложении Поставь SP6 для VB6 и компилируй, либо перекомпилируй TLB и измени msvbvm60.dll на MSVBVM60.DLL - все заработает. Миниатюры 1

@Плотник 0 / 0 / 0 Регистрация: 31.10.2017 Сообщений: 12
	04.11.2017, 22:38	75
	Всё получилось. Огромное спасибо за помощь! 0