Jump to content
Fivewin Brasil

Leitor Biometrico....

jbinfo

By jbinfo
in Programação

 Share

Recommended Posts

jbinfo Newbie

jbinfo

Posted
Posted

E ai pessoal....alguem esta trabalhando com leitor biometrico?...me pediram esta semana e lembro que em algum dos encontros falamos disso....mas não achei nada no site...alguem pode ajudar...que marcar comprar.....se ja temos um programa no fivewin...

Valeu

Leandro - JB

JB Informática

[ xHarbour1.10 || FWh10.1 ]

Link to comment
Share on other sites
jbinfo Newbie

jbinfo

Posted
  • Author
Posted

E ai pessoal....alguem esta trabalhando com leitor biometrico?...me pediram esta semana e lembro que em algum dos encontros falamos disso....mas não achei nada no site...alguem pode ajudar...que marcar comprar.....se ja temos um programa no fivewin...

Valeu

Leandro - JB

JB Informática

[ xHarbour1.10 || FWh10.1 ]

Link to comment
Share on other sites
Ariston Santos Newbie

Ariston Santos

Posted
Posted

Olá.

O código abaixo é para ler a digital com o leitor biométrico Hamster da Nitgem. Basta instalar o Driver e o SDK, que vem no CD de instalação do Leitor. Na minha opinião, é o melhor leitor que testei até o momento.

Adapte o código para sua real necessidade.



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 converticas 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 )


id=code>id=code>
ariston.jpg


Conheça o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a Bíblia diariamente"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		jbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


jbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Olá.


O código abaixo é para ler a digital com o leitor biométrico Hamster da Nitgem. Basta instalar o Driver e o SDK, que vem no CD de instalação do Leitor. Na minha opinião, é o melhor leitor que testei até o momento.


Adapte o código para sua real necessidade.






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 converticas 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 )


id=code>id=code>
ariston.jpg


Conheça o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a Bíblia diariamente"




id=quote>id=quote>
MUITO OBRIGADO DR....vou testar e qq coisa grito...rsrs


Sabe onde comprar este leitor mais em conta?


Valeu


Leandro - JB Informatica


JB Informática


[ xHarbour1.10 || FWh10.1 ]



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
						
    
							
							
								
  • 
									4 years later...
								
    • 
							
						

					
					
					
				

					

					
					






	

	

	

		

			

				


	
		fladimir
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


fladimir
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			


	

		 
	


	

		

			Olá.
		


		

			O código abaixo é para ler a digital com o leitor biométrico Hamster da Nitgem. Basta instalar o Driver e o SDK, que vem no CD de instalação do Leitor. Na minha opinião, é o melhor leitor que testei até o momento.
		


		

			Adapte o código para sua real necessidade.
		


		

			 
		


		


 


		

			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 converticas 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 )
		


		

			 
		


		

			id=code>id=code>
		


		

			ariston.jpg


		

			Conheça o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a Bíblia diariamente"
		

	






	Ariston td bem... 





	Neste teu código percebi q é usado para testar/verificar a digital previamente armazenada...





	Vc poderia compartilhar o restante do código para cadastrar uma nova Biometria utilizando os leitores da Nigten como do exemplo citado?




			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •