error no OPENSSL_Applink

[fcobanda]

Hola Dado.

me ocurre un error bien raro, o algo me falta por incluir en alguna parte
desarrolle una DLL, con parte del codigo tuyo, en el equipo que desarrolle y que hice pruebas todo funciona muy bien, el problema viene cuando lo monto en un servidor Win2003 server para publicar la aplicacion en citrix, tengo una BD con FireBird 2.5, tengo 3 folders con las distintas bases de datos, una para cada negocio que se conecta por citrix.

Lo extraño es que para una sola base de datos todo va muy bien, excepto para las otras 2, que me truena con el siguiente error:

OPENSSL_Uplink(02F9B0|0,OC): no OPENSSL_Applink

inclui parte tuya en el modulo de ABRE CERTIFICADO de la forma testunit.pas, para poder checar este tipo de error. ya debugee donde me truena.

1.- procedimiento ButtonClick. //unidad testunit
2. el la instruccion

Código: Seleccionar todo

"CERTIFICADO.LOADFROMFILE(CERPATH.TEXT)

// "
3. en el procedimiento

tx509Certificate.LoadFromFile

// OpenSSLUtils
4. en la instruccion

Código: Seleccionar todo

"fCertificate = d2i_X509_bio(certfile. nil) 

// "
4. a) Devuelve un Nil en fCertificate // Aqui esta el problema, porque en la parte que funciona no devuele Nil
5. AQUI ES DODE TRUENA, ya que enconding es auto y fcertificate es nil

Código: Seleccionar todo

(if enconding = auto) and (fcertificate = nil) then BIO_reset(certfile)

te aclaro que el nombre del archivo lo pasa bien Ej. "\\SERVER\FOLDER_DE_BD1\nombre_archivo_certificado.CER"
tambien revise la variable certfile regresa un valor de la instrucion

Código: Seleccionar todo

certfile := BIO_new(BIO_s_file()); 

Ojala me puedar ayudar porque ya me perdi con este error

Gracias

[fcobanda]

me falto tambien decir que las librerias libeay32.dll y ssleay32.dll, las tengo dentro de la carpeta donde esta el .exe

[Dado]

Copia libeay32.dll y a la segunda copia renombrala como cfdlibeay32.dll

Y en la unidad libeay32.pas cambia la linea

Código: Seleccionar todo

const
  LIBEAY_DLL_NAME = 'cfdlibeay32.dll';

Pero deja LAS DOS DLL la libeay32.dll y cfdlibeay32.dll

Me avisas si eso funciona

[fcobanda]

hice las modificaciones que me aconsejaste y no funciono, siguio todo igual

[Dado]

OK, entonces descartamos problemas con la version de libeay32.dll, aveces hay varias versiones del libeay32.dll en la misma computadora y causa problemas, pero al direccionar *exactamente* a cfdlibeay32.dll descartamos eso.

Dices que falla cuando tratas de abrir un certificado?

Intenta usar el OpenSSL.exe directamente, con linea de comando y reproduce la instruccion que abre el certificado, hazlo de tal forma que simules las 3 instancias de cada una de tu base de datos :

OpenSSL>x509 -inform DER -in tucertificado.cer

Te debe mostrar el certificado en base64, abre 3 instancias del OpenSSL y en cada una trata de abrir cada uno de los certificados

[fcobanda]

si me mostro los 3 certificados.

Otra cosa rara que note ahorita que estoy probando, por casualidad le di el boton para checar la llave archivo .KEY, cerre la ventana, la volvi a abrir y ya me fui a la opcion del certificado y me funciono.

o sea que si entro directamente a validar el certificado no funciona y si le doy como segunda opcion si me funciona.