работа с dll файломи

[nsklital]

Добрый день!
Как правельно подключятся и работать с dll файлом?

[Хакер]

С каким именно DLL? C ActiveX или обычной.

С ActiveX (2 способа):
1)Топаем в меню Проект (Project)->References.
Ищим в списке нужную DLL и ставим галку, если не находим - библа не зарегистрирована - нажимаем Browse и ищем файл. Если VB ругается, значит либо это не ActiveX DLL, либо так сложились звёзды.

После того, как подключили, топаем в Object Browser (F2) и смотрим что нам даёт библа, в смысле какие классы и тд.

Потом объявляем переменные, дающие доступ к библе, например:

Код: Выделить всё


Dim [WithEvents] <имяпеременной> As [New] ИмяБиблы.ИмяКласса


2) Ещё можно с помощью CreateObject, но библа должна быть зарегистрирована. Например:

Код: Выделить всё


Dim objShell As Object
Set objShell = CreateObject("Shell.Application")


Если просто обычная Dll, с помощью Declare
Declare {Sub|Function} ИмяФункции Lib "имябиблы.dll" Alias "Псевдоним" (аргументы) As тип

[nsklital]

Обычные виндовские dll.

Declare {Sub|Function} ИмяФункции Lib "имябиблы.dll" Alias "Псевдоним" (аргументы) As тип

А как узнать точно Sub это или Function псевдонима?
И как правельно узнать сколько у псевдонима аргументов и на ввод информации они или на вывод, и как правельно с аргументами работать? И запускать их.

[ANDLL]

Если есть только dll - никак.
Надо читать документацию по этому компоненту: либо искать в интернете, либо она должна поставляться вместе с компонентом.

[Cryonyx]

Добавлю от себя - либо проводить обратный инжиниринг и разбираться в структуре функций и их аргументах.
Если я не ошибаюсь, то функция она и в Африке функция, просто всё зависит от возвращаемого значения: null (sub) или не-null (function). Так что если тебя не интересует возвращаемое (ли?) функцией значение, то можешь смело ставить Sub - он будет работать всегда. А вот с количеством параметров - это да, засада...

[Хакер]

А если я не ошибаюсь, VOID или не-VOID

[Cryonyx]

Не принципиально. Главное, мысль понята.

[nsklital]

Ну допустим самое простое

Declare Function Beep Lib "kernel32.dll" ( _
ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

как правельно оргонизовать чтоб работало? Я пробовал ничего не получилось.

[Cryonyx]

Вот твой пример, помещённый в форму - всё работат:

Код: Выделить всё


Private Declare Function Beep Lib "kernel32.dll" ( _
ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

Private Sub Form_Load()
Beep 1500, 2000
End Sub


[ANDLL]

Не принципиально. Главное, мысль понята.

Именно это никакого значения не имеет. Если ты объявишь function как sub или sub как function, это никак не повлияет на работоспособность кода. Это связано с тем, что как ни странно, возвращаемое значение передаеться вовсе не через стек.
А вот правильный объем параметров и правильный выбор calling-conversion это действительно очень важно. Если они подобраны неправильно, после вызова функции в IDE появиться сообщение об ошибке "Bad dll conversion calling"

[Cryonyx]

Есть ещё такая лазейка, как маршаллинг, но она, насколько мне известно, применяется только в ВБ.НЕТ, и мне не совсем ясен механизм её действия...

Может кто разъяснит?

[ANDLL]

?
Разъясню.
Точно не увверен, но есть подозрение, что...
Маршалинг это копирование параметров в АП другого процесса для реализации удаленного вызова процедуры. Используеться везде и всегда для interprocess comunication. Никакого отношения к данному случаю не имеет.

[nsklital]

Попробывал так.
Private Declare Function Beep Lib "kernel32.dll" ( _
ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

Private Sub Form_Load()
Beep 1500, 2000
End Sub

Нехочет пикать и все.
И не каких ошибок не выдает.
Что может быть?

[Cryonyx]

Сломанная пищалка
Попробуй какую-нибудь другую функцию, ну там, shellexecute или setparent
Тогда и увидим, в чём дело..

[ANDLL]

можно просто в дллке глянуть сколько параметров она кидает на стек перед ее вызовом (конечно по средствам отладчика и\или хекс редактора) =) кинуть на стек - push что нидь - скоко пушей стоко и параметров =)

Это типа модный пацан ?

[nsklital]

Пищалка точно работает. 100%
Но дело не в этом, я насчет beep просто пример привел чтоб понять как с dll работать. А вы уже начяли целые компьютерные радиосхемы расказывать.