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

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 129, средняя оценка - 4.62
Catstail
Модератор
22302 / 10707 / 1741
Регистрация: 12.02.2012
Сообщений: 17,777
#1

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

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

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

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

Visual Basic Создание приложения в среде Visual Basic
Visual Basic Создание приложения в среде Visual Basic
Visual Basic Создание игры на Visual Basic-е
Visual Basic создание dll на основе visual basic
Visual Basic Можно ли в Visual Basic использовать стандартные Windows DLL?
Visual Basic + VC++ DLL = ошибка Bad DLL calling convertation Visual Basic
Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net ? Visual Basic
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
The trick
Модератор
6928 / 2392 / 741
Регистрация: 22.02.2013
Сообщений: 3,444
Записей в блоге: 74
06.02.2014, 17:31     Создание процедурных DLL в Visual Basic (статья) #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 исключительно из-за того что никто не производит инициализацию рантайма.
The trick
Модератор
6928 / 2392 / 741
Регистрация: 22.02.2013
Сообщений: 3,444
Записей в блоге: 74
06.02.2014, 19:44     Создание процедурных DLL в Visual Basic (статья) #22
Цитата Сообщение от Pro_grammer Посмотреть сообщение
Ты про эти?
Что про эти? Я писал что Dll падают т.к. рантайм неинициализирован. Неважно каким способом DLL создана.
Цитата Сообщение от Pro_grammer Посмотреть сообщение
По твоим ссылкам ( извиняй, но на другие форумы запрещено ссылатся) тоже ни чего не увидел.
Там есть описание приемов с помощью которого можно создать DLL. FNDLL - сам инициализирует рантайм.
Цитата Сообщение от Pro_grammer Посмотреть сообщение
Кинь хоть одну рабочую DLL -ку, протестирую.
Dll сделал из моего примера о многопоточности (тот же код) только вызываеться из DLL, остальное все тоже самое. Вызов из C++
C++ (Qt)
1
void CreateVBWindow (HINSTANCE,LPSTR);
Вложения
Тип файла: rar vb6Dll.rar (4.1 Кб, 19 просмотров)
Pro_grammer
Модератор
5875 / 2035 / 387
Регистрация: 24.04.2011
Сообщений: 3,449
Записей в блоге: 9
06.02.2014, 21:38     Создание процедурных DLL в Visual Basic (статья) #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-ке всего одна эта функция с параметрами, которую я и попытаюсь вызвать из своей программы и получить результат.
Антихакер32
Заблокирован
06.02.2014, 21:43     Создание процедурных DLL в Visual Basic (статья) #24
Он вам и показал что на C++ запустил эту DLL
у меня нет C++ к сожалению проверить не могу ...
The trick
Модератор
6928 / 2392 / 741
Регистрация: 22.02.2013
Сообщений: 3,444
Записей в блоге: 74
06.02.2014, 21:45     Создание процедурных DLL в Visual Basic (статья) #25
В этой DLL создается окно и на нем можно рисовать, я же написал
Цитата Сообщение от The trick Посмотреть сообщение
сделал из моего примера о многопоточности (тот же код)
Вызывай просто как обычную API, декларацию я дал. Первый параметр hInstance, второй указатель на любую непустую строку (это имя класса для нового окна, мне было лень переделывать TLB и т.п. поэтому я неизменно вставил ввод строки). Также я не делал внутри вызов InitCommonControlsEx, так что это должен делать вызывающий код (если вызывающий код до этого ее не вызывал, наприме до создания окна).
Антихакер32
Заблокирован
06.02.2014, 22:01     Создание процедурных DLL в Visual Basic (статья) #26
даже я, и то запутался
locm
1978 / 733 / 70
Регистрация: 28.10.2011
Сообщений: 2,133
Записей в блоге: 2
06.02.2014, 22:03     Создание процедурных DLL в Visual Basic (статья) #27
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
Он вам и показал что на C++ запустил эту DLL
Вызывать не обязательно из C++.
Можно из другого ЯП.

Цитата Сообщение от The trick Посмотреть сообщение
В этой DLL создается окно и на нем можно рисовать, я же написал
Программа виснет в этой функции и больше ничего не происходит.
Цитата Сообщение от The trick Посмотреть сообщение
Вызывай просто как обычную API, декларацию я дал. Первый параметр hInstance, второй указатель на любую непустую строку
Не работает.
PureBasic
1
CreateVBWindow(GetModuleHandle_(0), "Test")
The trick
Модератор
6928 / 2392 / 741
Регистрация: 22.02.2013
Сообщений: 3,444
Записей в блоге: 74
06.02.2014, 22:18     Создание процедурных DLL в Visual Basic (статья) #28
Цитата Сообщение от locm Посмотреть сообщение
Нет. программу просто виснет в этой функции и больше ничего не происходит.
Ты внимательно читал мой предыдущий пост? Перечитай про InitCommonControlsEx
Цитата Сообщение от locm Посмотреть сообщение
Не работает.
Все работает.
Миниатюры
Создание процедурных DLL в Visual Basic (статья)   Создание процедурных DLL в Visual Basic (статья)  
Pro_grammer
Модератор
5875 / 2035 / 387
Регистрация: 24.04.2011
Сообщений: 3,449
Записей в блоге: 9
06.02.2014, 22:25     Создание процедурных DLL в Visual Basic (статья) #29
Цитата Сообщение от locm Посмотреть сообщение
Программа виснет в этой функции и больше ничего не происходит.
У меня тоже повисла. Я и с прототипами пытался и так. И строку передавал и указатель на строку.
The trick, так как с простой функцией? Если всё возможно и так просто, то сделай, тогда уж и посмотрим.
locm
1978 / 733 / 70
Регистрация: 28.10.2011
Сообщений: 2,133
Записей в блоге: 2
06.02.2014, 22:27     Создание процедурных DLL в Visual Basic (статья) #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")
Антихакер32
Заблокирован
06.02.2014, 22:27     Создание процедурных DLL в Visual Basic (статья) #31
Цитата Сообщение от The trick Посмотреть сообщение
InitCommonControlsEx
вы об этом ?
C++
1
#include "commctrl.h"
The trick
Модератор
6928 / 2392 / 741
Регистрация: 22.02.2013
Сообщений: 3,444
Записей в блоге: 74
06.02.2014, 22:32     Создание процедурных DLL в Visual Basic (статья) #32
Цитата Сообщение от Pro_grammer Посмотреть сообщение
У меня тоже повисла. Я и с прототипами пытался и так. И строку передавал и указатель на строку.
Каким образом задекларирована функция? Скинь exe, я в отладчике гляну, только DLL пропиши в папке.
Цитата Сообщение от Pro_grammer Посмотреть сообщение
The trick, так как с простой функцией? Если всё возможно и так просто, то сделай, тогда уж и посмотрим.
Ок, пару моментов
Цитата Сообщение от locm Посмотреть сообщение
Не работает.
Тоже скинь мне exe я его в отладчике гляну в чем проблема.
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
вы об этом ?
Нет, об этом
C++ (Qt)
1
2
3
4
tagINITCOMMONCONTROLSEX cc;
    cc.dwSize = sizeof(cc);
    cc.dwICC = ICC_WIN95_CLASSES;
    InitCommonControlsEx((LPINITCOMMONCONTROLSEX)&cc);
Антихакер32
Заблокирован
06.02.2014, 22:33     Создание процедурных DLL в Visual Basic (статья) #33
The trick, Вам нужно было пример запуска на PB продемонстрировать
но вы наверное его не знаете )
locm
1978 / 733 / 70
Регистрация: 28.10.2011
Сообщений: 2,133
Записей в блоге: 2
06.02.2014, 22:38     Создание процедурных DLL в Visual Basic (статья) #34
Цитата Сообщение от The trick Посмотреть сообщение
Каким образом задекларирована функция?
PureBasic
1
Prototype CreateVBWindow(HINSTANCE, LPSTR.s)
В архиве прога и исходник. Только учти что после запуска скомпилированой программы вроде ничего не происходит, но на самом деле, программа виснет в функции и нее нужно завершать через диспетчер задач.
Вложения
Тип файла: zip vb6Dl.zip (6.6 Кб, 17 просмотров)
locm
1978 / 733 / 70
Регистрация: 28.10.2011
Сообщений: 2,133
Записей в блоге: 2
06.02.2014, 22:38     Создание процедурных DLL в Visual Basic (статья) #35
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
Вам нужно было пример запуска на PB продемонстрировать
Зачем? И так понятно какой должен быть код.
The trick
Модератор
6928 / 2392 / 741
Регистрация: 22.02.2013
Сообщений: 3,444
Записей в блоге: 74
06.02.2014, 23:01     Создание процедурных DLL в Visual Basic (статья) #36
Вот DLL которая импортирует функцию VBSum
Visual Basic
1
2
3
Public Function VBSum(ByVal A As Long, ByVal B As Long) As Long
    VBSum = A + B
End Function
Параметры надо передавать по значению 4 байтные целочисленные, соглашение вызова stdcall, возвращает сумму двух операндов. Эта функция просто не может не работать т.к. она состоит из 4 ассемблерных инструкций (кто сомневался в крутизне бейсика ).
Вот код вызова на C++
C++
1
2
3
4
5
6
7
8
9
10
11
    HMODULE hLib;
    int res;
    char msg[20];
 
    hLib = LoadLibrary("D:\\Program Files\\Microsoft Visual Studio\\VB98\\BitPirit\\CyberForum\\proof_project\\vbSum.dll");
    int (__stdcall *pFunction)(int,int);
    (FARPROC &)pFunction = GetProcAddress(hLib, "VBSum");
    res = pFunction(100,200); // ÂûçûâГ*Гѕ èìïîðòèðóåìóþ ГґГіГ*êöèþ ГЁГ§ DLL
    wsprintf(msg, "%i", res);
    MessageBox (NULL, msg, "ÐåçóëüòГ*ГІ", MB_OK);
    return 0;
Миниатюры
Создание процедурных DLL в Visual Basic (статья)  
Pro_grammer
Модератор
5875 / 2035 / 387
Регистрация: 24.04.2011
Сообщений: 3,449
Записей в блоге: 9
06.02.2014, 23:29     Создание процедурных DLL в Visual Basic (статья) #37
Цитата Сообщение от The trick Посмотреть сообщение
Вот DLL которая импортирует функцию VBSum
Где она?
Антихакер32
Заблокирован
06.02.2014, 23:36     Создание процедурных DLL в Visual Basic (статья) #38

Не по теме:

Наверняка она у него есть )



Добавлено через 2 минуты
я так думаю он скомпелировал только эти строчки на VB
Visual Basic
1
2
3
Public Function VBSum(ByVal A As Long, ByVal B As Long) As Long
    VBSum = A + B
End Function
locm
1978 / 733 / 70
Регистрация: 28.10.2011
Сообщений: 2,133
Записей в блоге: 2
06.02.2014, 23:39     Создание процедурных DLL в Visual Basic (статья) #39
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
я так думаю он скомпелировал только эти строчки на VB
Раз вы так думаете, то скомпилируйте DLL и выложите сюда.
А то пока что больше флуда чем нормальных сообщений.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2014, 23:44     Создание процедурных DLL в Visual Basic (статья)
Еще ссылки по теме:

Visual Basic Способы передачи данных с Visual Basic в Excel (статья)
Visual Basic 6 DLL для работы с php файлами Visual Basic
Visual Basic Работа с DLL в Visual Basic (статья)
Visual Basic Visual Basic вылетает с ошибкой при попытке вызова функции из DLL
Вычисление значений функции двух переменных в Visual Basic - Visual Basic Visual Basic

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

Или воспользуйтесь поиском по форуму:
The trick
Модератор
6928 / 2392 / 741
Регистрация: 22.02.2013
Сообщений: 3,444
Записей в блоге: 74
06.02.2014, 23:44     Создание процедурных DLL в Visual Basic (статья) #40
Смотрел код Iocm'а и увидел что там статично передаеться имя класса "TrickWindow" в CreateWindow, а Iocm передавал "Test", так что если вы вторым параметром передадите "TrickWindow", то у вас все запустится. Так что извиняюсь, невнимательно код просмотрел. Вот нормальная версия первой Dll и вторая Dll
Вложения
Тип файла: rar Dll.rar (6.6 Кб, 25 просмотров)
Yandex
Объявления
06.02.2014, 23:44     Создание процедурных DLL в Visual Basic (статья)
Ответ Создать тему
Опции темы

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