Как декларировать свой DLL в VB?

@kpoxa · Регистрация: 08.12.2009

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

Написал свой DLL с несколькими широко используемыми мно функциями.
Из Си все раборает хорошо.

А вот с VB проблемы:
1. если не указывать полный путь к DLL в дерективе Lib, то функция не находиться (говорит что DLL не найден).
Как декларировать функцию, чтобы при переносе ЕХЕ и DLL в другое место сохранялся доступ к функции?

2. DLL функции должны изменять значения передаваемых переменных.
Как декларировать эти функции в VB, чтобы изменить содержимое например string, long, и т.д.

Например: в Си

C
1
DWORD WINAPI ChangeLong(LPDWORD lpVal);

в VB

Visual Basic
1
2
3
4
private declare function ChangeLong Lib "mydll.dll" ( byref lpVal as long) as long
      
Dim longVal as long
 ChangeLong longVal         ' <--- выдает ошибку о type mismatch

или

C
1
DWORD WINAPI ChangeString(LPSTR szVal, LPDWORD iSize );

Visual Basic
1
2
3
4
5
6
7
private declare function ChangeString lib "mydll.dll"( byref szVal as string, byref iSize as long) as long
 
Dim szVal as string, iSize as long
 
iSize = 200
szVal = String(iSize,0)
ChangeString szVal, iSize ' <--- выдает ошибку о type mismatch

Объясните, где ошибка?

@kpoxa · 16.04.2011, 11:18 **[ТС]**

Я что, попал в мертвую зону ?
Ну, скажем, отбросим Си-шную часть, там все должно быть правильно.

Но что касается Васика, никто не поможет?

@palva · 16.04.2011, 13:00

1. Можно разместить dll в той же директории, что и exe, в рабочей директории (та которая текущая при запуске exe) в какой-нибудь директории перечисленной в PATH. Других способов не указывать полный путь dll я не знаю.

2. Long - то, что вы написали, должно работать правильно. String - этот параметр следует описывать ByVal, но даже ваш код не должен выдавать 'ошибку о type mismatch'

Вот пример, работающий в Visual Studio 6.0

ddddd.cpp

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <windows.h>
 
DWORD WINAPI ChangeLong(LPDWORD lpVal)
{
    *lpVal = 777;
    return 0;
}
 
DWORD WINAPI ChangeString(LPSTR szVal, LPDWORD iSize )
{
    szVal[0] = '*'
    return 0;
}

ddddd.def

Code
1
2
3
EXPORTS
    ChangeLong
    ChangeString

Basic

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function ChangeLong _
    Lib 'D:CaaadddddReleaseddddd.dll' _
    (ByRef lpVal As Long) As Long
Private Declare Function ChangeString _
    Lib 'D:CaaadddddReleaseddddd.dll' _
    (ByVal szVal As String, ByRef iSize As Long) As Long
 
Private Sub Form_Load()
    Dim longVal As Long
    Dim szVal As String, iSize As Long
    ChangeLong longVal
    MsgBox longVal ' 777
    szVal = '+++'
    ChangeString szVal, iSize
    MsgBox szVal ' *++
End Sub

@maga2 · 16.04.2011, 15:24

Здравствуйте!

...а dll-ку можно записать в папку c:windowssystem32 (необходимо скоректирровать, если Ваша операционная система установлена в другую папку или на другой диск) и не прописывать полный путь.

@palva · 16.04.2011, 15:55

Можно. Когда вы обращаетесь к Windows API, вы же не прописываете полный путь. А нужные dll как раз расположены в System32.

@kpoxa · 17.04.2011, 10:46 **[ТС]**

Код проверил, он работает но...

1. Если в VB не указывать полный путь к DLL, то при запуске откомпилированного EXE файла все работает (DLL находится в той же папке, что и EXE), но во время разработки VB не находит его.
Получается, что Васик запускает програму как свой процесс со всеми вытекающими последствиями: имя выполняемого модуля различно в Runtime и Design time, декларация функций из локальных DLL должна отличатся в Runtime и Design time, ну и др.
Т.е. во время разработки необходимо брать в расчет, что после компиляции поведение програмы может измениться.

2. Даже во время разработки прописывание полного пути к DLL (имеется ввиду только к локальным) ведет к проблеме - если по какой-то причине необходимо перенести проект в другую папку, то надо найти все имена DLL и изменить их.

Что это, недочет мелкомягких? Или что-то другое?

Новые блоги и статьи Все статьи Все блоги /
К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .

@kpoxa 5 / 5 / 0 Регистрация: 08.12.2009 Сообщений: 213
	16.04.2011, 11:18 [ТС]
	Я что, попал в мертвую зону ? Ну, скажем, отбросим Си-шную часть, там все должно быть правильно. Но что касается Васика, никто не поможет? 0

@maga2 3 / 3 / 0 Регистрация: 12.07.2010 Сообщений: 128
	16.04.2011, 15:24
	Здравствуйте! ...а dll-ку можно записать в папку c:windowssystem32 (необходимо скоректирровать, если Ваша операционная система установлена в другую папку или на другой диск) и не прописывать полный путь. 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	16.04.2011, 15:55
	Можно. Когда вы обращаетесь к Windows API, вы же не прописываете полный путь. А нужные dll как раз расположены в System32. 0

@kpoxa 5 / 5 / 0 Регистрация: 08.12.2009 Сообщений: 213
	17.04.2011, 10:46 [ТС]
	Код проверил, он работает но... 1. Если в VB не указывать полный путь к DLL, то при запуске откомпилированного EXE файла все работает (DLL находится в той же папке, что и EXE), но во время разработки VB не находит его. Получается, что Васик запускает програму как свой процесс со всеми вытекающими последствиями: имя выполняемого модуля различно в Runtime и Design time, декларация функций из локальных DLL должна отличатся в Runtime и Design time, ну и др. Т.е. во время разработки необходимо брать в расчет, что после компиляции поведение програмы может измениться. 2. Даже во время разработки прописывание полного пути к DLL (имеется ввиду только к локальным) ведет к проблеме - если по какой-то причине необходимо перенести проект в другую папку, то надо найти все имена DLL и изменить их. Что это, недочет мелкомягких? Или что-то другое? 0