A continuación de mostramos un jemplo de SDK para descargar logs o checadas de asistencia en equipos de rostro
Código:
'**********************************************************
'*Programa de asistencia para equipos faciales
'**********************************************************
Public Class AttLogs
'Create Standalone SDK class dynamicly.
Public axCZKEM1 As New zkemkeeper.CZKEM
#Region "Communication"
'****************************************************************************************************
'* Before you refer to this demo,we strongly suggest you read the development manual deeply first. *
'* This part is for demonstrating the communication with your device. *
'* **************************************************************************************************
Private bIsConnected = False 'the boolean value identifies whether the device is connected
Private iMachineNumber As Integer 'the serial number of the device.After connecting the device ,this value will be changed.
'If your device supports the TCP/IP communications, you can refer to this.
'when you are using the tcp/ip communication,you can distinguish different devices by their IP address.
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
If txtIP.Text.Trim() = "" Or txtPort.Text.Trim() = "" Then
MsgBox("IP and Port cannot be null", MsgBoxStyle.Exclamation, "Error")
Return
End If
Dim idwErrorCode As Integer
Cursor = Cursors.WaitCursor
If btnConnect.Text = "Disconnect" Then
AxCZKEM1.Disconnect()
bIsConnected = False
btnConnect.Text = "Connect"
lblState.Text = "Current State:Disconnected"
Cursor = Cursors.Default
Return
End If
bIsConnected = AxCZKEM1.Connect_Net(txtIP.Text.Trim(), Convert.ToInt32(txtPort.Text.Trim()))
If bIsConnected = True Then
btnConnect.Text = "Disconnect"
btnConnect.Refresh()
lblState.Text = "Current State:Connected"
iMachineNumber = 1 'In fact,when you are using the tcp/ip communication,this parameter will be ignored,that is any integer will all right.Here we use 1.
AxCZKEM1.RegEvent(iMachineNumber, 65535) 'Here you can register the realtime events that you want to be triggered(the parameters 65535 means registering all)
Else
AxCZKEM1.GetLastError(idwErrorCode)
MsgBox("Unable to connect the device,ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
End If
Cursor = Cursors.Default
End Sub
'If your device supports the SerialPort communications, you can refer to this.
Private Sub btnRsConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRsConnect.Click
If cbPort.Text.Trim() = "" Or cbBaudRate.Text.Trim() = "" Or txtMachineSN.Text.Trim() = "" Then
MsgBox("Port,BaudRate and MachineSN cannot be null", MsgBoxStyle.Exclamation, "Error")
Return
End If
Dim idwErrorCode As Integer
'accept serialport number from string like "COMi"
Dim iPort As Integer
'Dim sPort = cbPort.Text.Trim()
Dim sPort As String = cbPort.Text.Trim()
For iPort = 1 To 9
If sPort.IndexOf(iPort.ToString()) > -1 Then
Exit For
End If
Next
Cursor = Cursors.WaitCursor
If btnRsConnect.Text = "Disconnect" Then
AxCZKEM1.Disconnect()
bIsConnected = False
btnRsConnect.Text = "Connect"
lblState.Text = "Current State:Disconnected"
Cursor = Cursors.Default
Return
End If
iMachineNumber = Convert.ToInt32(txtMachineSN.Text.Trim()) '//when you are using the serial port communication,you can distinguish different devices by their serial port number.
bIsConnected = AxCZKEM1.Connect_Com(iPort, iMachineNumber, Convert.ToInt32(cbBaudRate.Text.Trim()))
If bIsConnected = True Then
btnRsConnect.Text = "Disconnect"
btnRsConnect.Refresh()
lblState.Text = "Current State:Connected"
AxCZKEM1.RegEvent(iMachineNumber, 65535) 'Here you can register the realtime events that you want to be triggered(the parameters 65535 means registering all)
Else
AxCZKEM1.GetLastError(idwErrorCode)
MsgBox("Unable to connect the device,ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
End If
Cursor = Cursors.Default
End Sub
#End Region
#Region "AttLogs"
' **************************************************************************************************
' * Before you refer to this demo,we strongly suggest you read the development manual deeply first.*
' * This part is for demonstrating operations with(read/get/clear) the attendance records. *
' * ************************************************************************************************
'Download the attendance records from the device.
Private Sub btnGetGeneralLogData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetGeneralLogData.Click
If bIsConnected = False Then
MsgBox("Please connect the device first", MsgBoxStyle.Exclamation, "Error")
Return
End If
Dim sdwEnrollNumber As String = ""
Dim idwVerifyMode As Integer
Dim idwInOutMode As Integer
Dim idwYear As Integer
Dim idwMonth As Integer
Dim idwDay As Integer
Dim idwHour As Integer
Dim idwMinute As Integer
Dim idwSecond As Integer
Dim idwWorkcode As Integer
Dim idwErrorCode As Integer
Dim iGLCount = 0
Dim lvItem As New ListViewItem("Items", 0)
Cursor = Cursors.WaitCursor
lvLogs.Items.Clear()
AxCZKEM1.EnableDevice(iMachineNumber, False) 'disable the device
If AxCZKEM1.ReadGeneralLogData(iMachineNumber) Then 'read all the attendance records to the memory
'get records from the memory
While AxCZKEM1.SSR_GetGeneralLogData(iMachineNumber, sdwEnrollNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwSecond, idwWorkcode)
iGLCount += 1
lvItem = lvLogs.Items.Add(iGLCount.ToString())
lvItem.SubItems.Add(sdwEnrollNumber)
lvItem.SubItems.Add(idwVerifyMode.ToString())
lvItem.SubItems.Add(idwInOutMode.ToString())
lvItem.SubItems.Add(idwYear.ToString() & "-" + idwMonth.ToString() & "-" & idwDay.ToString() & " " & idwHour.ToString() & ":" & idwMinute.ToString() & ":" & idwSecond.ToString())
lvItem.SubItems.Add(idwWorkcode.ToString())
End While
Else
Cursor = Cursors.Default
AxCZKEM1.GetLastError(idwErrorCode)
If idwErrorCode <> 0 Then
MsgBox("Reading data from terminal failed,ErrorCode: " & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
Else
MsgBox("No data from terminal returns!", MsgBoxStyle.Exclamation, "Error")
End If
End If
AxCZKEM1.EnableDevice(iMachineNumber, True) 'enable the device
Cursor = Cursors.Default
End Sub
'Get the count of attendance records in from ternimal.
Private Sub btnGetDeviceStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetDeviceStatus.Click
If bIsConnected = False Then
MsgBox("Please connect the device first", MsgBoxStyle.Exclamation, "Error")
Return
End If
Dim idwErrorCode As Integer
Dim iValue = 0
AxCZKEM1.EnableDevice(iMachineNumber, False) 'disable the device
If AxCZKEM1.GetDeviceStatus(iMachineNumber, 6, iValue) = True Then 'Here we use the function "GetDeviceStatus" to get the record's count.The parameter "Status" is 6.
MsgBox("The count of the AttLogs in the device is " + iValue.ToString(), MsgBoxStyle.Information, "Success")
Else
AxCZKEM1.GetLastError(idwErrorCode)
MsgBox("Operation failed,ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
End If
AxCZKEM1.EnableDevice(iMachineNumber, True) 'enable the device
End Sub
'Clear all attendance records from terminal.
Private Sub btnClearGLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearGLog.Click
If bIsConnected = False Then
MsgBox("Please connect the device first", MsgBoxStyle.Exclamation, "Error")
Return
End If
Dim idwErrorCode As Integer
lvLogs.Items.Clear()
AxCZKEM1.EnableDevice(iMachineNumber, False) 'disable the device
If AxCZKEM1.ClearGLog(iMachineNumber) = True Then
AxCZKEM1.RefreshData(iMachineNumber) 'the data in the device should be refreshed
MsgBox("All att Logs have been cleared from teiminal!", MsgBoxStyle.Information, "Success")
Else
AxCZKEM1.GetLastError(idwErrorCode)
MsgBox("Operation failed,ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
End If
AxCZKEM1.EnableDevice(iMachineNumber, True) 'enable the device
End Sub
#End Region
End Class