Funcion GetPhotoByName zkemkeeper
Publicado por Facundo (1 intervención) el 14/02/2020 16:20:33
Buenos días, estoy necesitando ayuda para traer las imagenes que registra un reloj de los usuario para identificarse por medio del rostro. El problema es que no estoy sabiendo como hacerlo. Soy medianamente nuevo en este lenguaje y estoy un poco complicado. Dejo parte de mi código para ver si me pueden ayudar. La conexión al reloj y la descarga de datos funcionan perfectamente.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TraerFoto(DNI As String)
Dim idwErrorCode As Integer = 0 Dim MachineNumber As Integer = 1 Dim EnrollNumber As String = DNI Dim FaceIndex As Integer = 50 Dim TmpData As Byte = 0 Dim Length As Integer = 0If (zk.GetUserFace(MachineNumber, EnrollNumber, FaceIndex, TmpData, Length)) Then 'get the face templates from the memory
MsgBox("UserID: " & EnrollNumber & ", FaceIndex: " & FaceIndex.ToString() & ", TmpData: " & TmpData & ", Length: " & Length.ToString(), MsgBoxStyle.Information, "Success")
Else
zk.GetLastError(idwErrorCode)
MsgBox("Operation failed,ErrorCode=" & idwErrorCode.ToString(), MsgBoxStyle.Exclamation, "Error")
End If
'Dim dwMachineNumber As Integer = 1 'Dim PhotoName As String = DNI 'Dim PhotoData As Byte 'Dim PhotoLength As Integer 'Dim funcion As New CFunciones 'If zk.GetPhotoByName(dwMachineNumber, PhotoName, PhotoData, PhotoLength) Then ' Return PhotoData 'End IfEnd Sub
Valora esta pregunta
0