Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Delphi ActiveX组件中的验证指纹(DigitalPersona-指纹)_Delphi_Fingerprint - Fatal编程技术网

Delphi ActiveX组件中的验证指纹(DigitalPersona-指纹)

Delphi ActiveX组件中的验证指纹(DigitalPersona-指纹),delphi,fingerprint,Delphi,Fingerprint,如何在Delphi中使用DPFPVerification类,因为即使已经导入activeX控件,它也会成为错误“未声明标识符”(对于Windows控件1.0,它将安装类TDPFPVerificationControl和TDPPFEnrollmentControl) 实际上是用C++和Visual Basic工作,但我需要用Delphi 7。< /P>使用它。 步骤如下: 安装一键式DigitalPersona SDK 从导入ActiveX控件 德尔福7 VISUAL BASIC代码: /

如何在Delphi中使用DPFPVerification类,因为即使已经导入activeX控件,它也会成为错误“未声明标识符”(对于Windows控件1.0,它将安装类TDPFPVerificationControl和TDPPFEnrollmentControl)

<>实际上是用C++和Visual Basic工作,但我需要用Delphi 7。< /P>使用它。 步骤如下:

  • 安装一键式DigitalPersona SDK
  • 从导入ActiveX控件 德尔福7
  • VISUAL BASIC代码:

    // 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 
    
    德尔福代码:

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleCtrls, DPFPCtlXLib_TLB;
    
    var
      frm_verification: Tfrm_verification;
      Ver:DPFPVerification; << ERROR : 'undeclare identifier DPFPVerification'
    
    使用
    窗口、消息、系统工具、变体、类、图形、控件、窗体、,
    对话框、OLECTRL、DPFPCtlXLib_TLB;
    变量
    frm_验证:Tfrm_验证;
    
    版本:DPFP验证;您能否提供您的Delphi源代码以查看您的导入哪里出错?能否将活动组件导入Delphi环境?你能把它插入你的应用程序吗?您在可视表单编辑器中看到它了吗?你能从代码中实例化它吗?我已经在vClenEnvironment Options | Library Path | C:\Program Files\DigitalPersona\One Touch SDK\COM ActiveXY的activeX页面中添加了activeX控件的屏幕截图。你的表单有一个变量TDPFPVericationControl。这是使用AFAICT的变量。否,DPFPVerification和DPFPVerivicationControl是不同的类。请参见上面的Visual Basic代码。