FiveTech Support Forums

#include "FiveWin.ch"

STATIC oWnd

STATIC ttptSize
STATIC ttpt

STATIC lProcesandoHuella

FUNCTION Main()
Local oFingerX

cStatus:= Space(1000)

lProcesandoHuella:= .F.

cAntes:= Memoread("LECTURA1.DAT")

IF IsActiveX("GrFingerX.GrFingerXCtrl")

  DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

  oFingerX = TActiveX():New( oWnd, "GrFingerX.GrFingerXCtrl.1")

  oWnd:oClient = oFingerX

  oFingerX:Do("Initialize")

  oFingerX:Do("CapInitialize")

  oFingerX:bOnEvent = { | event, aParams, pParams | EventInfo( event, aParams, pParams, oFingerX) }

  ACTIVATE WINDOW oWnd ON INIT IniciaHuella(oFingerX) VALID SalirHuella(oFingerX)

ELSE

  MsgStop("TIENE QUE ESTAR INSTALADO GRFINGER","ATENCION")

ENDIF

RETURN NIL

***

FUNCTION IniciaHuella(oFingerX)

RETURN NIL

***

FUNCTION SalirHuella(oFingerX)

oFingerX:Do("CapStopCapture","DPMSA077A3")

oFingerX:Do("CapFinalize")
oFingerX:Do("Finalize")

RETURN ( .T. )

***

FUNCTION EventInfo( event, aParams, pParams, oFingerX )
Local cEvent

IF .not. lProcesandoHuella

  cEvent := cValToChar( event )

  IF cEvent == "SensorPlug" .or. cEvent == "1"
    IF aParams[1] != "File"
      oFingerX:Do("CapStartCapture","DPMSA077A3")
    ENDIF
  ELSE
    IF cEvent == "SensorUnplug"
      oFingerX:Do("CapStopCapture","DPMSA077A3")
    ELSE
      IF cEvent == "FingerDown" .or. cEvent = "4"
      ELSE
        IF cEvent == "FingerUp" .or. cEvent = "3"
        ELSE
          IF cEvent == "ImageAcquired" .or. cEvent = "5"

            lProcesandoHuella:= .T.

            xLib:= LoadLibrary("GrFinger.dll")

            GrInitialize()

            ttptSize = 10000
            ttpt = SPACE(10000)

            ret:= GrExtract( aParams[ 4], aParams[ 2], aParams[ 3], aParams[ 5], @ttpt, @ttptSize, 0 )

           * Forma 1
           *
           *GrIdentifyPrepare( ttpt, 0 )
           *nIdScore:= 0
           *nId:= GrIdentify( cAntes, @nIdScore , 0 )

           * Forma 2

            nIdScore:= 0
            nId:= GrVerify( ttpt , cAntes, @nIdScore , 0 )

            *Memowrit("PRUEBA",Subs(ttpt,1,ttptSize))

            ttpt:= ""

            oWnd:cTitle(Time()+" "+Str(ret)+" "+Str(nId)+" "+Str(nIdScore))

            SysWait(1)

            GrFinalize()

            FreeLibrary(xLib)

            lProcesandoHuella:= .F.

          ENDIF

        ENDIF
      ENDIF
    ENDIF
  ENDIF

ENDIF

RETURN NIL

***


DLL32 FUNCTION GrInitialize() AS LONG PASCAL FROM "_GrInitialize@0" LIB xLib
DLL32 FUNCTION GrFinalize() AS LONG PASCAL FROM "_GrFinalize@0" LIB xLib

*DLL32 FUNCTION GrCapInitialize(status AS LPSTR) AS LONG PASCAL FROM "_GrCapInitialize@4" LIB xLib

DLL32 FUNCTION GrExtract( rawImage AS LONG, width AS LONG, height AS LONG, res AS LONG, ttpt AS LPSTR, @ttptSize AS LONG , context AS LONG ) AS LONG PASCAL FROM "_GrExtract@28" LIB xLib

DLL32 FUNCTION GrIdentifyPrepare( ttpt AS LPSTR, context AS LONG ) AS LONG PASCAL FROM "_GrIdentifyPrepare@8" LIB xLib
DLL32 FUNCTION GrIdentify( ttpt AS LPSTR, @Idscore AS LONG, context AS LONG ) AS LONG PASCAL FROM "_GrIdentify@12" LIB xLib

DLL32 FUNCTION GrVerify( ttpt AS LPSTR, qtpt AS LPSTR, @Idscore AS LONG, context AS LONG ) AS LONG PASCAL FROM "_GrVerify@16" LIB xLib