ValidaCFD

Primero borra el libeay32.dll que te envie con las rutinas de la factura electronica.

Enseguida entra en esta pagina http://www.slproweb.com/products/Win32OpenSSL.html y descarga el OpenSSL que corresponda a tu sistema operativo, especialmente 32 o 64 bits.

Y eso es todo, haz la prueba en la compu que te marca error y me avisas si esto lo soluciono.

dado escribió:Primero borra el libeay32.dll que te envie con las rutinas de la factura electronica.

Enseguida entra en esta pagina http://www.slproweb.com/products/Win32OpenSSL.html y descarga el OpenSSL que corresponda a tu sistema operativo, especialmente 32 o 64 bits.

Y eso es todo, haz la prueba en la compu que te marca error y me avisas si esto lo soluciono.

Muchas gracias, lo voy a probar y al rato les comento.

EJSG escribió: Muchas gracias, lo voy a probar y al rato les comento.

Pues con la novedad que antes de que instalara el OpenSSL, ya jalo. No se si con los cuantiosos reseteos del equipo despues de la actualizacion al SP3 quedo listo. Les prometo que la proxima vez que me sucesa esto voy a probar esta solucion antes de actualizar al SP3. Dado, nuevamente gracias.

Que tal,

Bueno, yo ya probe con todas las posible soluciones (instalar SP3, reinstalar OpenSSL, borrar los dll's) y me sigue ocurriendo el mismo error.
Hice un debug procedimiento x procedimiento, linea x linea y llegando a la funcion function CalculaSello(), el error se genera en esta linea:
Cheque todos los valores de las variables, y todas parecen estar correctas, excepto "key" donde Esto podria ser la causa del error?

Saludos

alex_xxv escribió:Que tal,

Bueno, yo ya probe con todas las posible soluciones (instalar SP3, reinstalar OpenSSL, borrar los dll's) y me sigue ocurriendo el mismo error.
Hice un debug procedimiento x procedimiento, linea x linea y llegando a la funcion function CalculaSello(), el error se genera en esta linea:

Código: Seleccionar todo

EVP_SignFinal(@mdctx,@outbuf,Len,key);

Cheque todos los valores de las variables, y todas parecen estar correctas, excepto "key" donde

Código: Seleccionar todo

key = nil

Esto podria ser la causa del error?

Saludos

No, el key=nil; debe llevarlo, ese no es el error.

Estas usando Delphi V2009 o V2010 o XE?

Tengo Delphi XE...

Ya antes lo habia corrido sin ningun problema, pero de la nada dejó de funcionar.

alex_xxv escribió:Tengo Delphi XE...

Ya antes lo habia corrido sin ningun problema, pero de la nada dejó de funcionar.

Las rutinas estan escritas para Delphi 7, con algunos cambios pueden funcionar en 2009 o 2010 pero el misterio de porque "de la nada" dejo de funcionar en XE es imposible de resolver.

Ah ok, bueno, lo acabo de probar en Delphi 7 y ahi si funciono sin ningun problema. Supongo que no es compatible con la version de Delphi XE aunque casi estoy seguro que lo habia probado sin ningun problema.

Gracias y saludos!