How to use DPFPVerification class in Delphi, because it become error 'undeclare identifier' even if already import activeX control (DigitalPersona One Touch for Windows Control 1.0, it will install class TDPFPVerificationControl and TDPPFEnrollmentControl)
Actually this working with C++ and Visual Basic, but I need to use it using Delphi 7.
Steps are :
- Install One Touch DigitalPersona SDK,
- Import ActiveX Control from Delphi 7
Manual Book (in VB & C++ ONLY, no Delphi Codes)
VISUAL BASIC codes :
// NOT ERROR, but error in Delphi ( var Ver:DPFPVerification; )
Dim Ver As DPFPVerification
Private Sub Form_Load()
' Create DPFPVerification object.
Set Ver = New DPFPVerification
End Sub
Private Sub DPFPVerificationControl1_OnComplete
(ByVal Ftrs As Object, ByVal Stat As Object)
Dim Res As Object
Dim Templ As Object
' Compare feature set with all stored templates.
For i = 0 To 10
' Get template from storage.
Set Templ = MainForm.GetTemplate(i)
If Templ Is Nothing Then
Else
' Compare feature set with particular template.
Set Res = Ver.Verify(Ftrs, Templ)
' If match, exit from loop.
If Res.Verified = True Then Exit For
End If
Next
If Res Is Nothing Then
Stat.Status = EventHandlerStatusFailure
Exit Sub
ElseIf Res.Verified = False Then
' If non-match, notify caller.
Stat.Status = EventHandlerStatusFailure
MainForm.Verified.Value = 0
Else
MainForm.Verified.Value = 1
End If
' Show false accept rate.
MainForm.FAR.Caption = Res.FARAchieved
End Sub
DELPHI codes :
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, DPFPCtlXLib_TLB;
var
frm_verification: Tfrm_verification;
Ver:DPFPVerification; << ERROR : 'undeclare identifier DPFPVerification'