Lector de Huella

[servicomver]

Hola, ¿ alguien a desarrollado algún programa usando lector de huella ? con xharbour, fivewin. Alguna idea de como hacerlo ? o por donde empezar
Saludos y gracias

[csincuir]

Hola,
Pues, dependiendo del biometrico a utilizar, hay que conseguir los SDK para poder acceder a los mismos, y unos son de paga y otros son gratis.
Te comento que en su momento trabaje con los Biometricos de SecuGen, especificamente con el Hamster IV https://secugen.com/products/hamster-iv/, y para poder acceder al mismo, hay que descargar el SDK, el cual es gratis, y logro funcionar durante un tiempo, pero luego vinieron las actualizaciones de Windows, y de la noche a la mañana, ya no pude acceder a ellos, desde FWH.
Esta es la pagina web con información de los sdk: https://secugen.com/products/sdk/

Te escribo un ejemplo de como accedía a estos biométricos:

Code: Select all  Expand view

///-------------------------------------------------------------------
FUNCTION BioEnroll()       
Local lSecuGen, oNBioBSP, nDeviceId, cEnroll

lSecuGen := .t.
TRY
oNBioBSP := CreateObject("SecuBSPMxCOM.APIInterface")
CATCH
  lSecuGen := .f.
END
IF !lSecuGen
   MsgAlert( "No esta instalado el lector de huella","Verifique por favor..." )

   oNBioBSP := NIL
   Return ""
End


   oNBioBSP:EnumerateDevice()
   
   nDeviceId := oNBioBSP:DeviceNum() //Numero de Dispositivos
   If Empty( nDeviceId )
      MsgAlert("No esta conectado el Lector Biometrico en su equipo...","Verifique por favor..." )
      oNBioBSP := NIL
      Return ""   
   End
   
   nDeviceId := oNBioBSP:DeviceID(0)

   oNBioBSP:OpenDevice( nDeviceId )
   
   oNBioBSP:Enroll(NIL)
   cEnroll := ""
   If oNBioBSP:ErrorCode == 0
      cEnroll := oNBioBSP:FIRTextData()
   EndIf
   oNBioBSP:CloseDevice( nDeviceId )

   oNBioBSP := NIL
   
   Return( cEnroll )
 

Espero te sirva esta información.

Carlos