 biometria dactilar con biokey.ocx
ayuda tengo un lector huellas usb (zk4500 de zksofware inc con su sdk y solo un ejeplo c++)que estoy implementando vb tengo dos problemas
1° queria implementar vb.net 2010 una vez referenciada etc etc solo me admite el evento FP_OnImageReceived pero no los demás eventos me sale este dichoso error:
Error al crear el formulario. Consulte Exception.InnerException para obtener más detalles. Error: Excepción de HRESULT: 0x80040202 devuelto por el objeto con en cuestion
2°ahora vb.6.0 logre correr eventos con base datos interna del sdk
fpcHandle = ZKFPEngX1.CreateFPCacheDB todos ok pero no se como guardar en base datos SQL guardar y rescatar osea(Method EncodeTemplate and method DecodeTemplate) que es lo que guardo en sql si es un archivo varbinary(max) como lo rescato y identifico la huella por favor un ejempo
comparto código levantado hasta momento:
Private Sub ZKFPEngX1_OnCapture(ByVal ActionResult As Boolean, ByVal ATemplate As Variant)
Dim fi As Long, i As Long
Dim Score As Long, ProcessNum As Long
Dim RegChanged As Boolean
Dim sTemp As String
sTemp = ZKFPEngX1.GetTemplateAsString()
' StatusBar.Caption = "Acqired Template"
Label8.Caption = sTemp
If FMatchType = 1 Then 'VERIFICACION
If ZKFPEngX1.VerFinger(FRegTemplate, ATemplate, False, RegChanged) Then
MessageBox 0, "Verify success", "information", 0
Else
MessageBox 0, "Verify Failed", "information", 0
End If
'If ZKFPEngX1.VerRegFingerFile("c:\fingerprint.tpl", ATemplate) Then
' MessageBox 0, "Verify success", "information", 0
'Else
' MessageBox 0, "Verify failed", "information", 0
'End If
ElseIf FMatchType = 2 Then 'IDENTIFICACION
Score = 8
fi = ZKFPEngX1.IdentificationFromStrInFPCacheDB(fpcHand le, sTemp, Score, ProcessNum)
If fi = -1 Then
MessageBox 0, "Identificacion fallida¡", "information", 0
Else
MessageBox 0, "Identificacion OK nombre=" & FFingerNames(fi) & " Score = " & Score & " Processed Number = " & ProcessNum, "information", 0
If Cn.State = 1 Then Cn.Close
DB
rs.Open "SELECT * FROM template where FingerTmplate = '" & sTemp & "' ", Cn, adOpenKeyset, adLockPessimistic
' ID = cors.RecordCount + 1
' cors.AddNew
' cors.Fields(0) = ID
' cors.Fields(1) = sTemp
' cors.Update
If Not rs.EOF Then
' If cors.Fields(1) = sTemp Then
MsgBox rs.Fields(0)
' End If
End If
Cn.Close
End If
End If
End Sub
Private Sub ZKFPEngX1_OnEnroll(ByVal ActionResult As Boolean, ByVal ATemplate As Variant)
Dim i As Long
Dim sTemp As String
If Not ActionResult Then
MessageBox 0, "REGISTRO FALLIDO", "Warning", 0
Else
MessageBox 0, "REGISTRO OK", "Information", 0
FRegTemplate = ATemplate
sTemp = ZKFPEngX1.GetTemplateAsString()
Label7.Caption = sTemp
'ZKFPEngX1.SaveTemplate "c:\fingerprint.tpl", ATemplate
'ZKFPEngX1.EncodeTemplate ATemplate, sTemp
'ZKFPEngX1.AddRegTemplateFileToFPCacheDB fpcHandle, FingerCount, "c:\fingerprint.tpl"
' ReDim Preserve FFingerNames(FingerCount + 1)
ZKFPEngX1.AddRegTemplateStrToFPCacheDB fpcHandle, FingerCount, sTemp
ReDim Preserve FFingerNames(FingerCount + 1)
FFingerNames(FingerCount) = TextFingerName.Caption
FingerCount = FingerCount + 1
' Set rs = Cn.Execute("INSERT INTO Biometrica (cedula, template) Values(1," + ATemplate + ")")
'rs.Close
'Cn.Close
Dim strsql As String
strsql = "insert into template values (" & CInt(3) & ",'" & sTemp & "')"
Cn.Execute strsql
End If
End Sub
Private Sub ZKFPEngX1_OnFeatureInfo(ByVal AQuality As Long)
Dim sTemp As String
sTemp = ""
If ZKFPEngX1.IsRegister Then
sTemp = "ESTADO DE REGISTRO: PRESIONAR DEDO " & ZKFPEngX1.EnrollIndex & " VEZ"
End If
sTemp = sTemp & " CALIDAD DE HUELLA"
If AQuality <> 0 Then
sTemp = sTemp & " MALA " & AQuality
Else
sTemp = sTemp & " BUENA"
End If
StatusBar.Caption = sTemp
End Sub
Private Sub ZKFPEngX1_OnImageReceived(AImageValid As Boolean)
ZKFPEngX1.PrintImageAt hDC, 1, 1, ZKFPEngX1.ImageWidth, ZKFPEngX1.ImageHeight
End Sub |