Как декларировать свой 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 и изменить их.

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@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