Создание процедурных 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 для использования наших функций.

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

@Catstail · 25.08.2013, 22:26 **[ТС]**

Файл .def нужно создавать в директории проекта

Dragokas · 25.08.2013, 22:55

Борис, спасибо

Замечательный перевод, читается легко, все коротко и понятно.
Подмена аргументов - самый безболезненный способ.
Протестировал на Windows 7x64 и 8x64. Работает без ошибок.

При чем объявлять библиотеки можно без полного пути. Вот так:

Visual Basic

1	Private Declare Function Increment Lib "MathLib.dll" (var As Integer) As Integer

Работает при переносе в другую папку и даже если запустить с повышенными правами, несмотря на то, что рабочий каталог должен изменяться на %windir%\system32 - линкер все берет на себя и собирает правильно.

@Catstail · 26.08.2013, 08:26 **[ТС]**

Хотелось бы отметить собственное упущение - весь материал основан на статье (автор: R. Petrusha; опубликована в 2005 г.; в переводе статьи есть ссылка на оригинал). Мой "вклад в проблему" - только перевод и небольшое дополнение в конце (касающееся обработки ошибок).

@locm · 26.08.2013, 17:11

Не по теме:

Теперь еще осталось разобраться как на VB создавать драйверы.

Добавлено через 17 минут
Кстати, из другого ЯП функции библиотеки корректно не выполняются.
Что этот код.

PureBasic

Prototype Increment(x)
If OpenLibrary(0, "mathlib.dll")
  Increment.Increment = GetFunction(0, "Increment")
  Debug Increment(2)
EndIf

Что этот.

PureBasic

If OpenLibrary(0, "mathlib.dll")
  Debug CallFunction(0, "Increment", 2)
EndIf
End

Выдают ошибку: "Невозможен доступ к памяти (ошибка чтения по адресу 2)".

@Pro_grammer · 26.08.2013, 20:19

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

"Невозможен доступ к памяти (ошибка чтения по адресу 2)".

Видно, что передаете в функцию число 2 по значению , а в функции обрабатывается ссылка на память по адресу 2.
Надо функции DLL подкорректировать и передавать в функцию указатель на переменную, типа @2, тогда может что и выйдет.

@locm · 26.08.2013, 21:08

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

Видно, что передаете в функцию число 2 по значению , а в функции обрабатывается ссылка на память по адресу 2.

С другими DLL, в т. ч. системными это нормально работает.

@Craw · 28.08.2013, 15:16

Всё хорошо, только вот опять столкнулись с той же проблемой, что и в вариант в моей статье - не выходит использовать в других ЯП. У locm не вышло в Basic4GL, а у меня в Delphi:

Delphi

var
  function Increment (x : integer) : integer; stdcall; external 'MathLib.dll';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := IntToStr(Increment(StrToInt(Edit1.Text)));
end;

В итоге ошибка EAccessViloation, адрес 110019В4 (2 строка):

Assembler

110019B0 8B442404         mov eax,[esp+$04]
110019B4 668B00           mov ax,[eax]
110019B7 66050100         add ax,$0001
110019BB 7003             jo +$03
110019BD C20400           ret $0004
110019C0 FF155C100011     call dword ptr [$1100105c]
110019C6 90               nop 
110019C7 90               nop 
110019C8 90               nop 
110019C9 90               nop 
110019CA 90               nop 
110019CB 90               nop 
110019CC 90               nop 
110019CD 90               nop 
110019CE 90               nop 
110019CF 90               nop

@locm · 28.08.2013, 16:15

Не по теме:

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

У locm не вышло в Basic4GL

Это не Basic4GL. Это такой тупой тег, который все бейсики причисляет к Basic4GL.

@Craw · 28.08.2013, 17:11

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

Видно, что передаете в функцию число 2 по значению , а в функции обрабатывается ссылка на память по адресу 2.

Так-с, я попробовал передавать функции не число, а указатель на переменную с этим числом, следуя вашему совету.
В итоге получился такой код:

Delphi

  function Increment (x : PInteger) : integer; stdcall; external 'MathLib.dll';
...
procedure TForm1.Button1Click(Sender: TObject);
var
   y : integer; // çíà÷åíèå Edit1
begin
   y:=StrToInt(Edit1.Text);
   Edit1.Text:=IntToStr(Increment(@y));
end;

В итоге мне удалось успешно запустить программу и вызвать функцию, так что следует искать в этом направлении.
Успешно - с той оговоркой, что функция прибавила единицу не к передаваемому значению (например х=1), а к адресу этого значения, в результате вместо 1+1=2 я получил число 1179650 (т.е. 1179649 - адрес переменной х).
Думаю, нужно просто переделать пример для работы с указателями, и у нас будет почти полноценная DLL. Почти - потому что только указатели.

@skMaster · 16.11.2013, 13:54

Ктонибудь сталкивался с такой проблемой:

1) Делаю DLL как описано выше
2) С помощью CFF Explorer добавляю в "левое" приложение импорт DLL-ки
3) Запускаю "левое" приложение
Результат: Ноль реакции! DllMain не вызывается!

А если делаю DLL на C++ то все нормально вызывается "левым" приложением!
Может я что делаю нетак, помогите плиз!

@Pro_grammer · 16.11.2013, 14:58

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

Запускаю "левое" приложение

А оно на каком ЯП написано?
Потому, что если читали всю тему, то "не выходит использовать в других ЯП DLL, созданные в VB6!"
Если у вас современный ЯП, который поддерживает COM, OCX, то надо воспользоваться именно этими возможностями.

@skMaster · 16.11.2013, 20:31

Тему я всю прочитал. "левое" приложение написано не на ВБ. На чем именно я даже и не разбирался. Смутил просто пост:

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

В итоге мне удалось успешно запустить программу и вызвать функцию, так что следует искать в этом направлении.

Вот и думал может решение уже роддилось, и просто у меня невыходит правильно организовать импорт!

@Craw · 17.11.2013, 21:00

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

Смутил просто пост

В самом VB6 работать с этими DLL можно без особых проблем, а вот в других ЯП у нас так и не получилось нормально подключить библиотеку. Программа просто не запускается, либо появляется ошибка при вызове функции из библиотеки.

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

Вот и думал может решение уже роддилось

В ходе экспериментов (в Delphi) мне удалось запустить функцию - я подавал на вход не саму переменную (значение), а её адрес в памяти (указатель). И я сделал вывод, что если переделать всю DLL на работу с указателями, то, возможно, всё получиться. Так что, возможно, решение уже есть, дерзайте и проверьте!

@locm · 17.11.2013, 21:07

Мое ИМХО.
VB хорошо подходит для ActiveX-Dll, но для обычных, как говорится "овчинка выделки не стоит". Слишком уж много "если" при разработке такой DLL. Возможно стоит использовать более подходящий инструмент для этого.

@Craw · 18.11.2013, 00:14

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

VB хорошо подходит для ActiveX-Dll, но для обычных, как говорится "овчинка выделки не стоит".

С этим никто не спорит - универсальных языков нет, каждый предназначен для конкретно своей области.

И все наши попытки "танцев с бубном" для реализации нереализуемого, кажется, направлены не на результат, а на сам процесс "танцев"? Ведь практического значения здесь мало всё равно, но теоретически мы доказали эту возможность.

@Pro_grammer · 18.11.2013, 00:20

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

мы доказали эту возможность.

Пока рабочего примера не видел.

@Craw · 18.11.2013, 15:43

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

Пока рабочего примера не видел.

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

В итоге мне удалось успешно запустить программу и вызвать функцию, так что следует искать в этом направлении.
Успешно - с той оговоркой, что функция прибавила единицу не к передаваемому значению (например х=1), а к адресу этого значения, в результате вместо 1+1=2 я получил число 1179650 (т.е. 1179649 - адрес переменной х).

Рабочий пример на Delphi есть. Программа и функция успешно запускаются и работают, возвращая число (хоть и неправильное).
Ведь до этого, напомню, не запускалась вообще! А так возможность загрузки библиотеки и успешной работы функции теоретически доказана. Не практически - потому что нужно саму библиотеку под указатели переделать.

@Pro_grammer · 18.11.2013, 16:28

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

функция успешно запускаются и работают, возвращая число (хоть и неправильное).

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

возможность загрузки библиотеки и успешной работы функции теоретически доказана.

Ну да, это как в старом анекдоте, член есть, но не стоит

@locm · 20.11.2013, 15:14

Дизассемблировал DLL. Код функции Increment.

Assembler

 Increment:
        mov eax,[esp+04h]
        mov ax,[eax]
        add ax,0001h
        jo  L110019C0
        retn    0004h

Каким он должен быть в стандартной DLL (функция с типом вызова stdcall).

Assembler

 Increment:
        push    ebx
        mov ebx,[esp+08h]
        inc ebx
        mov eax,ebx
        pop ebx
        retn    0004h

Добавлено через 6 минут
Рабочий код вызова функции из VB DLL.

PureBasic

Prototype.u Increment(x)
If OpenLibrary(0, "mathlib.dll")
  Increment.Increment = GetFunction(0, "Increment")
  x=2
  y.u=Increment(@x)
  Debug y
EndIf

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,643 Записей в блоге: 13
	25.08.2013, 22:26 [ТС]	2
	Файл .def нужно создавать в директории проекта 2

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,643 Записей в блоге: 13
	26.08.2013, 08:26 [ТС]	4
	Хотелось бы отметить собственное упущение - весь материал основан на статье (автор: R. Petrusha; опубликована в 2005 г.; в переводе статьи есть ссылка на оригинал). Мой "вклад в проблему" - только перевод и небольшое дополнение в конце (касающееся обработки ошибок). 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	26.08.2013, 20:19	6
	Сообщение от locm "Невозможен доступ к памяти (ошибка чтения по адресу 2)". Видно, что передаете в функцию число 2 по значению , а в функции обрабатывается ссылка на память по адресу 2. Надо функции DLL подкорректировать и передавать в функцию указатель на переменную, типа @2, тогда может что и выйдет. 2

@locm 4393 / 2243 / 252 Регистрация: 28.10.2011 Сообщений: 8,574 Записей в блоге: 6
	26.08.2013, 21:08	7
	Сообщение от Pro_grammer Видно, что передаете в функцию число 2 по значению , а в функции обрабатывается ссылка на память по адресу 2. С другими DLL, в т. ч. системными это нормально работает. 0

@locm
	28.08.2013, 16:15 #9
	Не по теме: Сообщение от Craw У locm не вышло в Basic4GL Это не Basic4GL. Это такой тупой тег, который все бейсики причисляет к Basic4GL. 0

@skMaster 4 / 4 / 5 Регистрация: 26.02.2013 Сообщений: 42
	16.11.2013, 13:54	11
	Ктонибудь сталкивался с такой проблемой: 1) Делаю DLL как описано выше 2) С помощью CFF Explorer добавляю в "левое" приложение импорт DLL-ки 3) Запускаю "левое" приложение Результат: Ноль реакции! DllMain не вызывается! А если делаю DLL на C++ то все нормально вызывается "левым" приложением! Может я что делаю нетак, помогите плиз! 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	16.11.2013, 14:58	12
	Сообщение от skMaster Запускаю "левое" приложение А оно на каком ЯП написано? Потому, что если читали всю тему, то "не выходит использовать в других ЯП DLL, созданные в VB6!" Если у вас современный ЯП, который поддерживает COM, OCX, то надо воспользоваться именно этими возможностями. 0

@skMaster 4 / 4 / 5 Регистрация: 26.02.2013 Сообщений: 42
	16.11.2013, 20:31	13
	Тему я всю прочитал. "левое" приложение написано не на ВБ. На чем именно я даже и не разбирался. Смутил просто пост: Сообщение от Craw В итоге мне удалось успешно запустить программу и вызвать функцию, так что следует искать в этом направлении. Вот и думал может решение уже роддилось, и просто у меня невыходит правильно организовать импорт! 0

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	17.11.2013, 21:00	14
	Сообщение от skMaster Смутил просто пост В самом VB6 работать с этими DLL можно без особых проблем, а вот в других ЯП у нас так и не получилось нормально подключить библиотеку. Программа просто не запускается, либо появляется ошибка при вызове функции из библиотеки. Сообщение от skMaster Вот и думал может решение уже роддилось В ходе экспериментов (в Delphi) мне удалось запустить функцию - я подавал на вход не саму переменную (значение), а её адрес в памяти (указатель). И я сделал вывод, что если переделать всю DLL на работу с указателями, то, возможно, всё получиться. Так что, возможно, решение уже есть, дерзайте и проверьте! 0

@locm 4393 / 2243 / 252 Регистрация: 28.10.2011 Сообщений: 8,574 Записей в блоге: 6
	17.11.2013, 21:07	15
	Мое ИМХО. VB хорошо подходит для ActiveX-Dll, но для обычных, как говорится "овчинка выделки не стоит". Слишком уж много "если" при разработке такой DLL. Возможно стоит использовать более подходящий инструмент для этого. 0

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	18.11.2013, 00:14	16
	Сообщение от locm VB хорошо подходит для ActiveX-Dll, но для обычных, как говорится "овчинка выделки не стоит". С этим никто не спорит - универсальных языков нет, каждый предназначен для конкретно своей области. И все наши попытки "танцев с бубном" для реализации нереализуемого, кажется, направлены не на результат, а на сам процесс "танцев"? Ведь практического значения здесь мало всё равно, но теоретически мы доказали эту возможность. 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	18.11.2013, 00:20	17
	Сообщение от Craw мы доказали эту возможность. Пока рабочего примера не видел. 0

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	18.11.2013, 15:43	18
	Сообщение от Pro_grammer Пока рабочего примера не видел. Сообщение от Craw В итоге мне удалось успешно запустить программу и вызвать функцию, так что следует искать в этом направлении. Успешно - с той оговоркой, что функция прибавила единицу не к передаваемому значению (например х=1), а к адресу этого значения, в результате вместо 1+1=2 я получил число 1179650 (т.е. 1179649 - адрес переменной х). Рабочий пример на Delphi есть. Программа и функция успешно запускаются и работают, возвращая число (хоть и неправильное). Ведь до этого, напомню, не запускалась вообще! А так возможность загрузки библиотеки и успешной работы функции теоретически доказана. Не практически - потому что нужно саму библиотеку под указатели переделать. 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	18.11.2013, 16:28	19
	Сообщение от Craw функция успешно запускаются и работают, возвращая число (хоть и неправильное). Сообщение от Craw возможность загрузки библиотеки и успешной работы функции теоретически доказана. Ну да, это как в старом анекдоте, член есть, но не стоит 2