Activex component Event

[isam]

 

 

 

Hello, I use Unigui trial, and I use a Ativex component (CZKEM) for the fingerprint, everything works fine, only some events as ... "Onfinger", "OnOnrollfinger" yet others play events like "Onconned" and "OnDisconnect" works perfectly:

This is for example the the DLL functions that work:

    procedure CZKEMDisConnected (Sender: TObject);

    procedure CZKEMConnected (Sender: TObject);


This is for example the functions of the DLL not work:

 procedure CZKEMEnrollFinger(ASender: TObject; EnrollNumber, FingerIndex, ActionResult, TemplateLength: Integer);

CZKEMFinger procedure (Sender: TObject);

And part of unit activex control:

 

unit zkeuemkeeper_TLB;

{$TYPEDADDRESS OFF} // L'unité doit être compilée sans pointeur à type contrôlé.  
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}

interface

uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleCtrls, Vcl.OleServer, Winapi.ActiveX;

const
  // Versions mineure et majeure de la bibliothèque de types
  zkeuemkeeperMajorVersion = 1;
  zkeuemkeeperMinorVersion = 0;

  LIBID_zkeuemkeeper: TGUID = '{EE9EED34-E159-408E-8490-B720A5E632C7}';

  DIID__IZKEUEMEvents: TGUID = '{CE83B580-5D32-4C65-B44E-BEDC750CDFA8}';
  IID_IZKEUEM: TGUID = '{103F4206-E43D-4FC9-BAB0-331CFFE4D25B}';
  CLASS_CZKEUEM: TGUID = '{00753A19-BD51-419B-9269-2DABE57EB61F}';
type
 _IZKEUEMEvents = dispinterface;
  IZKEUEM = interface;
  IZKEUEMDisp = dispinterface;

 CZKEUEM = IZKEUEM;




// *********************************************************************//
// Déclaration de structures, d'unions et d'alias.                         
// *********************************************************************//
  PShortint1 = ^Shortint; {*}
  PInteger1 = ^Integer; {*}
  PByte1 = ^Byte; {*}
  PWordBool1 = ^WordBool; {*}

 _IZKEUEMEvents = dispinterface
    ['{CE83B580-5D32-4C65-B44E-BEDC750CDFA8}']

 procedure OnEnrollFinger(EnrollNumber: Integer; FingerIndex: Integer; ActionResult: Integer; 
                             TemplateLength: Integer); dispid 3;

 procedure OnConnected; dispid 6;
    procedure OnDisConnected; dispid 7;
    procedure OnFinger; dispid 8;

TCZKEUEM = class(TOleControl)
  private
    FOnEnrollFinger: TCZKEUEMOnEnrollFinger;
    FOnConnected: TNotifyEvent;
    FOnDisConnected: TNotifyEvent;
    FOnFinger: TNotifyEvent;

    property OnEnrollFinger: TCZKEUEMOnEnrollFinger read FOnEnrollFinger write FOnEnrollFinger;
    property OnConnected: TNotifyEvent read FOnConnected write FOnConnected;
    property OnDisConnected: TNotifyEvent read FOnDisConnected write FOnDisConnected;
    property OnFinger: TNotifyEvent read FOnFinger write FOnFinger;

end.