Ayuda Lector de Huellas DigitalPersona

[benjaminao]

Ups disculpen ya pude descargar el archivo

[tutuk]

Hola estoy enredado con un Digital Persona 4500 fingerprint reader y llegue a este post, descargue el ejemplo del amigo KingOfDragons pero cuando quiero hacerlo funcionar no me reconoce el widebytesof, busque pero aparentemente no existe esto en delphi 7. Existe alguna manera de hacer lo mismo de otra forma?.

copio parte del codigo en donde esta la sentencia

Código Delphi [-]
function TVerify.VerifyString(const pFeatureSet: IDispatch;
  const Template: string): boolean;
var
  u: string;
begin
  regTemplate1 := DPFPShrXLib_TLB.CoDPFPTemplate.Create();
  //Se desecripta el template de la base de datos
  u := Decrypt(Template);
  regTemplate1.Deserialize(WideBytesOf(u));
  //Se compara con el que fue tomado por el lector
  result := VerifyTemplate(pFeatureSet, regTemplate1);    
end;

espero me puedan ayudar y desde ya gracias por su tiempo.
Santiago

[Ñuño Martínez]

Creo que encontré un sustituto para esa función aquí. Espero que sea lo que buscas.

[tutuk]

hola Ñuño Martínez: te agradezco tu interes pero ya la habia visto a esa pagina pero cuando hago correr el programa me da "Tipo de Variable Incorrecto" asi que supongo que WideBytes no hara exactamente lo mismo que WideBytesOf.

Saludos

[Ñuño Martínez]

El problema es que no sé qué es lo que se espera que haga "WideBytesOf". De hecho, el parche que he enlazado me parece confuso (aunque es cierto que no lo he mirado mucho).

Sólo puedo desearte suerte.

[KingOfDragons]

Buenas Tardes a todos, que curioso que no te funcione yo me base en un ejemplo echo en delphi 7 si incluiste el SysUtils????

Saludos!!

[KingOfDragons]

Si no se quieren complicar mucho la vida en ponerlo en una base de datos de Ms Sql es mucho mas facil el manejo de la informacion en MySql quitamos tanto relajo y solo usamos las siguientes lineas:

Enroll

Código Delphi [-]

     MyQuery1.Params.ParamByName('Template').Value:=regTemplate.Serialize;

Extraer

Código Delphi [-]
     RegTemplate.template.Deserialize(MyQuery3.FieldByName('Template').Value)

Comparacion

Código Delphi [-]
    if DPFPEngXLib_TLB.DPFPVerificationResult(verifier.Verify(pFeatureSet,
        regTemplate.template)).Verified then

El tipo de campo que tienes que usar en MySql es mediumblob, asi como los extrae el SDK los metes directo a la base de datos y de la misma forma para comparar espero y les sirva.

P.d. El componente MyQuery1 realiza la coneccion directa sin manejar el ODBC es muy bueno y estable lo pueden encontrar en esta pagina

http://www.devart.com/

Saludos!!

[Belisario]

Hola, el link no funciona, estoy tratando de utilizar un 4500 con delphi 7 y sql server, el fabricante ya no provee de manera gratuita el dsk, cualquier ayuda me seria de mucha utilidad, gracias.

[juantonote]

Hola, alguien tiene el SDK para el lector UareU 4000 o 4500 para Delphi 7? tengo una aplicación que solo quiero que tome al huella y la meta en una base de datos que hice en mysql.

[MAXIUM]

Hola, ¿haz logrado resolver el problema?

Ocurre una violación al deserializar. El parámetro de entrada es del tipo RawData: OleVariant, pero por más que intento que acepte los datos, me arroja error.