Jump to content


Photo

Interceptar eventos externos


  • Please log in to reply
1 reply to this topic

#1 oscarac

oscarac

    Newbie

  • Miembros
  • Pip
  • 9 posts

Posted 24 February 2019 - 11:08 PM

buenas noches

estoy trabajando con una libreria externa "zkemkeeper_TLB"
que fue generada al registrar "zkemkeeper.dll"

la pregunta del millon es Como accedo a los eventos de esta libreria? como los "intercepto" en tiempo de ejecucion?

la idea principal es que cuando coloque la huella en el dispositivo (zkteco k40) dispare los aventos de esta libreria
no tengo la menor idea de como hacerlo
alguien me da una mano?

gracias

Attached Files


  • 0

#2 oscarac

oscarac

    Newbie

  • Miembros
  • Pip
  • 9 posts

Posted 25 February 2019 - 09:35 AM

les cuento lo que he avanzado y estoy entendiendo poco a poco

 

Type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
// Procedimiento para capturar el evento (del mismo tipo que el evento)

procedure VerifyProc (ASender: TObject; UserID: Integer);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses
zkemkeeper_TLB; // Añadir la USES del componente

procedure TForm1.VerifyProc(ASender: TObject; UserID: Integer);
begin
// Procedimiento de verificación
end;

procedure TForm1.FormCreate(Sender: TObject);
var
comp:TCZKEM;
begin
// Crear el componente
comp := TCZKEM.Create(nil);
// Capturar el evento y asignarle un procedimiento

comp.OnVerify := VerifyProc;
// Llamar al método PowerOnAllDevice
...

end;

 

------------------------------

 

dentro del procedimiento VerifyProc ejecutare el codigo deseado, cuando se intercepte el evento Onverify de la Libreria externa

 

la pregunta es.... el evento OnVerify se ejecuta automaticamente? como se activa? cuando se ejecuta?

 

 


  • 0




IP.Board spam blocked by CleanTalk.