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

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

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

Создание процедурных 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
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
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
1
2
3
4
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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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

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

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