VB与指纹仪设备的API调用相关问题请教

[zjhss1981]

这几天在搞个指纹仪设备的接口，对方提供了API函数的说明，但我用VB调用的时候，打开设备可行，但就是取不到指纹图像。 我觉得是不是函数声明或字段类型错误所导致的。 下面，我把相关的API函数说明以及VB调用的代码和声明发在下面，请各位高手帮我指明下问题所在或值得怀疑的地方，谢谢各位！


一、 API函数说明；

/* 打开设备，可以作为检测设备用 返回：true:成功 false:失败 */
BOOL OpenDevice();

/* 从设备获取指纹图像
in：int nTimeOut 超时 建议取10000即10S
out:unsigned char* lpImageData 图像缓冲区，大小为200*152字节
返回：0：获取图像成功 -1：失败 -2：超时 */
int xtGetImageData( int nTimeOut, unsigned char* lpImageData);

二、VB中函数声明：

'/* 打开设备，可以作为检测设备用 返回：true:成功 false:失败 */
Public Declare Function OpenDevice Lib "xt22UfpDll.dll" () As Boolean

' 从设备获取指纹图像 in：int nTimeOut 超时 建议取10000即10S out:unsigned char* lpImageData 图像缓冲区，大小为200*152字节
' 返回：0：获取图像成功 -1：失败 -2：超时
Public Declare Function xtGetImageData Lib "xt22UfpDll.dll" (ByVal nTimeOut As Long, ByRef lpImageData As Byte) As Long

三、VB中调用函数：
1、打开设备，可以作为检测设备用
Public Function openDevicemds() As Integer
Dim rtn As Boolean
rtn = True
'返回：true:成功 false:失败
rtn = OpenDevice()
If (rtn) Then
openDevicemds = 1
iState = 1
Else
openDevicemds = 0
iState = 0
End If
End Function

2、从设备获取指纹图像
Public Function getFingermds(ByVal cs As Long) As String
Dim ret As Long
Dim bret As Boolean
On Error GoTo onerror
getFingermds = ""

Dim FingerBuf(152, 200) As Byte
Dim SrcFeatureBuf(512) As Byte

'返回：0：获取图像成功 -1：失败 -2：超时
ret = xtGetImageData(10000, FingerBuf(0, 0))
getFingermds = ""
onerror:
getFingermds = "error"
End Function

[zjhss1981]

出错的地方肯定是这句：ret = xtGetImageData(10000, FingerBuf(0, 0)) 调用直接报错，类似于ＤＬＬ中根本就没有这个ＡＰＩ函数一样，如果参数声明没有问题的话，那问题肯定是在ＤＬＬ上了，所以请教各位帮我看下声明这部分。

[清晨曦月]

你这声明，根本不可能对吧。数据类型你都没弄明白。