Interceptar Eventos Externos

[[oscarac]]

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)

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