ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Путь до DLL-файла
6 сообщений из 6, страница 1 из 1
Путь до DLL-файла
    #40040090
Damir_85
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Damir_85
Участник
Здравствуйте.
У меня вот такой вопрос, связанный с 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, 13:24
| Ответить | Цитировать | Написать  
Путь до DLL-файла
    #40040166
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Проще всего скопировать IIDCSPS10.dll в папку Windows\System32
...
Рейтинг: 0 / 0
30.01.2021, 21:29
| Ответить | Цитировать | Написать  
Путь до DLL-файла
    #40040273
Damir_85
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Damir_85
Участник
Спасибо, наверное будет самым оптимальным вариантом
...
Рейтинг: 0 / 0
31.01.2021, 17:27
| Ответить | Цитировать | Написать  
Путь до DLL-файла
    #40040377
Damir_85
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Damir_85
Участник
Кстати, я сегодня прочитал про динамическое подключение библиотек. Для эксперимента хочу попробовать. Правда одна проблема:
Код: vbnet
1.
2.
3.
handle = LoadLibrary(Путь до библиотеки)
 address1 = GetProcAddress(handle, "CallGetPatterns_CG")
CallGetPatterns_CG параметры процедуры


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

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

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

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


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