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