In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Problema Tinternet

Foro de Xailer profesional en español
Responder
buzonjmartial
Mensajes: 100
Registrado: Vie Abr 10, 2009 11:02 pm

Problema Tinternet

Mensaje por buzonjmartial »

Buenos días,

Necesito conectarme a un web service, y necesito que no de error de certificado inválido.

Eso se consigue pasándole un Flag, en mi caso sería SECURITY_SET_MASK o SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS.

Pero aunque se la envíe no funciona:

Código: Seleccionar todo

 WITH OBJECT TInternet():New()
            :nPort := INTERNET_DEFAULT_HTTPS_PORT
            lOpen := :Open() 

            IF lOpen
               hData := :OpenURL( cUrl,SECURITY_SET_MASK)    // DA ERROR DE CERTIFICADO INVALIDO
...................


He conseguido que funcione "a pelo", para comprobar que el servidor funcionaba bien, de esta manera:

Código: Seleccionar todo

   oHttp := CreateObject( "MSXML2.ServerXMLHTTP.3.0" )
   
   oHttp:setOption( 2 , SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS )
   
   oHttp:Open( "GET", cUrl, .F. )

Pero me gustaría usar la clase Tinternet para poder hacer otras cosas más fáciles.

¿ Como puedo usar estos flags y que funcionen con TInternet ?
Un Saludo,
Joaquín Martínez
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: Problema Tinternet

Mensaje por ignacio »

Buenos días,

La clase TInternet se basa en el API Wininet de Microsoft. Nuestra clase TInternet ofrece una funcionalidad básica. Si necesita mayor potencia le sugerimos que consulte la documentación que MicroSoft ofrece al respecto:

https://docs.microsoft.com/en-us/window ... ut-wininet

Un saludo
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder