D
dilesc
Guest
Si, registré los certificados pero sigo obteniendo el mismo error. "... Es probable que si se trata de una versión "vieja" de OpenEdge (para los estándares internacionales me refiero), tengas que especificar el protocolo y cifrado a utilizar para la conexión ...." --> Con respecto a esto también probé de la siguiente manera (pero no estoy seguro de si es la forma correcta): -- English Version -- Yes, I registered the certificates but I still get the same error. "... Es probable que si se trata de una versión "vieja" de OpenEdge (para los estándares internacionales me refiero), tengas que especificar el protocolo y cifrado a utilizar para la conexión ...." --> I also tried it in the following way (but I'm not sure if it's the correct way): DEFINE VARIABLE hSocket AS HANDLE NO-UNDO. DEFINE VARIABLE cPort AS CHARACTER NO-UNDO INITIAL "443". DEFINE VARIABLE lStatus AS LOGICAL NO-UNDO. DEFINE VARIABLE cSocketString AS CHARACTER NO-UNDO. DEFINE VARIABLE cHost AS CHARACTER NO-UNDO INITIAL "productores.segurossura.com.ar". DEFINE VARIABLE cProtocols AS CHARACTER NO-UNDO INITIAL "TLSv1". DEFINE VARIABLE cCiphers AS CHARACTER NO-UNDO INITIAL "AES128-SHA,RC4-SHA,DES-CBC3-SHA,DES-CBC-SHA,EXP-DES-CBC-SHA". ASSIGN cSocketString = "-H " + cHost + " -S " + cPort + " -ssl -sslprotocols " + cProtocols + " -sslciphers " + cCiphers. CREATE SOCKET hSocket. ASSIGN lStatus = hSocket:CONNECT(cSocketString) NO-ERROR. IF lStatus THEN MESSAGE "Socket connection OK!" VIEW-AS ALERT-BOX. ELSE MESSAGE "Socket connection FAILED!" SKIP ERROR-STATUS:GET-MESSAGE(1) VIEW-AS ALERT-BOX. hSocket
ISCONNECT() NO-ERROR. DELETE OBJECT hSocket. Pero sigue sin funcionar. -- English Version -- But it still does not work.
Continue reading...
ISCONNECT() NO-ERROR. DELETE OBJECT hSocket. Pero sigue sin funcionar. -- English Version -- But it still does not work.Continue reading...