• Jueves 19 de Abril de 2018, 13:54

Autor Tema:  VB 6.0 + DigitalPersona  (Leído 28 veces)

Jebux

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
VB 6.0 + DigitalPersona
« en: Lunes 16 de Abril de 2018, 23:59 »
0
Que tal, estoy trabajando con un lector digital persona en un antiguo sistema pero no logro tener el SDK adecuado ya que cuando llega a pedir la información

 op.Run marca "El Componente ActiveX no puede crear el objeto" habra alguna manera de migrarlo al SDK de onetouch.
Código: Visual Basic
  1. Dim WithEvents op As FPRegisterTemplate
  2. Dim cursample As Integer
  3. Dim register As FPTemplate
  4.  
  5.  
  6. Private Sub Save_and_Load_Verify_Form()
  7.         Dim bvariant As Variant
  8.         blob_write = Null
  9.         bvariant = Null
  10.        
  11.         If register Is Nothing Then
  12.           lblEvents.Caption = ""
  13.           MsgBox "Nada registrado !!"
  14.         Exit Sub
  15.         End If
  16.  
  17.         register.Export bvariant
  18.         blob_write = bvariant
  19.        
  20.         rs.AddNew
  21.         rs("cuenta") = eCuenta.Text
  22.         If cCliente.Text = "Titular" Then
  23.            rs("cliente") = 1
  24.         End If
  25.         If cCliente.Text = "Autorizado 1" Then
  26.            rs("cliente") = 2
  27.         End If
  28.         If cCliente.Text = "Autorizado 2" Then
  29.            rs("cliente") = 3
  30.         End If
  31.         If cCliente.Text = "Autorizado 3" Then
  32.            rs("cliente") = 4
  33.         End If
  34.         If cDedo.Text = "pulgar derecho" Then
  35.            rs("dedo") = 1
  36.         End If
  37.         If cDedo.Text = "indice derecho" Then
  38.            rs("dedo") = 2
  39.         End If
  40.         If cDedo.Text = "medio derecho" Then
  41.            rs("dedo") = 3
  42.         End If
  43.         If cDedo.Text = "anular derecho" Then
  44.            rs("dedo") = 4
  45.         End If
  46.         If cDedo.Text = "meñique derecho" Then
  47.            rs("dedo") = 5
  48.         End If
  49.         If cDedo.Text = "pulgar izquierdo" Then
  50.            rs("dedo") = 6
  51.         End If
  52.         If cDedo.Text = "indice izquierdo" Then
  53.            rs("dedo") = 7
  54.         End If
  55.         If cDedo.Text = "medio izquierdo" Then
  56.            rs("dedo") = 8
  57.         End If
  58.         If cDedo.Text = "anular izquierdo" Then
  59.            rs("dedo") = 9
  60.         End If
  61.         If cDedo.Text = "meñique izquierdo" Then
  62.            rs("dedo") = 10
  63.         End If
  64.                
  65.         rs("fp") = blob_write
  66.         rs.Update
  67.        
  68.         reslt = MsgBox("Desea capturar otra huella ! ? ", vbYesNo, "Otra Huella ?")
  69.         If reslt = 6 Then
  70.          Call start_cmd_Click
  71.         Else
  72.            Load frmVerify
  73.         End If
  74. End Sub
  75.  
  76. Private Sub Command1_Click()
  77.    Load frmVerify
  78. End Sub
  79.  
  80. Private Sub Command2_Click()
  81.  
  82. End Sub
  83.  
  84. Private Sub Form_Load()
  85.         If cnx Is Nothing And rs Is Nothing Then
  86.            Set cnx = New Connection
  87.            Set rs = New Recordset
  88.         End If
  89.         cnx.Open "CML", "usounds", "madljda"
  90.         rs.Open "select * from cre_fp order by cuenta, cliente", cnx, adOpenKeyset, adLockOptimistic
  91.        
  92.         cursample = 0
  93.        
  94.         Set op = New FPRegisterTemplate
  95.         For i = 0 To 3
  96.                 picSample(i).Picture = Nothing
  97.                 Label6(i).Visible = False
  98.         Next i
  99. End Sub
  100.  
  101. Private Sub op_Done(ByVal pTemplate As Object)
  102.        lblEvents.Caption = ""
  103.        Set register = Nothing
  104.        Set register = pTemplate
  105.        MsgBox "Proceso de Registro Listo !. Enseguida el sistema grabara los datos"
  106.        Call Save_and_Load_Verify_Form
  107. End Sub
  108.  
  109. Private Sub op_SampleQuality(ByVal Quality As DpSdkEngLib.AISampleQuality)
  110.       Select Case Quality
  111.                 Case AISampleQuality.Sq_Good
  112.                         lblQuality.Caption = "OK"
  113.                         cursample = cursample + 1
  114.                          Label6(cursample - 1).Visible = False
  115.                         If cursample <> 4 Then
  116.                             Label6(cursample).Visible = True
  117.                         End If
  118.                 Case AISampleQuality.Sq_LowContrast
  119.                         lblQuality.Caption = ""
  120.                 Case AISampleQuality.Sq_NoCentralRegion
  121.                         lblQuality.Caption = ""
  122.                 Case AISampleQuality.Sq_None
  123.                         lblQuality.Caption = ""
  124.                 Case AISampleQuality.Sq_NotEnoughFtr
  125.                         lblQuality.Caption = ""     '
  126.                Case AISampleQuality.Sq_TooDark
  127.                         lblQuality.Caption = ""
  128.                 Case AISampleQuality.Sq_TooLight
  129.                         lblQuality.Caption = ""
  130.                 Case AISampleQuality.Sq_TooNoisy
  131.                         lblQuality.Caption = ""
  132.         End Select
  133.         lblEvents.Caption = ""
  134. End Sub
  135.  
  136. Private Sub op_SampleReady(ByVal pSample As Object)
  137.         If cursample < 3 Then
  138.             Label3.Caption = "Si, Ponga su dedo en el Lector para Capturar Huella #" & Str(cursample + 1)
  139.             Label3.Refresh
  140.             Label8.Caption = ""
  141.             Label8.Refresh
  142.         Else
  143.             Me.MousePointer = 2
  144.         End If
  145.        
  146.         pSample.PictureOrientation = Or_Portrait
  147.         pSample.PictureWidth = picSample(cursample).Width / Screen.TwipsPerPixelX
  148.         pSample.PictureHeight = picSample(cursample).Height / Screen.TwipsPerPixelY
  149.         picSample(cursample).Picture = pSample.Picture
  150.         lblEvents.Caption = "Captura Lista !"
  151. End Sub
  152.  
  153. Private Sub picSample_Click(Index As Integer)
  154.         Dim i As Integer
  155.         cursample = 0
  156.         For i = 0 To 3
  157.          picSample(i).Picture = Nothing
  158.          Label6(i).Visible = False
  159.         Next i
  160.          Label6(cursample).Visible = True
  161.         Set op = Nothing
  162.         Set op = New FPRegisterTemplate
  163.         op.Run
  164.         lblQuality.Caption = ""
  165.         lblEvents.Caption = ""
  166.  
  167. End Sub
  168.  
  169. Private Sub start_cmd_Click()
  170.          eCuenta.Refresh
  171.          If eCuenta.Text = "" Then
  172.              MsgBox "Por favor capture primero # Cuenta, Cliente y Dedo"
  173.              Exit Sub
  174.          End If
  175.         picSample_Click (0)
  176. End Sub
  177.  
  178.