Prezados,
Segue abaixo exemplo do leitor biometrico da ControliD do equipamento BioID
P DO PROJETO / DESCRIPTION GLOBAL / CODE / INIT PROJECT
////Finger ID
////-------------------------------------------------
CIDBio = new CIDBio
cl_CIDBio is CIDBio
////-------------------------------------------------
////Finger ID
garrNewImageBuf is Buffer
////-------------------------------------------------
CRIE UMA PROCEDURE PUBLICA GLOBAL
PROCEDURE BioID_01_Init()
//CODE GLOBAL
//CIDBio = new CIDBio
//cl_CIDBio is CIDBio
arrResultadoFinger is array of string
nRetorno is int = CIDBio.Init()
IF nRetorno = 0 THEN // Scanner Finger inicializado com Sucesso!!!
//---Versao serial modelo----------------------------------------------------------------//
Version, serialNumber, Model is UNICODE string = ""
cl_CIDBio.GetDeviceInfo(Version,serialNumber,Model) // Serial do Scanner
//ToastDisplay(model +" "+ version +" "+ serialNumber,toastShort,vaMiddle,haCenter,RGB(0,0,255))
//---CapturarImagemMather---------------------------------------------------------------//
ToastDisplay("Coloque seu dedo sobre o Leitor de digital!",toastLong,vaMiddle,haCenter,RGB(255,0,0))
ResultadoCapturaImagemMather is array of string = BioID_05_CaptureImageAndTemplate()
Add(arrResultadoFinger,Model)
Add(arrResultadoFinger,serialNumber)
Add(arrResultadoFinger,Version)
IF ArrayCount(ResultadoCapturaImagemMather) > 0 THEN
Add(arrResultadoFinger,ResultadoCapturaImagemMather[1])
END
ELSE
sCaptureMsgText is string = BioID_04_ReturnMessage(nRetorno)
IF (sCaptureMsgText) <> "" THEN
Toast(sCaptureMsgText)
END
END
RESULT arrResultadoFinger
E PARA USAR:
PROCEDURE BioID_Detectar(vezes)
HourGlass(True)
IMG_FINGER_ATUAL = IMG_FINGER_VAZIA
//Leitura da Digital
gbBuscar = 0
IMG_FINGER_ATUAL = IMG_FINGER_VAZIA
IF GNID ="" OR GNID = 0
Info("Informe o cadastro que deseja definir a digital")
SetFocus(EDT_Nome)
ELSE
vNull is Variant = Null
garrNewImageBuf = vNull
IMG_FINGER_ATUAL = garrNewImageBuf
EDT_MatherFinger = ""
STC_ConfereFinger01 = ""
IF vezes = 3
STC_Finger_MensagemStatus = "Você tem 30 segundos para por 3x o dedo no leitor de digital..."
ELSE IF vezes = 5
STC_Finger_MensagemStatus = "Você tem 30 segundos para por 5x o dedo no leitor de digital..."
END
Toast(STC_Finger_MensagemStatus)
BioID_24_Terminate()
arrResultadoFinger is array of string = BioID_01_Init()
IF ArrayCount(arrResultadoFinger)> 0
EDT_Finger_Model = arrResultadoFinger[1]
EDT_Finger_Serial = arrResultadoFinger[2]
EDT_Finger_Version = arrResultadoFinger[3]
EDT_MatherFinger = arrResultadoFinger[4]
END
IMG_FINGER_ATUAL = garrNewImageBuf
CIDBio.Terminate()
GPU_BioFingerID.BioID_24_Terminate()
IF ArrayCount(arrResultadoFinger) = 4 AND Length(garrNewImageBuf) > 0
ToastDisplay("Digital Capturada com Sucesso!",toastShort,vaMiddle,haCenter,RGB(0,0,255))
ELSE
Info("Equipamento BioID não encontrado!")
BTN_DETECTAR_BIOID..State = Active
BTN_Capturar_01..State = Grayed
BTN_Capturar_02..State = Grayed
BTN_Capturar_03..State = Grayed
BTN_Capturar_04..State = Grayed
BTN_Capturar_05..State = Grayed
BTN_Capturar_06..State = Grayed
BTN_Capturar_07..State = Grayed
BTN_Capturar_08..State = Grayed
BTN_Capturar_09..State = Grayed
BTN_Capturar_10..State = Grayed
END
END
BTN_Alterar..State = Active
BTN_Excluir..State = Active
BTN_ValidarDigital1..State = Active
BTN_ValidarDigital..State = Active
IF EDT_Finger_Serial <> "" THEN
Toast("Equipamento detectado com sucesso!")
BTN_DETECTAR_BIOID..State = Grayed
BTN_Capturar_01..State = Active
BTN_Capturar_02..State = Active
BTN_Capturar_03..State = Active
BTN_Capturar_04..State = Active
BTN_Capturar_05..State = Active
BTN_Capturar_06..State = Active
BTN_Capturar_07..State = Active
BTN_Capturar_08..State = Active
BTN_Capturar_09..State = Active
BTN_Capturar_10..State = Active
END
BioID_CoresDosDedos()
HourGlass(False)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/