Как превратить dll в ocx в VB 6.0?

[Moggucci]

Среда разработки, в которой я работаю (не VB 6.0) не понимает dll, но понимает ocx.
Как превратить dll в ocx в VB 6.0?

[alibek]

А чья dll?
Если своя, то легко.
Если не своя, то нужно писать враппер.

[Moggucci]

Есть dll (стороннего производителя) от терминала сбора данных ("штрихера"). У нас ребята легко прицепили ее к 1С. Есть документация с описанием функций. Нам нужно писать враппер? И что это такое (враппер)? Извините, если вопрос глупый, в vb 6.0 мы не сильны.

[alibek]

Создаешь в VB6 компонент ActiveX.
Компонент ничего своего делать не будет, он просто будет иметь те же методы и свойства, что и требуемая библиотека. И при обращении к этим свойствам он их будет передавать в библиотеку и возвращать ответы.

Например, минимальный враппер для API GetComputerName

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

Option Explicit

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function apiGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetComputerName() As String
Dim buff As String, L As Long
L = MAX_COMPUTERNAME_LENGTH + 1
buff = String$(L, 0)
Call apiGetComputerName(buff, L)
buff = Left$(buff, L)
GetComputerName = buff
End Function


Создаешь ActiveX Control, вставляешь в него этот код, компилируешь и получаешь полученный ocx.

Там вызываешь:
MsgBox UserControl1.GetComputerName

[Moggucci]

Огромное спасибо, сейчас будем пытаться "заворачивать"!

[Moggucci]

А как обработать результат, возвращаемый фунцией из dll-ки (а не только параметров), например:

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

Option Explicit

Private Declare Function AddDevice Lib "d:\temp\terminals.dll" Alias "AddDeviceA" () As Integer

Public Function MyAddDevice() As Integer
Dim ReturnVal As Integer
Call AddDevice
ReturnVal = ?
MyAddDevice = ReturnVal
End Function


[alibek]

ReturnVal = AddDevice()

или

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

Function MyAddDevice() As Integer
MyAddDevice = AddDevice()
End Function

[Moggucci]

Спасибо, все завернули, ocx зарегистрировали, наша среда видит ocx и ее метод MyAddDevice. Но при вызове функции выдает следующую ошибку:
"Вызов функции MyAddDevice неудачен. Project1 вернул следуещее сообщение: File not found: d:\Temp\terminals.dll".
Но dll'ка в этом каталоге лежит. В чем затык? Можно обращаться таким способом, через путь или надо регистрировать и dll'ку?

[alibek]

Библиотеку надо ложить в каталог <WINDOWS>\system32, а в декларации не указывать путь.

[alibek]

P.S. При перекомпиляции ActiveX будет сгенерирован новый GUID и компонент надо будет перерегистрировать. Или в свойствах проекта указать бинарную совместимость с предыдущей версией.

[Moggucci]

Мы зарегистрировали dll в системе, перекомпилировали ocx. Теперь при вызове метода MyAddDevice выдается ошибка:
Can't find DLL entry point AddDevice in c:\Program Files\Штрих-М\ТСД3.0\Bin\Terminals
В чем затык?

[alibek]

Для начала, эта функция вызывается из самой обертки?
Затем, скомпилированный ActiveX был зарегистрирован заново?

[Arcanoid]

Прога не может найти точку входа в процедуру... я так понимаю?

Можно попробовать следующее: порыться в DLL найти там строку AddDevice и в код ActiveX-компонента в инструкцию Declare после Alias записать полное DLL'евское имя функции (например "?AddDevice@@YGPAUH")