ValidaCFD

Una pregunta, estoy programando un sistema con tu conector pero no puedo hacer que funcione la funcion de validación de llave privada

Me puedes poner un ejemplo de como utilizarlo? porque guiandome de la sintaxis que incluye no me funciona o quizas estoy omitiendo algo.

Saludos

afgtz2011 escribió:Una pregunta, estoy programando un sistema con tu conector pero no puedo hacer que funcione la funcion de validación de llave privada

Me puedes poner un ejemplo de como utilizarlo? porque guiandome de la sintaxis que incluye no me funciona o quizas estoy omitiendo algo.

Saludos

Te refieres a la libreria CFDLib.dll ?

Si es asi, no tengo otro ejemplo mas que el que viene en el DEMO de la descarga, ese me lo proporciono un forista.

Si pudieras detallar el error talvez pueda ayudarte

Si, estoy utilizando tu libereria Dll, y cuando trato de validad la llave con la funcion simplemente no recibo ninguna respuesta, se brinca en la comparacion

Ejemplo.

Dim Clavellave As String

With cdlgCertKey
.FileName = ""
.Filter = "Llaves (*.key)|*.key"
.DialogTitle = "Especifique la llave"
.ShowOpen
If (.FileName = "") Then Exit Sub
txtLlavePrivada.Text = .FileName
txtLlavePrivada.SelStart = Len(txtLlavePrivada.Text)
End With

IntentaOtra:

Clavellave = InputBox("Ingrese la clave de la llave.", "Llave de Certificado")

If PruebaClaveDeLlavePrivada(cdlgCertKey.FileName, Clavellave) = False Then

If MsgBox("La clave ingresada no es la correcta, ¿intentar nuevamente?", vbYesNo + vbQuestion, "Alta de Llave de Certificado") = vbYes Then
GoTo IntentaOtra
End If

Exit Sub
End If

MsgBox "Llave privada correcta", vbInformation

End Sub

Justamente acabo de responder a un programador de Clarion por algo similar.

Parece que lo que sucede es que el tipo de dato boolean de Pascal no es muy "compatible"

Intenta definir la funcion de Pruebadellave con otro tipo de dato, intenta como byte, como integer, como word, como boolean, alguno de esos datos debe ser compatible.

cuando lo definas como byte, integer, etc checa por el valor cero o el valor uno.

Me avisas con que tipo de dato te funciono.

Gracias por el tip

Si me funcionó utilizando el tipo Byte, efectivamente me manda un 0 o un 1 acorde a la respuesta

Ya lo probe y funciona bien bajo Visual Basic 6

Saludos y gracias