Huella Digital

[mp336]

Como el Attach es de 1KB, entonces he dejado una copia de los
ejemplos en VB y C++ en un correo electronico:

email: [email protected]
contraseña: clubdelphi

Los ejemplos funcionan correctamente los he probado corriendo el ejecutable creado

si me pueden ayudar muchas gracias

[__cadetill]

Empezado por mp336

Como el Attach es de 1KB, entonces he dejado una copia de los ejemplos en VB y C++ en un correo electronico:

Pero hombre!! si el código no era eterno, podías haberlo publicado directamente aquí!!

[mp336]

TRATE DE PEGAR UN EJEMPLO EN VB, PERO NO SE PUEDE PORQUE ESTE CAMPO DE TEXTO SOLAMENTE SOPORTA 10.000 Caracteres Y EL EJEMPLO MAS PEQUEÑO EL TAMAÑO ES MUCHO MAS GRANDE

[galexanderch]

Mi Nombre es Alexander Gavidia, desde Venezuela, soy TSU en Informática y me encuentro desarrollando un sistema que permita leer la huella, verificarla, guardarla en la base de datos y posteriormente consultarla. Ya tengo una libreria suministrada por el vendedor del producto y software, tambien unos demos con cada una de las funciones en Visual Basic. Vi el codigo y es sensillo, a las librerias se le pasan parametros. Hice una de los demos en Delphi pero me da erros de acces Violation.

Les anexo lo que me esta dando y que se lo reporte a la empresa pero tiene una semana que no responde:

Buenas tardes,



El presente es para informarle que ya se realizó la instalación del SoftWare SDK, se instalaron los tres demos, Acceso Simple al Lector, Acceso Directo al Lector y Funciones de Base de Datos. Realice el demo de acceso Simple al lector con el Lenguaje de programación delphi y se me esta presentando este error:

Access Violation at address 00934395


[img]cid:[email protected][/img]





La declaración de la librerias lo estoy realizando de la siguiente forma:

Implementation;

Function EnrollUser(Template, ImagePath, GuideMessage : String; HOwner, X1, Y1, X2, Y2, Core : Integer) : Integer;
Far; External 'UF100';



Function VerifyUser(Template : String; SecLevel, HOwner, X1, Y1, X2, Y2, Core : Integer) : Integer;
Far; External 'UF100';



Y el llamado de la misma de la siguiente forma:



procedure TForm1.Timer1Timer(Sender: TObject);
Var
RetornoValor, I : Integer;
Ruta : String;
begin
Ruta := 'C:\my documents\Sistemas\DELPHI5\Dll\Huellas';
Timer1.Interval := 0;
ultimo_mensaje_guia := Chr(32);
For I := 0 To 256 Do
ultimo_mensaje_guia := ultimo_mensaje_guia + Chr(32);



RetornoValor := EnrollUser(ultimo_template_capturado, Ruta, ultimo_mensaje_guia, Form1.Handle, 20, 20, 160, 160, 1);



If RetornoValor <> 0 Then
Timer1.Interval := 100;



LMensaje.Caption := ultimo_mensaje_guia;
LMensaje.Refresh;
end;



Cabe destacar que el Lector se activa, al emitir la luz de color rojo, pero al colocar el dedo se presenta el error

Si me pueden ayudar???

[delphi.com.ar]

Empezado por galexanderch

Código Delphi [-]
Function EnrollUser(Template, ImagePath, GuideMessage : String; HOwner, X1, Y1, X2, Y2, Core : Integer) : Integer;
Far; External 'UF100';

Function VerifyUser(Template : String; SecLevel, HOwner, X1, Y1, X2, Y2, Core : Integer) : Integer;
Far; External 'UF100';

Dudo que tengas que pasar un string y no un PChar... ¿Porqué no nos muestras la definición en VB?

[Sick boy]

Hola,

Yo tambien tengo esos SDKs, y mucho ojo, no es lo mismo lo que se instala en la maquina del usuario final que el SDK para programación.

Si no tienes los SDKs de programacion te faltaran cantidad de objetos y no podrás programar nada.

Por cierto, si que hay ejemplos en Delphi, pero estan en Delphi 6, y no compilan en Delphi 5.

Si alguien sabe como pasarlos a Delphi 5 yo los tengo y los puedo postear.

Saludos

[sometimedj]

mira pana estoy interesado en esos SDKs, tanto el de programacion como para el usuario final, me refiero a los de delphi 6, porq estoy desarrollando una aplicacion bajo delphi 6 que utiliza la huella digital como clave de acceso, de pana que si los tienes agradeceria tu ayuda... si puedes mandamelos a [email protected] o a [email protected] En serio agradeceria tu ayuda