PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Exemplo de como instanciar uma Dll Assembler .Net (leitor biometrico da ControliD do equipamento BioID)
Exemplo de como instanciar uma Dll Assembler .Net (leitor biometrico da ControliD do equipamento BioID)
Iniciado por Boller, fev., 02 2023 1:47 PM - 1 resposta
Membro registado
3.657 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 02 2023 - 1:47 PM
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/
Membro registado
3.657 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 02 2023 - 1:48 PM
CODIGO FONTE COMPLETO ESTA NO REPOSITORIO

https://repository.windev.com/resource.awp…

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/