Hola ttengo una aplicacion hecha en VB hace mucho tiempo, quise actualizar a la ultima version del GrFinger 2009 pero cuando cargo la aplicacion y se llama al metodo
formMain.GrFingerXCtrl1.CapInitialize
este me produce el error " Cannot load verification module" y "Cannot load extraction module " y todo trabaja bien pero me da constante mente este error y tambien me da el error
Alguien me podria ayudar por favor
Estimado cliente,
Usted hizo el upgrade del SDK 2007 al SDK 2009 sin ninguna modificación al código fuente?
Jan Beeck
Griaule Support Team
Muchas Gracias por tu respuesta ya que tengo que actualizar varios cliente sy tengo este error, es correcto yo actulice sin hacer ningun cambios te paso el codigo que estamos usandoo
'ESTA CLASE TIENE FUNCIONES QUE SE UTILIZAN EN EL LECTOR
'CREADO POR: JOSE AUGUSTO
'FECHA CREACION VIERNES 25/01/08
'ACTUALIZADO POR: JOSE AUGUSTO
'FECHA ACTUALIZACION: MIERCOLES 30/01/08
Option Explicit
'MANEJA LA CLASE GENERAL
Public pucls_conexion As New class_general 'conexion general a la base de datos
Option Base 0
Public empl_code As Integer 'GUARDA EL CODIGO DEL EMPLEADO
Public emp_code As Integer 'GUARDA EL CODIGO DE LA EMPRESA
Public Tiho_code As Integer 'GUARDA EL CODIGO DEL TIPO DE HORARIO LABORAL
Public Dato_Ingresado As Byte 'INDICA SI SE HA INSERTADO O ACTUALIZADO LOS DATOS CORRECTAMENTE
Public Inactivo As Byte
Public muestra_mensaje As Boolean
'ESTRUTURA PARA LA IMAGEN
Public Type rawImage
'DATOS DE LA IMAGEN
img As Variant
'ANCHO DE LA IMAGEN
width As Long
'ALTO DE LA IMAGEN
height As Long
'RESOLUCION DE LA IMAGEN
res As Long
End Type
'ESTRUCTURA PARA EL TEMPLATE
Public Type TTemplate
'DATOS DEL TEMPLATE
tpt() As Byte
'TAMAÑO DEL TEMPLATE
size As Long
End Type
' Some constants to make our code cleaner
Public Const ERR_CANT_OPEN_BD = -999
Public Const ERR_INVALID_ID = -998
Public Const ERR_INVALID_TEMPLATE = -997
' The last acquired image.
Public raw As rawImage
' The template extracted from last acquired image.
Public template As TTemplate
' Database class.
Public Class_Data As Class_FingerReader
' -----------------------------------------------------------------------------------
' FUNCIONES DE SOPORTE
' -----------------------------------------------------------------------------------
Public Sub writeLog(msg As String)
'MUESTRA EL MENSAJE
MsgBox msg, vbInformation, "Mensaje de Información"
End Sub
Public Sub writeError(errorCode As Long)
'MUESTRA Y DESCRIVE LOS POSIBLES ERRORES
On Error GoTo ErrorHandler
Select Case errorCode
Case GR_ERROR_INITIALIZE_FAIL
writeLog ("Fallo al inicializar el GrFingerX. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_NOT_INITIALIZED
writeLog ("La libreria de GrFingerX no ha sido inicializada. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_FAIL_LICENSE_READ
writeLog ("La licecia no se encuentra. Ver el manual de errores. (Error:" & Str(errorCode) & ")")
MsgBox ("La licecia no se encuentra. Ver el manual de errores.")
Case GR_ERROR_NO_VALID_LICENSE
writeLog ("La licencia no es valida. Ver el manual de errores. (Error:" & Str(errorCode) & ")")
MsgBox ("TLa licencia no es valida. Ver el manual de errores.")
Case GR_ERROR_NULL_ARGUMENT
writeLog ("El parametro tiene un valor nulo. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_FAIL
writeLog ("Fallar al crear el objeto GDI. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_ALLOC
writeLog ("Fallo al crear el contexto. No se puede ingresar a memoria. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_PARAMETERS
writeLog ("Uno o mas datos estan fuera de los rangos. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_WRONG_USE
writeLog ("Esta función no puede ser llamada en este momento. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_EXTRACT
writeLog ("Fallo al extraer el template. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_SIZE_OFF_RANGE
writeLog ("La imagen es muy grande o muy pequeña. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_RES_OFF_RANGE
writeLog ("La imagen tiene muy alta o muy baja la resolución. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_CONTEXT_NOT_CREATED
writeLog ("El contexto no puede ser creado. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_INVALID_CONTEXT
writeLog ("El contexto no existe. (Error:" & Str(errorCode) & ")")
' Capture error codes
Case GR_ERROR_CONNECT_SENSOR
writeLog ("Ocurrió un error mientras se conecto el sensor. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_CAPTURING
writeLog ("Ocurrió un error mientras se capturo el sensor. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_CANCEL_CAPTURING
writeLog ("Ocurrió un error mientras se paraba de capturar el sensor. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_INVALID_ID_SENSOR
writeLog ("El codigo del sensor no es valido. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_SENSOR_NOT_CAPTURING
writeLog ("El sensor no ha sido capturado. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_INVALID_EXT
writeLog ("El arhivo tiene una extención desconocida. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_INVALID_FILENAME
writeLog ("El nombre del archivo es invalido. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_INVALID_FILETYPE
writeLog ("El tipo de archivo es invalido. (Error:" & Str(errorCode) & ")")
Case GR_ERROR_SENSOR
writeLog ("Ha ocurrido un error con el sensor. (Error:" & Str(errorCode) & ")")
' Our error codes
Case ERR_INVALID_TEMPLATE
writeLog ("Invalido template. (Error:" & Str(errorCode) & ")")
Case ERR_INVALID_ID
writeLog ("Codigo Invalido. (Error:" & Str(errorCode) & ")")
Case ERR_CANT_OPEN_BD
writeLog ("Error al conectarse a la base de datos. (Error:" & Str(errorCode) & ")")
Case Else
writeLog ("Error:" & Str(errorCode))
End Select
Exit Sub
ErrorHandler:
MsgBox "Existe algun error en los datos", vbCritical, "Error en el Sistema"
End Sub
'VERIFICA SI EL TEMPLATE ES VALIDO
Public Function TemplateIsValid() As Boolean
'VERIFICA EL TAMAÑO
TemplateIsValid = (template.size > 0)
End Function
' -----------------------------------------------------------------------------------
' FUNCIONES PRINCIPALES DE RECONOCIMIENTO
' -----------------------------------------------------------------------------------
Public Function InitializarGrFinger()
'SE INICIALIZA EL GRFINGER ACTIVEX Y TODAS LAS UTILIZADES NECESARIAS
On Error GoTo ErrorHandler
Dim err As Integer
'SE HABRE LA CONEXION
Set Class_Data = New Class_FingerReader
If Class_Data.Iniciar_Conexion() = False Then
InitializarGrFinger = ERR_CANT_OPEN_BD
Exit Function
End If
'SE CREA UN NUEVO TEMPLATE
ReDim template.tpt(GR_MAX_SIZE_TEMPLATE) As Byte
'SE CREA UNA NUEVA IMAGEN
raw.width = 0
raw.height = 0
'INICIALIANDO LA LIBRERIA
err = frm_Principal.GrFingerXCtrl1.Initialize
If err < 0 Then
InitializarGrFinger = err
Exit Function
End If
InitializarGrFinger = frm_Principal.GrFingerXCtrl1.CapInitialize
Exit Function
ErrorHandler:
MsgBox "Existe algun error en los datos", vbCritical, "Error en el Sistema"
End Function
Public Sub FinalizarGrFinger()
'FINALIZANDO LA LIBRERIA Y LA CONEXION
On Error GoTo ErrorHandler
frm_Principal.GrFingerXCtrl1.CapFinalize
frm_Principal.GrFingerXCtrl1.Finalize
template.size = 0
Class_Data.Cerrar_Conexion
Set Class_Data = Nothing
Exit Sub
ErrorHandler:
MsgBox "Existe algun error en los datos", vbCritical, "Error en el Sistema"
End Sub
Public Sub PrintBiometricDisplay(ByVal biometricDisplay As Boolean, ByVal context As Integer)
'ESTE PROCEDIMIENTOM DESPLIEGA LA IMAGEN DEL DEDO EN LA PANTALLA
On Error GoTo ErrorHandler
' handle to finger image
Dim handle As IPictureDisp
' return value
Dim ret As Integer
If biometricDisplay Then
'OBTIENE LA INFORMACION BIOMETRICA
frm_Principal.GrFingerXCtrl1.biometricDisplay template.tpt, raw.img, raw.width, raw.height, raw.res, frm_Principal.hDC, handle, context
Else
'SE OBTIENE LA IMAGEN
frm_Principal.GrFingerXCtrl1.CapRawImageToHandle raw.img, raw.width, raw.height, frm_Principal.hDC, handle
End If
'DIBUJA LA IMAGEN EN EL PICTURE BOX
If Not (handle Is Nothing) Then
' frm_VerificacionDatos.img.Picture = handle
End If
Exit Sub
ErrorHandler:
MsgBox "Existe algun error en los datos", vbCritical, "Error en el Sistema"
End Sub
Public Function ExtraerTemplate() As Integer
'EXTRAE EL TEMPLATE DE LA IMAGEN ACTUAL
On Error GoTo ErrorHandler
Dim ret As Integer
'SE INICIALIZA EL BUFFER
template.size = GR_MAX_SIZE_TEMPLATE
'Reallocate template buffer
ReDim Preserve template.tpt(template.size)
ret = frm_Principal.GrFingerXCtrl1.Extract(raw.img, raw.width, raw.height, raw.res, template.tpt, template.size, GR_DEFAULT_CONTEXT)
' if error, set template size to 0
' Result < 0 => extraction problem
If ret < 0 Then template.size = 0
' Set real buffer size and free unecessary data
ReDim Preserve template.tpt(template.size)
ExtraerTemplate = ret
Exit Function
ErrorHandler:
MsgBox "Existe algun error en los datos", vbCritical, "Error en el Sistema"
End Function
Public Function Identificar_Huella(ByRef score As Long) As Integer
'IDENTIFICA UNA HUELLA EN LA BASE DE DATOS
On Error GoTo ErrorHandler
Dim ret As Integer
Dim i As Integer
'INICIANDO EL PROCEDO DE IDENTIFICACION DEL TEMPLATE
If Not TemplateIsValid() Then
Identificar_Huella = ERR_INVALID_TEMPLATE
Exit Function
End If
'SE PREPARA PARA IDENTIFICAR EL TEMPLATE
ret = frm_Principal.GrFingerXCtrl1.IdentifyPrepare(template.tpt, GR_DEFAULT_CONTEXT)
If ret < 0 Then
Identificar_Huella = ret
Exit Function
End If
'OBTENIENDO LOS TEMPLATES DE LA BASE DE DATOS
Dim rs As ADODB.recordset
Set rs = Class_Data.ObtenerTemplates
Dim tpt() As Byte
'BUSCA EN TODOS LOS TEMPLATES DE LA BASE DE DATOS
Do Until rs.EOF
'SE OBTIENE EL TEMPLETE ACTUAL DEL RECORDSET
tpt = rs("HUELLADIGITAL")
'SI EL TEMPLATE NO ES VALIDO SE LO SALTA
If Not (IsNull(tpt)) Then
'COMPARANDO EL TEMPLATE ACTUAL
ret = frm_Principal.GrFingerXCtrl1.Identify(tpt, score, GR_DEFAULT_CONTEXT)
'VERIFICANDO EL TEMPLATE DE LA BASE DE DATOS Y EL DE LA HUELLA
If ret = GR_MATCH Then
Identificar_Huella = rs("EMPL_CODE")
empl_code = Identificar_Huella
rs.Close
Exit Function
ElseIf ret < 0 Then
Identificar_Huella = ret
Exit Function
End If
End If
rs.MoveNext
Loop
'SE CIERRA EL RECORDSET
rs.Close
' end of database, return "no match" code
Identificar_Huella = GR_NOT_MATCH
Exit Function
ErrorHandler:
MsgBox "Existe algun error en los datos", vbCritical, "Error en el Sistema"
End Function
Public Function CargaImagenEmpleado(ByRef imagen As Image, empl_code As String)
'ESTA FUNCION CARGA DE LA BASE DE DATOS LA IMAGEN DEL EMPLEADO
On Error GoTo ErrorHandler
Dim consulta As String
Dim recordset As ADODB.recordset
consulta = "SELECT * FROM EMP_EMPLEADO WHERE EMPL_CODE = " & empl_code
recordset.LockType = adLockOptimistic
recordset.CursorType = adOpenForwardOnly
recordset.CursorLocation = adUseClient
recordset.Open consulta
Dim mStream As New ADODB.Stream
With mStream
.Type = adTypeBinary
.Open
imagen.DataField = "EMP_FOTOGRAFIA"
'Set DataField....
Set imagen.DataSource = recordset
'Set DataSource
End With
Set mStream = Nothing
Exit Function
ErrorHandler:
MsgBox "Existe algun error en los datos", vbCritical, "Error en el Sistema"
End Function
'****************************************************
'****************************************************
'FIN OBTENER EL IDIOMA DEL SISTEMA OPERATIVO
'****************************************************
'****************************************************
' ------------------------------------------------
' Se encarga de devolver la versión actual del sistema.
Property Get VersionDelSistema() As String
VersionDelSistema = "Versión 1.2"
End Property
' ------------------------------------------------
Espero tu pronta respuesta ya que no se que hacer
Gracias
Estimado cliente,
Como usted actualizó la librería a la versión 2009, también tiene que importar nuevamente el componente ActiveX a su IDE y volver a compilar su aplicación.
Jan Beeck
Griaule Support Team
Buenos Dias
Mira esto que me dices ya lo hice borreo el componenete y lo volve a poner, hasta el ejemplo de bajo de la pagina de ustedes de VB me da el mismo error
Gracias
Estiamado cliente,
Registro el nuevo componente (2009) antes de importar a su IDE y compilarlo?
Jan Beeck
Griaule Support Team
Lo volvi a ahcer y me da el mismo error, lo que si es que estoy haciendo con una version Trial pero me imagino que deberia de funcionar
Gracias
Estimado cliente,
No existirá al algún conflicto con la versión anterior?, puede ser que siga instalada.
Jan Beeck
Griaule Support Team
Hola Si me parece que es eso, mi pregunta es como podria saber que realmente tengo todo desinstalados y sin ninguna dependencia
Gracias
Estimado cliente,
Desinstale el FP SDK 2007 y cuando instale el FP SDK 2009, verifique que estén las versiones correctas de los DLLs, por ejemplo:
GrFinger.dll (6.0.4.0)
GrFingerX.dll (6.0.0.0)
Jan Beeck
Griaule Support Team
tengo el mismo problema, a que se debe tengo instalado el sdk 2009 y la aplicacion con VB
Gracias por la ayuda
[ESPAÑOL - GOOGLE TRANSLATE]
Estimado cliente,
Tiene que eliminar la referencia a nuestra grfingerx.dll de su proyecto, entonces lo carga de nuevo, colóquelo en el formulario y recompile su aplicación.
Davi Stuart Zilli
Griaule Support Team
Dear customer,
Which OS and IDE are you using?
After loading the .dll, are you dragging the component to your application and enabling it's functions?
If if does not solve your problem, could you please send an image of what's going on?
Best regards,
--
Matheus Smythe Svolenski
Griaule Biometrics Support Team
Hola como estas
Despues de solucionar este problema de me presenta lo siguiente, genero el instalador que maneja las huellas con el componente de usted pero despues de un rato la maquina que tiene Xp se me empieza a reiniciar y sigue en ese proceso porque podria ser esto?
Gracias por su ayuda
Estimado cliente,
Dicho error no debe presentarse al usar nuestro componente, usted verifico si hay conflicto entre su módulo y algún servicio instalado en el S.O?, es recomendable sólo quedarse con el CapPluginXXX (ejemplo: lector XXX).
Jan Beeck
Griaule Support Team
Gracias
Como el es recomendable sólo quedarse con el CapPluginXXX (ejemplo: lector XXX).? no te entindo nosotros pusimos el driver del equipo y instalamos el software de lectura
Gracias
Hola
Asi mismo acabo de comprar las licencias por medio de su sitio y que se paga con Amazon, donde encuentro las 5 licencias compradas
Gracias
No entiendo que quiere decir con "es recomendable sólo quedarse con el CapPluginXXX (ejemplo: lector XXX)." me podrias explicar mejor
El equipo que usamos es el hsduo3
Los pasos seguidos son
Instalar los driver del equipo hsduo3
Instalar el software GrFinger
Instalar la aplicacion en VB de nosotros
Gracias
La verdad no se cuales son las 5 licencias y podrias pasar el dato?
Gracias
Gracias por tu ayuda
Voy a revisar lo del CapPluginMarca01
Me queda una duda pasa si uno se le quema una maquina y esa licencia que tenia se quiere volver a instalar pero en otra maquina nueva?
Serian estas mis licencias?
Disculpe el inconveniente pero la verda no se cual licencia tengo que instalar usted me podria borrar todo y que solo me quede lo referente a las 5 licencias que tengo para instalar
ya que le doy el paso tres pero tengo tres licencias a obtener y no me da nada el Request licence
Gracias
Estimado cliente,
Como usted esta usando XP, siga los siguientes pasos.
http://www.griaulebiometrics.com/page/sites/default/files/workaround_XP_0.pdf
Jan Beeck
Griaule Support Team
Hice los pasos sujeridos por usted y me da el siguiente error
SELECT LICENSE FILE NOT INSTALELD: GRFINGER LICENSEAGREEMENT.TXT C:\... (aCCESS IS DENIED)
QUE PODRIA SER
Dear customer,
Which procedure did you use?
Could you specify exactly which part of the procedure you got this error?
Best regards,
--
Matheus Smythe Svolenski
Griaule Biometrics Support Team