Cобственно работаю с одной dll по ЕЦП
но есть подозрение что она не хочет со мной работать, так как я ей подсовываю не верный тип (от неё всегда один и тот же результат - не верный тип вх. параметров)
что требовалось:
как это реализовалось на LS:
если юзать аналогичные примера на С++ или Паскале то всё пашет
может я как-то не правильно задеклалировал функцию?
но есть подозрение что она не хочет со мной работать, так как я ей подсовываю не верный тип (от неё всегда один и тот же результат - не верный тип вх. параметров)
что требовалось:
Код:
Function nkiEnumDevices (no:integer; withcard:boolean; var name):byte
Код:
Declare Function nkiEnumDevices Lib "nkidll" (no As Integer, withcard As Boolean, sName As Variant) As Byte
Dim i As Integer, j As Integer, s As String, w As Integer, v As Variant, mas(72) As String, no As Byte, withcard As Boolean
Print "Existing readers:"
i = 1
no = 1
Do
v = mas
withcard = False
j = nkiEnumDevices(i, withcard, s)
If j=0 Then
Print s
Else
Exit Do
End If
i = i +1
Loop While j<>0
может я как-то не правильно задеклалировал функцию?