Leitor Biométrico FS-80

[Marca]

Bom dia pessoal.
Estou com um leitor aqui CIS FS-80
Alguém pode me dizer o caminho das pedras ????
Estou com um aparelho destes aqui e preciso de algum exemplo de como rodar isso no five

No Windows já esta instalado e funcionando.

Alguém teria algum material a respeito ? Tudo q. encontrei falam do uso de uma dll GrFinger.dll

Sendo que junto deste modelo as dlls que vieram não batem

[kapiaba]

Acho, não tenho certeza, que o Lailton pode te ajudar, senão, estais com uma bomba atômica na mão.

[Ariston Santos]

Tenho exemplo para leitor de marca diferente. Serve?

Se tiver o SDK, dá para programar esse aí. Deve ser a mesma ideia.

Exemplo:

Ptit01 := TestSDK()

FUNCTION TestSDK()
   local aFiles := Array( ADir( CurDrive()+":\"+GetCurDir()+"\DIGITAL\D*.TXT" ) )
   local ADir   := ADir( CurDrive()+":\"+GetCurDir()+"\DIGITAL\D*.TXT", aFiles )
   IF cFReader != "Fingkey Hamster - Nitgen"
      MsgAlert("Configure a biometria no menu 'Configurações' -> 'Gerais'","Erro de configuração")
      RETURN " "
   ENDIF

   TRY
      objNBioBSP := CreateObject('NBioBSPCOM.NBioBSP')
      objDevice := objNBioBSP:Device
      objExtraction := objNBioBSP:Extraction
      objMatching := objNBioBSP:Matching

      objExtraction:WindowStyle := 0;

      objDevice:Open(255)
      objExtraction:DefaultTimeout := SECS("02:00:00") * 1000 // Duas horas convertidas para milliseconds
      objExtraction:Capture()
      cTempl := objExtraction:TextEncodeFIR()

      cDedo := ""
      IF LEN(aFiles) > 0
         FOR nDedo := 1 TO LEN(aFiles)
            cTxtFile := CurDrive()+":\"+GetCurDir()+"\DIGITAL\"+aFiles[nDedo]
            objMatching:VerifyMatch(cTempl, MEMOREAD(cTxtFile))
            if objMatching:ErrorCode <> 0
              *msginfo("error")
            else
               if objMatching:MatchingResult = 1
                  cDedo := aFiles[nDedo]
                  EXIT
               endif
            endif
         NEXT
      ENDIF
      cCodigo := "0"
      IF ! EMPTY(cTempl)
         SELECT 3 // Pessoal
         PESSOAL->(DBSETORDER(1))
         nRec := SUBSTR(cDedo,5,4)
         cCodigo := "0"
         IF ! PESSOAL->(DBSEEK(VAL(nRec)))
            PESSOAL->(DBGOTOP())
         ELSE
            cCodigo := ALLTRIM(STR(PESSOAL->CODIGO))
         ENDIF
      ELSE
         cCodigo := " "
      ENDIF
      objDevice:Close(255)
   CATCH
       MsgAlert( "ERRO! O leitor biométrico não está instalado em seu computador.", "Aviso")
       cCodigo := " "
   END
RETURN( cCodigo )

[Marca]

Bom dia Ariston

Tenho exemplo em Delphi rodando sendo que não conheço pra migrar

[kapiaba]

Deixando o link do que me restou sobre isto,pois acho que foi tudo pro saco, quando o forum antigo foi invadido, baixem e guarde, pois esse forum aqui, só Deus sabe quando voltará... Se voltar! Deve ser muita inveja, pois só este fórum, é atacado?

http://www.4shared.com/zip/K7NVsrt8ce/Biometria.html

Abs