Visual Basic.NET - huella digital parte 2

   
Vista:

huella digital parte 2

Publicado por Miguel Figueroa (7 intervenciones) el 02/10/2008 10:26:17
El Código de la Clase: Util.vb

Imports GrFingerXLib
Imports Microsoft.VisualBasic
'Primero Creamos la estructura don vamos a almacenar la imagen obtenida del Lector de Huellas
Public Structure RawImage
'img es donde Guardamos la data de la Imagen
Public img As Object

' width es el ancho de la imagen
Public width As Long
' width es el alto de la imagen
Public height As Long
' width es la Resolucion de la imagen
Public res As Long
End Structure

'Creamos la Clase Util
Public Class Util
'Definimos estas Constantes para hacer mas Limpio el Código
Public Const ERR_CANT_OPEN_BD As Integer = -999
Public Const ERR_INVALID_ID As Integer = -998
Public Const ERR_INVALID_TEMPLATE As Integer = -997

' Importamos las Funciones HDC Necesarias
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Int32) As Int32
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Int32, _
ByVal hdc As Int32) As Int32

' La Ultima Imagen Adquirida
Public raw As RawImage
' Los Datos y Coincidencias de la Ultima Imagen Adquirida
Public template As New TTemplate
' Hacemos Referencia a la Clase DBClass.vb
Public DB As DBClass
' Lista donde se Mostraran Los Mensajes Obtenidos del Lector
de HUellas
Private _lbLog As ListBox
'PictureBox Donde Mostraremos la Imagen adquirida del Lector
Private _pbPic As PictureBox
' Creamos la el Componente de la Libvreria para manejar
el Lector de Huellas
Private _GrFingerX As AxGrFingerXLib.AxGrFingerXCtrl

' Método Constructor Nulo de la Clase UTIL.vb
Sub New()

End Sub

' Método Constructor donde le decimos a la clase
los controles que utilizaremos en el formulario basandonos en los que declaramos
anteriormente Public Sub New(ByRef lbLog As ListBox, ByRef pbPic As PictureBox, _
ByRef GrFingerX As AxGrFingerXLib.AxGrFingerXCtrl)
_lbLog = lbLog
_pbPic = pbPic
_GrFingerX = GrFingerX
End Sub

' Método que Maneja Los Mensajes
Public Sub WriteLog(ByVal message As String)
_lbLog.Items.Add(message)
_lbLog.SelectedIndex = _lbLog.Items.Count - 1
_lbLog.ClearSelected()
End Sub

' Método que maneja la Errores arrojados por GrFingerX.dll
Public Sub WriteError(ByVal errorCode As Integer)
Select Case errorCode
Case GRConstants.GR_ERROR_INITIALIZE_FAIL
WriteLog("Error al Iniciar GrFingerX. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_NOT_INITIALIZED
WriteLog("La Biblioteca de Clases no Ha Sido inicialiuzada. (Error:" & _
errorCode & ")")
Case GRConstants.GR_ERROR_FAIL_LICENSE_READ
WriteLog("Falla de Licencia. Verifique el manual (Error:" & errorCode & ")")
MessageBox.Show("Falla de Licencia. Verifique el manual")
Case GRConstants.GR_ERROR_NO_VALID_LICENSE
WriteLog("La Licencia no es Válida. Verifique el Manual. (Error:" & _
errorCode & ")")
MessageBox.Show("La Licencia no es Válida. Verifique el Manual.")
Case GRConstants.GR_ERROR_NULL_ARGUMENT
WriteLog("El Parámetro tiene un Valor Nulo. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_FAIL
WriteLog("Error Creando Imagen. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_ALLOC
WriteLog("Error Creando El Contexto. Volcado de Memoria. (Error:" & _
errorCode & ")")
Case GRConstants.GR_ERROR_PARAMETERS
WriteLog("Uno o Mas Parametros Está fuera de Rango. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_WRONG_USE
WriteLog("No Se Puede Inicializar esta Funcion en este Momento. (Error:" & _
errorCode & ")")
Case GRConstants.GR_ERROR_EXTRACT
WriteLog("Falló al Obtener Template. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_SIZE_OFF_RANGE
WriteLog("La Imagen Obtenida es Demasiado Grande o Pequeña. (Error:" & _
errorCode & ")")
Case GRConstants.GR_ERROR_RES_OFF_RANGE
WriteLog("La Imagen Tiene Muy Alta o Muy Baja resolution. (Error:" & _
errorCode & ")")
Case GRConstants.GR_ERROR_CONTEXT_NOT_CREATED
WriteLog("No se Pudo Crear el Contexto. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_INVALID_CONTEXT
WriteLog("El Contexto No Existe. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_CONNECT_SENSOR
WriteLog("Ocurrio un Error Cuando se Inicializaba el Lector. (Error:" & _
errorCode & ")")
Case GRConstants.GR_ERROR_CAPTURING
WriteLog("Error de Captura. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_CANCEL_CAPTURING
WriteLog("Error al Finalizar Captura. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_INVALID_ID_SENSOR
WriteLog("El idSensor es Invalido. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_SENSOR_NOT_CAPTURING
WriteLog("El Sensor no está Capturando. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_INVALID_EXT
WriteLog("El archivo Tiene una Extension Desconocida. (Error:" & _
errorCode & ")")
Case GRConstants.GR_ERROR_INVALID_FILENAME
WriteLog("El Nombre del Archivo es Inválido. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_INVALID_FILETYPE
WriteLog("El Tipo de Archivo es Inválido. (Error:" & errorCode & ")")
Case GRConstants.GR_ERROR_SENSOR
WriteLog("El Lector Arrojó Un Error. (Error:" & errorCode & ")")
Case ERR_INVALID_TEMPLATE
WriteLog("Template Invalido. (Error:" & errorCode & ")")
Case ERR_INVALID_ID
WriteLog("ID Invalido. (Error:" & errorCode & ")")
Case ERR_CANT_OPEN_BD
WriteLog("Error al Conectar La Base de Datos. (Error:" & errorCode & ")")
Case Else
WriteLog("Error:" & errorCode)
End Select
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

huella digital parte 2

Publicado por diego (1 intervención) el 08/09/2011 16:51:13
Excelente la aplicación me podrías enviar el código por favor !!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

huella digital parte 2

Publicado por Eloy incaper@gmail.com (1 intervención) el 29/09/2011 01:04:14
Hola amigo vendes todo el codigo me gustaria comprarlo si ya lo acabo el sistema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar