Algunas consideraciones...
1) Los procedimientos definidos, colócalos dentro de la parte privada.
Código Delphi
[-]
...
dbgrd1: TDBGrid;
mmoLOG: TMemo;
lbl1: TLabel;
private
procedure FormCreate(Sender: TObject);
procedure LeerHuella(Sender: Tobject);
procedure AttTransactionProc(ASender: TObject; EnrollNumber: Integer; IsInValid: Integer;
AttState: Integer; VerifyMethod: Integer;
Year: Integer; Month: Integer; Day: Integer;
Hour: Integer; Minute: Integer;
Second: Integer);
procedure GeneralEventProc(ASender: TObject; const DataStr: WideString);
public
2) Define un par más para ver otros eventos:
Código Delphi
[-]
procedure AttTransactionProc(ASender: TObject; EnrollNumber: Integer; IsInValid: Integer;
AttState: Integer; VerifyMethod: Integer;
Year: Integer; Month: Integer; Day: Integer;
Hour: Integer; Minute: Integer;
Second: Integer);
procedure GeneralEventProc(ASender: TObject; const DataStr: WideString);
3) Añade la implementación con el Log.
Código Delphi
[-]
procedure TForm1.GeneralEventProc(ASender: TObject; const DataStr: WideString);
begin
Log('TForm1.GeneralEventProc');
Log(' - DataString: ' + DataStr);
end;
procedure TForm1.AttTransactionProc(ASender: TObject; EnrollNumber, IsInValid,
AttState, VerifyMethod, Year, Month, Day, Hour, Minute, Second: Integer);
begin
Log('TForm1.AttTransactionProc');
Log(' - EnrollNumber: ' + IntToStr(EnrollNumber));
Log(' - IsInValid: ' + IntToStr(IsInValid));
Log(' - AttState: ' + IntToStr(AttState));
Log(' - VerifyMethod: ' + IntToStr(VerifyMethod));
Log(' - Year: ' + IntToStr(Year));
Log(' - Month: ' + IntToStr(Month));
Log(' - Day: ' + IntToStr(Day));
Log(' - Hour: ' + IntToStr(Hour));
Log(' - Minute: ' + IntToStr(Minute));
Log(' - Second: ' + IntToStr(Second));
end;
4) Y asignalos todos en la creación del componente:
Código Delphi
[-]
...
ZK1 := TCZKEM.Create(nil);
ZK1.OnConnected := OnConnect;
ZK1.OnFinger := LeerHuella;
ZK1.OnDisConnected := OnDisconnect;
ZK1.OnAttTransaction := AttTransactionProc;
ZK1.OnGeneralEvent := GeneralEventProc;
Por último, estaría bien que nos pusieras la salida del Log, cuando ejecutas y cuando pones el dedo en el lector.