ник: час
Ваще то есть такая библиотека - для доступа к функциям таких библиотек - как та, что попалася мне.
file:///C:/1_%D0%A2%D0%B5%D0%BA%D1%83%D1%89%D0%B5%D0%B5/1_AVTO_WASH/COMPONENTS/FR%20%D0%94%D1%80%D0%B0%D0%B9%D0%B2%D0%B5%D1%80/Help.html#regsvr
После её регистации - всё становится проще
Private Sub Command2_Click()
Dim DX As Object
Dim res
Set DX = CreateObject("DynamicWrapperX") ' Создание объекта.
' вызов функции с параметрами
DX.Register App.Path & "\DrvMercFR.dll", "Connect", "i=hhhs", "r=l" ' Регистрация функции из dll.
res = DX.Connect(1, 9600, 400, "000000")
' вызов функции без параметров
DX.Register App.Path & "\DrvMercFR.dll", "Xreport" ' Регистрация функции из dll.
res = DX.XReport ' Вызов.
End Sub
|