title: Verification Fingerprint (DigitalPersona - FingerPrint) in Delphi ActiveX component
body: <p>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)</p>
  
  <p>Actually this working with C++ and Visual Basic, but I need to use it using Delphi 7.</p>
  
  <p>Steps are :</p>
  
  <ol>
  <li>Install One Touch DigitalPersona SDK, </li>
  <li>Import ActiveX Control from
  Delphi 7</li>
  </ol>
  
  <p><img src="https://i.stack.imgur.com/r8kdu.jpg" alt="DPFPVerificationControl"></p>
  
  <p><img src="https://i.stack.imgur.com/FPLIQ.jpg" alt="DPFPEnrollmentControl"></p>
  
  <p><a href="http://www.4shared.com/get/MGW5EHxg/DPOTWSDK161.html" rel="nofollow noreferrer">DigitalPersona One Touch SDK</a></p>
  
  <p><a href="http://www.google.com/url?q=http://www.digitalpersona.com/uploadedFiles/Support/Reference_Material/Guides/SDK_Guides/One-Touch-for-Windows-SDK-COM-ActiveX-Developer-Guide.pdf&amp;sa=U&amp;ei=Y4YIUtmzE8uUrAfP24HQDQ&amp;ved=0CBoQFjAA&amp;usg=AFQjCNFzTnpY8n17rVrLsX5Rl_GC8H4qyg" rel="nofollow noreferrer">Manual Book (in VB &amp; C++ ONLY, no Delphi Codes)</a></p>
  
  <p>VISUAL BASIC codes :</p>
  
  <pre><code>// 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 
  </code></pre>
  
  <p>DELPHI codes :</p>
  
  <pre><code>uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, OleCtrls, DPFPCtlXLib_TLB;
  
  var
    frm_verification: Tfrm_verification;
    Ver:DPFPVerification; &lt;&lt; ERROR : 'undeclare identifier DPFPVerification'
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/ujTar.jpg" alt="Two DigitalPersona Class"></p>
  
  <p><a href="http://www.mediafire.com/download/j942q3wwye7i56g/DPFPCtlXLib_TLB.pas" rel="nofollow noreferrer">DPFPCtlXLib_TLB.pas</a></p>