Interceptar Eventos Externos

[[oscarac]]

Logre hacer que cuando se coloca el dedo en el huellero se dispare un evento

Código Delphi [-]
procedure TForm1.LeerHuella(Sender: TObject);
begin
      Log('Entro a Leer huella');  .//. agrega una linea a un memo, solo para mostrar las veces que entra
end;

el tema es que entra 2 veces al evento

alguien sabe porque?

[Neftali [Germán.Estévez]]

Empezado por oscarac

Logre hacer que cuando se coloca el dedo en el huellero se dispare un evento

Empezado por oscarac

el tema es que entra 2 veces al evento
alguien sabe porque?

En esto ya tendrás que ver la documentación del componente.
Ahí te debería explicar para qué es cada método, cuando se lanzan y porqué.

Yo lo que haría es este caso, es primero capturar varios eventos (los que te parezcan más significativos) y realizar un Log en pantalla para ver cómo se van disparando. De esa forma te harás una idea de cómo van saliendo.
Por ejemplo optaría por: OnConnected, OnDisConnected, OnFinger, OnVerify, OnGeneralEvent.
Un log de cada uno de ellos y de los parámetros.

También buscaría información de la propiedad PullMode, que por el nombre, puede ser que afecte à la forma de leer las huellas (tal vez).
Pero como te digo, todo esto debería estar en la documentación/ejemplos suministrados por el fabricante.

[[oscarac]]

hay un evento el cual me interesa
Se llama OnAttTransatacion
uno de sus parametros me devuelve "el codigo" asignado a la huella digital (previamwnte grabada en el huellero)

no tengo idea de como acceder a ese metodo

me das una mano?

[Neftali [Germán.Estévez]]

Empezado por oscarac

no tengo idea de como acceder a ese metodo
me das una mano?

¿Has definido el método para capturar el evento??
¿Has hecho el Log de los parámetros? A ver qué valores llegan en el evento.

[[oscarac]]

si he definido el metodo para capturar el evento
pero no se como llamarlo (invocarlo)

sigo el mismo procedimiento que el ejemplo que pusiste en ese post pero me suelta muchos errores
no se por donde empezar

[[oscarac]]

Código Delphi [-]
unit FrmMain_f;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, zkemkeeper_TLB, dateutils,
  Vcl.OleCtrls;

type
  TForm1 = class(TForm)
    edtIp: TEdit;
    edtPort: TEdit;
    btnDispositivoLoad: TButton;
    dbgrd1: TDBGrid;
    mmoLOG: TMemo;
    lbl1: TLabel;
    procedure btnDispositivoLoadClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
//    Procedure LeerHuella (sender: tobject; EnrollNumber, IsInValid, AttState,
//      VerifyMethod, Year, Month, Day, Hour, Minute, Second: integer);

    Procedure CapturaCodigo (sender: tobject; EnrollNumber : String; IsInvalid, AttState, VerifyMethod, year, Month, Day, hour, Minute, Second : Integer);
  private

    { Private declarations }
  public
      ZK1 : TCZKEM;
      Connected : Boolean;
      procedure OnConnect(Sender : TObject);
      procedure OnDisconnect(Sender : TObject);
      function CapturaRegistros : Boolean;
      procedure Log(aMsj : string);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnDispositivoLoadClick(Sender: TObject);
begin

  if not(ZK1.Connect_Net(EdtIP.Text, StrToInt(EdtPort.Text))) then
    begin
      lbl1.Caption := 'Error. No se pudo conectar';
      exit;
    end;
    if not ZK1.RegEvent(1, 65535) then  //65535
      lbl1.Caption := 'Error RegEvent';

    ZK1.PullMode := 1;

      Log('Conectado...');


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ZK1 := TCZKEM.Create(nil);
  ZK1.OnConnected := OnConnect;
  ZK1.OnAttTransaction := CapturaCodigo;
//  aqui me sale error
[dcc32 Error] FrmMain_f.pas(68): E2010 Incompatible types: 'Integer' and 'string'
end;

procedure TForm1.OnConnect(Sender: TObject);
begin
  Connected := True;
end;

procedure TForm1.OnDisconnect(Sender: TObject);
begin
  Connected := False;
end;


Procedure TForm1.CapturaCodigo (sender: tobject; EnrollNumber : String; IsInvalid, AttState, VerifyMethod, year, Month, Day, hour, Minute, Second : Integer);
Var _Resultado : Integer;   //EnrollNumber, IsInvalid, AttState, VerifyMethod, year, Month, Day, hour, Minute, Second : Integer;
begin
      Log('Entro a Leer huella');
    _Resultado := ZK1.OnAttTransactionEx (sender, EnrollNumber, IsInvalid, AttState, VerifyMethod, year, Month, Day, hour, Minute, Second);
// aqui debo jalar el codigo que se almacena en la variable EnrollNumber
end;

procedure TForm1.Log(aMsj: string);
begin
  MmoLOG.Lines.Add(aMsj);
end;

end.

[[oscarac]]

vayamos por partes a ver si estoy entendiendo bien

Código Delphi [-]
unit FrmMain_f;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, zkemkeeper_TLB, dateutils,
  Vcl.OleCtrls;

type
  TForm1 = class(TForm)
    edtIp: TEdit;
    edtPort: TEdit;
    btnDispositivoLoad: TButton;
    dbgrd1: TDBGrid;
    mmoLOG: TMemo;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure LeerHuella(Sender: Tobject);
  private

    { Private declarations }
  public
      ZK1 : TCZKEM;
      Connected : Boolean;
      procedure OnConnect(Sender : TObject);
      procedure OnDisconnect(Sender : TObject);
      procedure Log(aMsj : string);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ZK1 := TCZKEM.Create(nil);
  ZK1.OnConnected := OnConnect;
  ZK1.OnFinger := LeerHuella;
  if not(ZK1.Connect_Net(EdtIP.Text, StrToInt(EdtPort.Text))) then
    begin
      lbl1.Caption := 'Error. No se pudo conectar';
      exit;
    end;
    if not ZK1.RegEvent(1, 65535) then  //65535
      lbl1.Caption := 'Error RegEvent';

    ZK1.PullMode := 1;
    Log('Conectado...');
end;

procedure TForm1.OnConnect(Sender: TObject);
begin
  Connected := True;
end;

procedure TForm1.OnDisconnect(Sender: TObject);
begin
  Connected := False;
end;


procedure TForm1.LeerHuella(sender: tobject);
  Var _Resultado : Integer;
_Sender : TObject;
EnrollNumber : Integer;
IsInValid, AttState, VerifyMethod, Year, Month, Day, Hour, Minute, Second : Integer;
begin
  Log ('Huella Detectada');
end;

procedure TForm1.Log(aMsj: string);
begin
  MmoLOG.Lines.Add(aMsj);
end;

end.

Código Delphi [-]
    procedure LeerHuella(Sender: Tobject);

es el procedimiento que se ejecutara cuando ponga el dedo en el huellero

Código Delphi [-]
  ZK1 := TCZKEM.Create(nil);
  ZK1.OnConnected := OnConnect;
  ZK1.OnFinger := LeerHuella;

cargo el "componente", lo conecto y le digo cuando se dispare el evento Onfinger (que es colocar el dedo en el huellero) ejecuta el procedimiento Leer huella

hasta ahi estamos bien si?