Huella Digital

[Sivia]

Por ejemplo, en V6:

Private Sub Capture_OnComplete(ByVal ReaderSerNum As String, ByVal Sample As Object)
Dim Feadback As DPFPCaptureFeedbackEnum
Dim Res As DPFPVerificationResult
Dim Templ As Object
ReportStatus ("The fingerprint was captured.")
' Draw fingerprint image.
DrawPicture ConvertSample.ConvertToPicture(Sample)
' Process sample and create feature set for purpose of verification.
Feedback = CreateFtrs.CreateFeatureSet(Sample, DataPurposeVerification)
' Quality of sample is not good enough to produce feature set.
If Feadback = CaptureFeedbackGood Then
Prompt.Caption = "Touch the fingerprint reader with a different finger."
Set Templ = MainFrame.GetTemplate
If Templ Is Nothing Then
MsgBox "You must create a fingerprint template before you can perform verification."
Else
' Compare feature set with template.
Set Res = Verify.Verify(CreateFtrs.FeatureSet, Templ)
' Show results of comparison.
FAR.Caption = Res.FARAchieved
If Res.Verified = True Then
ReportStatus ("The fingerprint was verified.")
Else
ReportStatus ("The fingerprint was not verified.")
End If
End If
End If
End Sub

Gracias de nuevo;

Silvia

[Ñuño Martínez]

Bueno, creo que me faltan datos, como la declaración precisa de cada elemento en Object Pascal, pero así, a bote pronto, veo problemas en los IF, ya que si lo traducimos directamente estaremos comparando referencias, no objetos. Debería existir un método que permita compararlos.

También veo problemas en las asignaciones. Desconozco por completo cómo asigna los objetos Visual Basic, pero sospecho que ese "Set Res = Verify.Verify(CreateFtrs.FeatureSet, Templ)" asigna el objeto devuelto por "Verify.Verify (..)" a "Res". La pregunta es, ¿el objeto devuelto sigue existiendo tras retornarlo? Puede parecer una pregunta sin sentido, pero ya decidí en su momento no volver a programar en C++ precisamente por eso, porque a veces devolvías un objeto para obtener su referencia, el objeto dejaba de existir (por ejemplo, si por un descuido devolvías una referencia a un objeto automático) y te dejaba con una violación de segmento la mar de guapa y difícil de rastrear. Como dices que se trata de un componente ActiveX es probable que esto suceda, en cuyo caso deberías clonar el objeto devuelto y no asignar su referencia, que tal vez sea el cometido de "SET" en VB.

No sé yo si esto te ha ayudado en algo o si te he liado más.

[Sivia]

Pués mira, estamos a punto de probar con otro lector de huella, pero cual ?. A este ya no sabemos que le pasa. Tiene un ejemplo en D6 pero los componentes active X no se corresponden con la demo.

En un mensaje anterior conmentabas que trabajaste con un lector de huella que no tenías que programar nada. Cual era ?, Puedes pasarme información ?.

Gracias de nuevo.

Silvia

[Ñuño Martínez]

Por desgracia eso fue hace al menos cinco años y ahora trabajo en otra empresa, así que no lo recuerdo. Lo único que sé es que lo enchufabas al USB, instalabas un controlador y él solito te "traducía" la información de la huella en entradas por teclado, y así podías capturarla.