Создание DLL

@Craw · Регистрация: 10.06.2012

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

Код программы (пример использования DLL):

Visual Basic
1
2
3
4
5
6
Option Explicit
Private Declare Function Symma Lib "Summ.dll" Alias "Summ" (ByVal a As Integer, ByVal b As Integer) As Integer
 
Private Sub Command1_Click()
Text3.Text = Symma(Val(Text1.Text), Val(Text2.Text))
End Sub

Код DLL (точнее ActiveX DLL):

Visual Basic
1
2
3
Private Function Summ(ByVal a As Integer, ByVal b As Integer) As Integer
Summ = a + b
End Function

В Project-References перечислены все ActiveX объекты на компьютере, там нужно добавить имя проекта DLL (например Project2).

Вот таким образом я всё сделал по инструкции из статей по работе с DLL, но не могу скомпилировать exe: пишет, что нужно скомпилировать сначала второй проект с DLL. Его компиляция (Make Summ.dll), а также (одновременная компиляция всей группы проектов) Make Project Group не дают результата - якобы он не скомпилирован, хотя это не так. Плюс при компиляции DLL выдает сообщение, что нельзя получить доступ к системному регистру (System Registry).
В чём может быть дело?

@The trick · 27.07.2013, 20:46

То есть не загружается только при запуске в IDE?
Да.

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

А если запустить в IDE с отключенным отладчиком? Может в нем проблема?

Что-то я Вас не понял. Какой отладчик в VB6?

Вот для примера, у кого есть VB6 можно посмотреть приложил проект.

@locm · 27.07.2013, 21:02

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

Какой отладчик в VB6?

Тот что в меню "Debug".

Запустил из IDE и все работает.

@Craw · 27.07.2013, 22:06 **[ТС]**

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

Используй WinAPI функции: LoadLibrary, GetProcAddress и FreeLibrary.

Вот такой получился большой код! Работал в соответствии со справкой об API, так как готового примера не нашёл. После 16 строки теоретически нужная функция должна быть доступна (кстати, есть что-нибудь наподобие alias здесь?), но проверить не могу - ошибка в 8 строке при загрузке библиотеки. В чём может быть дело?

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
43
Option Explicit
Dim handle, address, unload
Private Declare Function LoadLibrary Lib "kernel32" (ByVal lpFileName)
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule, ByVal lpProcName)
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hModule)
 
Private Sub Form_Load()
handle = LoadLibrary(Project2.dll)
If handle <> Null Then
 
   MessageBox ("Библиотека успешно загружена.")
   address = GetProcAddress(handle, Summ)  
 
   If address <> Null Then
 
      MessageBox ("Адрес функции успешно получен.")
  
   ElseIf address = Null Then
 
      MessageBox ("Îøèáêà ïðè èçâëå÷åíèè àäðåñà ôóíêöèè èç DLL!")
      Exit Sub
 
   End If
  
ElseIf handle = Null Then
 
   MessageBox ("Îøèáêà ïðè çàãðóçêå DLL!")
 
End If
 
unload = FreeLibrary(handle)
 
If unload <> 0 Then
 
   MessageBox ("Библиотека выгружена успешно.")
 
ElseIf unload = 0 Then
 
   MessageBox ("Ошибка при выгрузке библиотеки из памяти!")
 
End If
 
End Sub

Кстати, для того, чтобы загружать DLL динамически, мы сначала должны загрузить статически kernel32 (который будет у нас в памяти всё время), чтобы эти функции использовать. Так что получается, что можно в VB загрузить любую библиотеку динамически, кроме самого kernel32.

@locm · 27.07.2013, 22:11

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

ошибка в 8 строке при загрузке библиотеки

Строки должны быть в кавычках.

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

Так что получается, что можно в VB загрузить любую библиотеку динамически, кроме самого kernel32.

Не только kernel32. VB еще рантайм грузит, а тот в свою очередь, много чего еще загружает.

@The trick · 27.07.2013, 22:15

Craw, Вы когда-нибудь слышали о типах переменных?

Кликните здесь для просмотра всего текста

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
43
44
45
Option Explicit
 
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
 
Dim handle As Long, address As Long, unload As Long
 
Private Sub Form_Load()
handle = LoadLibrary("Project2.dll")
If handle <> 0 Then
 
   MsgBox ("Библиотека успешно загружена.")
   address = GetProcAddress(handle, "Summ")
 
   If address <> 0 Then
 
      MsgBox ("Адрес функции успешно получен.")
  
   ElseIf address = 0 Then
 
      MsgBox ("Ошибка при извлечении адреса функции из DLL!")
      Exit Sub
 
   End If
  
ElseIf handle = 0 Then
 
   MsgBox ("Ошибка при загрузке DLL!")
 
End If
 
unload = FreeLibrary(handle)
 
If unload <> 0 Then
 
   MsgBox ("Библиотека выгружена успешно.")
 
ElseIf unload = 0 Then
 
   MsgBox ("Ошибка при выгрузке библиотеки из памяти!")
 
End If
 
End Sub

@Craw · 27.07.2013, 22:16 **[ТС]**

Ну откуда мне было знать, какие значения возвратят функции и какого типа у неё параметры! Вот в Delphi handle не числового типа, а особого THandle. Так что я здесь использовал Variant как универсальный.

@locm · 27.07.2013, 22:23

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

Вот в Delphi handle не числового типа, а особого THandle.

Эквивалентного типу Long (для x86).

@The trick · 28.07.2013, 01:21

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

Ну откуда мне было знать, какие значения возвратят функции и какого типа у неё параметры!

Вам поможет ApiTextViewer, а вообще варианты, так использовать нельзя, у них другой формат, просто-напросто можно обрушить прогу и IDE. Типы параметров можно также просмотреть в Windows.inc. Хендлы - как правило целочисленные переменные.

Добавлено через 2 часа 45 минут

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

Запустил из IDE и все работает.

Я так и не добился успешной загрузки в IDE. LdrLoadDll почему-то возвращает STATUS_CONFLICTING_ADDRESSES; я так думаю это из-за того что в DLL написанной на PureBasic отсутствует секция .reloc

GetLastError возвращает 0.

@Catstail · 28.07.2013, 09:45

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

Да в принципе на Делфи тоже не сложно DLL сделать.

- я только хотел сказать, что оставаться в рамках одного языка удобнее.

Добавлено через 1 минуту

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

ошибка в 8 строке при загрузке библиотеки. В чём может быть дело?

- мне кажется, кавычек не хватает.

@locm · 28.07.2013, 12:39

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

я так думаю это из-за того что в DLL написанной на PureBasic отсутствует секция .reloc

Она там есть, но для уменьшения размера файла, добавил пару опций линковки.

Code
1
2
3
4
5
6
/merge:.text=.code
/merge:.data=.code
/merge:.rsrc=.code
/merge:.rdata=.code
/merge:.reloc=.code
/align:16

Секция ".reloc" находится в секции ".code".
Это не мешает загрузке dll стандартным Windows-загрузчиком.

@locm · 28.07.2013, 12:55

DLL без слияния секций.

@The trick · 28.07.2013, 14:44

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

DLL без слияния секций.

Все равно не работает ldrLoadDll по-прежнему возвращает STATUS_CONFLICTING_ADDRESSES

@locm · 28.07.2013, 15:16

Установил выравнивание секций по умолчанию (из-за чего размер файла увеличился в несколько раз из-за ненужных нулевых байтов).

@The trick · 28.07.2013, 15:37

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

Установил выравнивание секций

Вот сейчас работает, хотя я компилировал в масме /ALIGN:16 и все работает.
Вот полностью все опции:

Assembler
1
LINK.EXE /FILEALIGN:4 /ALIGN:16  /SUBSYSTEM:WINDOWS /merge:.text=.code /merge:.data=.code /merge:.rsrc=.code /merge:.rdata=.code /merge:.reloc=.code /DLL

@Craw · 02.08.2013, 19:40 **[ТС]**

На основе этой темы и всей информации здесь я написал статью для своего сайта - Работа с DLL в Visual Basic. А теперь собираюсь опубликовать на этом форуме её тоже.
Перед этим спрошу - полностью ли раскрыта тема, что-то добавить ещё?

@Catstail · 02.08.2013, 20:04

По поводу ActiveX-Dll рекомендую заглянуть сюда и сюда... И было бы интересно объяснить, как создает процедурные Dll автор надстройки.

@The trick · 02.08.2013, 20:13

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

@Catstail · 02.08.2013, 20:15

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

stdCall и cDecl

- а толку? Что это дает VB-программистам?

@The trick · 02.08.2013, 20:18

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

- а толку? Что это дает VB-программистам?

Как что? Есть куча cDecl - библиотек, та же ntdll. В ней куча полезных сишных функций, но проблема в том что их обычным способом не вызовешь из VB

@Catstail · 02.08.2013, 20:24

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

Есть куча cDecl - библиотек

- а, да. Согласен. Я просто больше имел в виду создание dll, а не использование готовых.

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	27.07.2013, 22:16 [ТС]
	Ну откуда мне было знать, какие значения возвратят функции и какого типа у неё параметры! Вот в Delphi handle не числового типа, а особого THandle. Так что я здесь использовал Variant как универсальный. 0

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	02.08.2013, 19:40 [ТС]
	Сообщение было отмечено как решение Решение На основе этой темы и всей информации здесь я написал статью для своего сайта - Работа с DLL в Visual Basic. А теперь собираюсь опубликовать на этом форуме её тоже. Перед этим спрошу - полностью ли раскрыта тема, что-то добавить ещё? 0

@Catstail Супер-модератор 38210 / 21143 / 4313 Регистрация: 12.02.2012 Сообщений: 34,756 Записей в блоге: 14
	02.08.2013, 20:04
	По поводу ActiveX-Dll рекомендую заглянуть сюда и сюда... И было бы интересно объяснить, как создает процедурные Dll автор надстройки. 1

@The trick Модератор 10061 / 3906 / 885 Регистрация: 22.02.2013 Сообщений: 5,856 Записей в блоге: 79
	02.08.2013, 20:13
	+ О соглашениях вызовов функций, хотя бы stdCall и cDecl. В скомпилированном проекте можно статически вызывать cDecl функции, если указать в декларации с помощью ключевого слова cDecl Для вызова в отладке придется писать либо ассемблерную вставку, либо DLL для конвертации вызова. 1

Создание DLL

Решение