Problema Tinternet
Publicado: Jue 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:
...................
He conseguido que funcione "a pelo", para comprobar que el servidor funcionaba bien, de esta manera:
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 ?
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 ?