none
Lector biométrico ZKTeco modelo k14 RRS feed

  • Pregunta

  • Hola buen día, estoy realizando un aplicativo en VB.net para el lector biométrico ZKTeco modelo K14. Resulta que me surgió un problema al momento de iniciar la inscripción de un usuario, cuando doy click en el botón se me activa el evento onEnrollFinger y el parámetro actionResult me devuelve el valor de 6 (como si lo hubiese cancelado), esto sucede sin que el dispositivo me muestre la interfaz para poder registrar la huella, si alguien tiene alguna idea de solución se les agradecería. 

     Private Sub btnStarEnroll_Click(sender As Object, e As EventArgs) Handles btnStarEnroll.Click
            'Dim frmHuella As New FormRegistrarHuella
            'frmHuella.ShowDialog()

            If bIsConnected = False Then
                MsgBox("Conecte el dispositivo primero", MsgBoxStyle.Exclamation, "Error")
                Return
            End If

            Dim iUserID As String = 2 'idwEnrollNumber.ToString
            Dim iFingerIndex As Integer = 6 'Convert.ToInt32(cboFingerIndex.Text.Trim) 'Índice de la huella digital. El valor varía de 0 a 9. 
            Dim iFlag As Integer = 1
            If iUserID = "" Or iFingerIndex < 0 Then
                MsgBox("IdUser o IdFinger sin datos", MsgBoxStyle.Exclamation, "Advertencia")
                Return
            End If


            axCZKEM1.CancelOperation() ''Cancelar el estado actual de inscripción de huellas digitales del dispositivo.
            axCZKEM1.SSR_DelUserTmpExt(iMachineNumber, iUserID, iFingerIndex) 'Eliminar la plantilla de huella dactilar de un usuario especificado.
            'axCZKEM1.DelUserTmp(iMachineNumber, iUserID, iFingerIndex
            'Dim starEnroll As Boolean = False
            'starEnroll = axCZKEM1.StartEnrollEx(iUserID, iFingerIndex, iFlag) 'Inscribir a un usuario y habilitar el dispositivo para que ingrese al estado de inscripción y esperar hasta que el usuario coloque un dedo.

            If axCZKEM1.StartEnrollEx(iUserID, iFingerIndex, iFlag) Then
                lbRTShow.Items.Add("Empezar a inscribir un usuario nuevo, UserID=" & iUserID.ToString() & " FingerID=" & iFingerIndex.ToString() & " Flag=" & iFlag.ToString())
                iCanSaveTmp = 1 'se asegura que se ha inscrito las plantillas de huella para un usuario
                axCZKEM1.StartIdentify() 'Después de registrar plantillas, se debe dejar el dispositivo en la condición de verificación 1: N
                'SaveEnrolledTemp()
                'mostrarImagen()
            Else
                axCZKEM1.GetLastError(idwErrorCode)
                lbRTShow.Items.Add("Falla en la operación StarEnroll, Código de error= " & idwErrorCode.ToString())
            End If
        End Sub

    - El evento es el siguiente:

    Private Sub AxCZKEM1_OnEnrollFinger(ByVal iEnrollNumber As Integer, ByVal iFingerIndex As Integer, ByVal iActionResult As Integer, ByVal iTemplateLength As Integer)
            lbRTShow.Items.Add("El evento OnEnrollFinger ha sido activado....")
            Select Case iActionResult
                Case 0
                    lbRTShow.Items.Add(".....UserID: " & iEnrollNumber & " Index: " & iFingerIndex.ToString() & " tmpLen: " + iTemplateLength.ToString())
                    Return
                Case 3
                    lbRTShow.Items.Add("......Falla al guardar datos")
                    Return
                Case 4
                    lbRTShow.Items.Add("......Falla al inscribirse")
                    Return
                Case 5
                    lbRTShow.Items.Add(".....Huella es repetida")
                    Return
                Case 6
                    lbRTShow.Items.Add(".....Se cancela la operacion")
                    Return
            End Select

    martes, 18 de junio de 2019 17:19