Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Путь до DLL-файла / 6 сообщений из 6, страница 1 из 1
30.01.2021, 13:24
    #40040090
Damir_85
Damir_85
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь до DLL-файла
Здравствуйте.
У меня вот такой вопрос, связанный с VBA. Если идет объявление системных библиотек, то приложение автоматически находит эти файлы в системных папках Windows. Например, если используется библиотека user32.dll, kernel32.dll и т.д.
Код: vbnet
1.
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpwindowname As String) As Long


, то не нужно писать полный путь до библиотеки user32.dll.
А вот если у меня есть собственная библиотека, и я ее размещаю в какой то определенной папке, например
Код: vbnet
1.
Declare Sub CallGetPatterns_CG Lib "C:\Program Files\Corel\CorelDRAW Graphics Suite X4\Draw\GMS\IIDCSPS10.dll" (ByVal SheetWidth As Long, ByVal SheetHeight As Long, ByVal LeftUpperCorner_X As Long, ByVal LeftUpperCorner_Y As Long, ByVal SheetCountAcross As Long, ByVal Space As Long, ByVal FinalCount As Long, Finals As TFinal, ByVal Step As Long, Flag_CG As Boolean, Flag_FFD As Boolean, PatternCG_Size As Long, PatternFFD_Size As Long)


то мне пришлось писать полный путь до библиотеки. Если я пишу только IIDCSPS10.dll то выдается ошибка что такой файл не найден. Как заставить приложение автоматически найти путь до нужной библиотеки, к тому же объявления библиотек происходят в начале модуля, и после слова Lib не удается подставить переменную с путем до библиотеки. Может в родительском приложении где то настраивается путь (например, в Excel или Corel Draw)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2021, 21:29
    #40040166
Eolt
Eolt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь до DLL-файла
Проще всего скопировать IIDCSPS10.dll в папку Windows\System32
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 17:27
    #40040273
Damir_85
Damir_85
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь до DLL-файла
Спасибо, наверное будет самым оптимальным вариантом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2021, 09:57
    #40040377
Damir_85
Damir_85
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь до DLL-файла
Кстати, я сегодня прочитал про динамическое подключение библиотек. Для эксперимента хочу попробовать. Правда одна проблема:
Код: vbnet
1.
2.
3.
handle = LoadLibrary(Путь до библиотеки)
 address1 = GetProcAddress(handle, "CallGetPatterns_CG")
CallGetPatterns_CG параметры процедуры


На CallGetPatterns_CG выдает ошибку, что не найдена такая функция. Как использовать функцию после получения адреса?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2021, 11:45
    #40040415
ATM-TURBO 2
ATM-TURBO 2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь до DLL-файла
Damir_85,

https://docs.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-setdlldirectorya
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2021, 12:06
    #40040425
Damir_85
Damir_85
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь до DLL-файла
ATM-TURBO 2
Damir_85,

https://docs.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-setdlldirectorya

Спасибо, заработало!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Путь до DLL-файла / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 201ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2154747]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 99ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 13ms
total:  201ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]