Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 129, средняя оценка - 4.62
Catstail
Модератор
22615 / 10976 / 1779
Регистрация: 12.02.2012
Сообщений: 18,118
#1

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

25.08.2013, 22:19. Просмотров 18945. Ответов 65
Метки нет (Все метки)

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

Все, разложенные по директориям, исходники прилагаются:
13
Вложения
Тип файла: zip vb_dll_proc.zip (27.2 Кб, 227 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.08.2013, 22:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создание процедурных DLL в Visual Basic (статья) (Visual Basic):

Работа с DLL в Visual Basic (статья) - Visual Basic
В данной статье описаны основные способы работы с DLL в языке программирования Visual Basic. Рассчитана прежде всего на начинающих...

создание dll на основе visual basic - Visual Basic
Помогите решить рабочую задачу: создание dll на основе visual basic. Требуется трехмерная модель с указанием переменных размеров. Размеры...

Способы передачи данных с Visual Basic в Excel (статья) - Visual Basic
Еще по теме: 1. Тема: http://www.cyberforum.ru/visual-basic/thread681924.html 2. Тема:...

Visual Basic + VC++ DLL = ошибка Bad DLL calling convertation - Visual Basic
Попытался я написать DLL-ку на VC++, для последующего использования ее в VB. Но поскольку я в VC++ чайник - он мне выдает ошибку Bad DLL...

Можно ли в Visual Basic использовать стандартные Windows DLL? - Visual Basic
Добрый день! Подскажите пожалуйста, можно ли в Visual Basic использовать стандартные Windows DLL? Если можно, подскажите где взять...

Visual Basic 6 DLL для работы с php файлами - Visual Basic
Есть ли такой? Если есть, дайте пож-та!

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Craw
235 / 46 / 4
Регистрация: 10.06.2012
Сообщений: 268
Записей в блоге: 1
18.11.2013, 00:14 #16
Цитата Сообщение от locm Посмотреть сообщение
VB хорошо подходит для ActiveX-Dll, но для обычных, как говорится "овчинка выделки не стоит".
С этим никто не спорит - универсальных языков нет, каждый предназначен для конкретно своей области.

И все наши попытки "танцев с бубном" для реализации нереализуемого, кажется, направлены не на результат, а на сам процесс "танцев"? Ведь практического значения здесь мало всё равно, но теоретически мы доказали эту возможность.
0
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
18.11.2013, 00:20 #17
Цитата Сообщение от Craw Посмотреть сообщение
мы доказали эту возможность.
Пока рабочего примера не видел.
0
Craw
235 / 46 / 4
Регистрация: 10.06.2012
Сообщений: 268
Записей в блоге: 1
18.11.2013, 15:43 #18
Цитата Сообщение от Pro_grammer Посмотреть сообщение
Пока рабочего примера не видел.
Цитата Сообщение от Craw Посмотреть сообщение
В итоге мне удалось успешно запустить программу и вызвать функцию, так что следует искать в этом направлении.
Успешно - с той оговоркой, что функция прибавила единицу не к передаваемому значению (например х=1), а к адресу этого значения, в результате вместо 1+1=2 я получил число 1179650 (т.е. 1179649 - адрес переменной х).
Рабочий пример на Delphi есть. Программа и функция успешно запускаются и работают, возвращая число (хоть и неправильное).
Ведь до этого, напомню, не запускалась вообще! А так возможность загрузки библиотеки и успешной работы функции теоретически доказана. Не практически - потому что нужно саму библиотеку под указатели переделать.
0
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
18.11.2013, 16:28 #19
Цитата Сообщение от Craw Посмотреть сообщение
функция успешно запускаются и работают, возвращая число (хоть и неправильное).
Цитата Сообщение от Craw Посмотреть сообщение
возможность загрузки библиотеки и успешной работы функции теоретически доказана.
Ну да, это как в старом анекдоте, член есть, но не стоит
2
locm
2013 / 770 / 74
Регистрация: 28.10.2011
Сообщений: 2,267
Записей в блоге: 2
20.11.2013, 15:14 #20
Дизассемблировал DLL. Код функции Increment.
Assembler
1
2
3
4
5
6
 Increment:
        mov eax,[esp+04h]
        mov ax,[eax]
        add ax,0001h
        jo  L110019C0
        retn    0004h
Каким он должен быть в стандартной DLL (функция с типом вызова stdcall).
Assembler
1
2
3
4
5
6
7
 Increment:
        push    ebx
        mov ebx,[esp+08h]
        inc ebx
        mov eax,ebx
        pop ebx
        retn    0004h
Добавлено через 6 минут
Рабочий код вызова функции из VB DLL.
PureBasic
1
2
3
4
5
6
7
Prototype.u Increment(x)
If OpenLibrary(0, "mathlib.dll")
  Increment.Increment = GetFunction(0, "Increment")
  x=2
  y.u=Increment(@x)
  Debug y
EndIf
0
The trick
Модератор
7195 / 2427 / 741
Регистрация: 22.02.2013
Сообщений: 3,476
Записей в блоге: 74
06.02.2014, 17:31 #21
Цитата Сообщение от Pro_grammer Посмотреть сообщение
Ну с драйвером ладно, не особо и надо в обычной работе, а вот с DLL обидно.
На VB6 можно делать полноценные DLL - http://***.ru/viewtopic.php?f=9&t=43618 стандартными средствами
На VB6 можно делать обычные DLL из ActiveX, т.к. это частный случай NativeDLL - http://*****viewtopic.php?f=15&t=34902
А падают DLL исключительно из-за того что никто не производит инициализацию рантайма.
0
The trick
Модератор
7195 / 2427 / 741
Регистрация: 22.02.2013
Сообщений: 3,476
Записей в блоге: 74
06.02.2014, 19:44 #22
Цитата Сообщение от Pro_grammer Посмотреть сообщение
Ты про эти?
Что про эти? Я писал что Dll падают т.к. рантайм неинициализирован. Неважно каким способом DLL создана.
Цитата Сообщение от Pro_grammer Посмотреть сообщение
По твоим ссылкам ( извиняй, но на другие форумы запрещено ссылатся) тоже ни чего не увидел.
Там есть описание приемов с помощью которого можно создать DLL. FNDLL - сам инициализирует рантайм.
Цитата Сообщение от Pro_grammer Посмотреть сообщение
Кинь хоть одну рабочую DLL -ку, протестирую.
Dll сделал из моего примера о многопоточности (тот же код) только вызываеться из DLL, остальное все тоже самое. Вызов из C++
C++ (Qt)
1
void CreateVBWindow (HINSTANCE,LPSTR);
0
Вложения
Тип файла: rar vb6Dll.rar (4.1 Кб, 19 просмотров)
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
06.02.2014, 21:38 #23
Цитата Сообщение от The trick Посмотреть сообщение
Dll сделал из моего примера
И что должно случится после вызова? Или к ней надо ещё кучу кода написать?
А можно сделать dll из простого примера
Visual Basic
1
2
3
Private Function summa(a As Integer, b As Integer) As Integer
summa = a + b
End Function
И что бы в DLL-ке всего одна эта функция с параметрами, которую я и попытаюсь вызвать из своей программы и получить результат.
0
Антихакер32
Заблокирован
06.02.2014, 21:43 #24
Он вам и показал что на C++ запустил эту DLL
у меня нет C++ к сожалению проверить не могу ...
0
The trick
Модератор
7195 / 2427 / 741
Регистрация: 22.02.2013
Сообщений: 3,476
Записей в блоге: 74
06.02.2014, 21:45 #25
В этой DLL создается окно и на нем можно рисовать, я же написал
Цитата Сообщение от The trick Посмотреть сообщение
сделал из моего примера о многопоточности (тот же код)
Вызывай просто как обычную API, декларацию я дал. Первый параметр hInstance, второй указатель на любую непустую строку (это имя класса для нового окна, мне было лень переделывать TLB и т.п. поэтому я неизменно вставил ввод строки). Также я не делал внутри вызов InitCommonControlsEx, так что это должен делать вызывающий код (если вызывающий код до этого ее не вызывал, наприме до создания окна).
0
Антихакер32
Заблокирован
06.02.2014, 22:01 #26
даже я, и то запутался
0
locm
2013 / 770 / 74
Регистрация: 28.10.2011
Сообщений: 2,267
Записей в блоге: 2
06.02.2014, 22:03 #27
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
Он вам и показал что на C++ запустил эту DLL
Вызывать не обязательно из C++.
Можно из другого ЯП.

Цитата Сообщение от The trick Посмотреть сообщение
В этой DLL создается окно и на нем можно рисовать, я же написал
Программа виснет в этой функции и больше ничего не происходит.
Цитата Сообщение от The trick Посмотреть сообщение
Вызывай просто как обычную API, декларацию я дал. Первый параметр hInstance, второй указатель на любую непустую строку
Не работает.
PureBasic
1
CreateVBWindow(GetModuleHandle_(0), "Test")
0
The trick
Модератор
7195 / 2427 / 741
Регистрация: 22.02.2013
Сообщений: 3,476
Записей в блоге: 74
06.02.2014, 22:18 #28
Цитата Сообщение от locm Посмотреть сообщение
Нет. программу просто виснет в этой функции и больше ничего не происходит.
Ты внимательно читал мой предыдущий пост? Перечитай про InitCommonControlsEx
Цитата Сообщение от locm Посмотреть сообщение
Не работает.
Все работает.
0
Миниатюры
Создание процедурных DLL в Visual Basic (статья)   Создание процедурных DLL в Visual Basic (статья)  
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
06.02.2014, 22:25 #29
Цитата Сообщение от locm Посмотреть сообщение
Программа виснет в этой функции и больше ничего не происходит.
У меня тоже повисла. Я и с прототипами пытался и так. И строку передавал и указатель на строку.
The trick, так как с простой функцией? Если всё возможно и так просто, то сделай, тогда уж и посмотрим.
0
locm
2013 / 770 / 74
Регистрация: 28.10.2011
Сообщений: 2,267
Записей в блоге: 2
06.02.2014, 22:27 #30
Цитата Сообщение от The trick Посмотреть сообщение
Все работает.
Не работает.
PureBasic
1
2
3
4
5
cc.INITCOMMONCONTROLSEX
cc\dwSize = SizeOf(INITCOMMONCONTROLSEX)
cc\dwICC  = #ICC_WIN95_CLASSES
InitCommonControlsEx_(cc)
CreateVBWindow(GetModuleHandle_(0), "Test")
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2014, 22:27
Привет! Вот еще темы с ответами:

Visual Basic вылетает с ошибкой при попытке вызова функции из DLL - Visual Basic
Declare Function testdll Lib &quot;cfg.dll&quot; () As String Private Sub Form_Load() Me.Caption = testdll() End Sub сама dll...

Создание матрицы в Visual Basic - Visual Basic
Дано две целочисленные матрицы размером . Найти сумму матриц. Умножить полученную матрицу на значение у: Определить: количество...

Создание игры на Visual Basic-е - Visual Basic
Можно ли с помощью Visual Basic создать игру вроде русской рыбалки 3 (или 2) И с чего надо начинать.

Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net ? - Visual Basic
Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
06.02.2014, 22:27
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru