Esto lo estoy tratando de documentar y dar la mejor explicacion en caso alguien mas tenga ese problema
Era mi error
fui a la libreria zkemkeeper_TLB
esta es su definicion
Código Delphi
[-] procedure OnAttTransactionEx(const EnrollNumber: WideString; IsInValid: Integer;
AttState: Integer; VerifyMethod: Integer; Year: Integer;
Month: Integer; Day: Integer; Hour: Integer; Minute: Integer;
Second: Integer; WorkCode: Integer); dispid 17;
al momento de yo declarar el procedimiento no le coloque la palabra
CONST
entonces la definicion de los procedimientos debe ser exactamente igual a como esta en la libreria
con esto ya funciona
colooco el dedo y funciona EUREKA
pero no todo es felicidad, por algun motivo los eventos se disparan 2 veces
y me sale este mensaje (displayados en el log)
Cita:
6.2.5.50
Conectado...
Huella Detectada
Huella Detectada
TForm1.AttTransactionExProc
- EnrollNumber:
ð*º
ð*º
ð*º
ð*º
ð*º
ð*º
- IsInValid: -1
- AttState: 0
- VerifyMethod: 13
- Year: 1917
- Month: -70
- Day: 13
- Hour: -16
- Minute: -83
- Second: -70
TForm1.AttTransactionExProc
- EnrollNumber: 123
- IsInValid: 0
- AttState: 0
- VerifyMethod: 0
- Year: 2019
- Month: 2
- Day: 27
- Hour: 10
- Minute: 26
- Second: 10
|
si se dan cuenta en el primer grupo de mensaje los valores salen distorcionados, no corresponde la informacion a lo que se supone debe salir (como aparece en el segundo bloque)
coloque zk1.Pullmode := 1
y cuando hago eso no pasa por el evento LeerHuella
antes de concluir y de solicitar mas ayuda quiero agradecer a todos los que me han dado una mano en este tema, de verdad que lo hacen desinteresadamente, mas personas como uds. en el mundo