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