Acceso a una WebService con SSL
 

Hola.

De nuevo pido vuestra ayuda con un problema que ocurre al conectar a un Webservice con SSL con THTTPRio.

Ejecutando desde un WindowsXP no da ningún error y el Webservice devuelve los datos que se le piden. Pero al ejecutarlo desde Windows7 aparece el siguiente error " - URL:https://lexnet3pruebas.justicia.es/services/Login - SOAPAction:""".

Antes del guión debería aparecer el motivo del error, pero aparece vacío. Además ejecuto el programa como administrador, sin el Firewall de Windows, sin el antivirus y con la cuenta de usuario en "no notificarme nunca" y como administrador.

Si alguien ha tenido el mismo problema o intuye alguna solución se lo agradecería ya que estoy actualmente parado con este proyecto.

Gracias.

Adolfo Bonis
Barcelona

si puedes poner el codigo fuente para probarlo

tambien '¿que delphi usas. delphi 7, delphi 2006 delphi 2010, XE, XE2?
¿o usas c++builder¡?
¿que version de ssl usas osea la DLL es la de indy o de donde la conseguiste?

Hola.

Estoy usando Delphi 2007. Para acceder con certificado (SSL) utiizo la libreria capicom.ddl con el siguiente código en el Evento HTTPRIOLoginHTTPWebNode1BeforePost del componente THTTPRIO.

Código Delphi [-]
procedure TfrAsuLexNet.HTTPRIOLoginHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  Store: IStore;
  Certs: iCertificates;
  Cert: ICertificate2;
  CertContext: ICertContext;
  PCertContext: PCCERT_CONTEXT;
begin
  Store := CoStore.Create;
  Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY',CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);
  Certs := Store.Certificates as ICertificates2;
  if Certs.Count > 0 then begin
    Cert := IInterface(Certs.Item[IndexCertif]) as ICertificate2;
    CertContext := Cert as ICertContext;
    CertContext.Get_CertContext(Integer(PCertContext));
    if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) = False then
      ShowMessage( 'No se ha podido adjuntar el certificado digital.');
  end;

Para acceder al Webservice envío un XML con el siguiente código

Código Delphi [-]
  try
  (HTTPRIOLogin as LoginPortType).Login('');
  except
    on E: Exception do begin
    Mensaje(E.Message);
    Result := False;
    end;
  end;

El problema que tengo es que en Windows XP funciona a la perfección, pero no así en Windows 7 que da el siguiente error :

" - URL:https://lexnet3pruebas.justicia.es/services/Login - SOAPAction:"""

Adolfo Bonis
Barcelona

Hola.

Sigo investigando este asunto que me trae desesperado.

He encontrado en internet la pagina www.charlesproxy.com con la aplicación Charles.exe que monitoriza las comunicaciones de entrada y salida por internet, y una vez en funcionamiento veo que se envia correctamente la solicitud al webservice y también la respuesta del webservice al programa.
Pero, el componente THTTORio no lo procesa.

Como que el componente THTTPRio utiliza la librería winIne.dll se me ocurre que el error venga de esta librería en Windows 7.

¿Alguien tiene noticias de estos errores?

Gracias.
Adolfo Bonis
Barcelona

windows 7 32 bits o windows 7 64 bits?

puedes subir el exe. yo tengo windows 7 64 bits.

no se si uses eurekalog. sirve bastante para estor problemas de depuracion

Por fin he podido resolver el error.

La causa es la configuración de "Opciones de Internet" del Panel de Control.

En "Opciones avanzadas" apartado "Seguridad" debe desmarcarse la línea siguiente: "Comprobar si se revocó el certificado del servidor*"

Y ya está, parece que windows 7 trae esta opción marcada por defecto y las versiones anteriores no.

Saludos.

Adolfo Bonis
Barcelona