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
buzonjmartial
Posts: 56
Joined: Fri Apr 10, 2009 11:02 pm

Problema Tinternet

Postby buzonjmartial » Thu Oct 24, 2019 12:46 pm

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:

Code: Select all

 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:

Code: Select all

   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
User avatar
ignacio
Site Admin
Posts: 8562
Joined: Mon Apr 06, 2015 8:00 pm
Location: Madrid, Spain
Contact:

Re: Problema Tinternet

Postby ignacio » Thu Oct 24, 2019 3:58 pm

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/windows/win32/wininet/about-wininet

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

Return to “Spanish”