Hello,
I spent a lot of time but I couldn't fix it using the TIP librarie
I finally implemented it using the object MSXML2.ServerXMLHTTP.6.0
I attach an example that works correctly (the password is not valid but you will see that the web service responds)
regards
José Manuel Rodríguez
// ======================================================================= FUNCTION WSPreregistroEnvios()
Local oHttp
Local cLocation := "
https://preregistroenviospre.correos.es/preregistroenvios"
Local cUser := "wusutest:password"
Local cAuthorization := hb_base64( cUser, Len( cUser ) )
Local cXml := MemoRead( "./ValidarDatos.xml" )
LOCAL cResponse
TRY
oHttp := CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
CATCH
msginfo( "Error de creacion" )
END
oHttp:Open( "POST", cLocation, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/soap+xml" )
oHttp:SetRequestHeader( "Authorization", "Basic " + cAuthorization )
oHttp:setRequestHeader( "User-Agent", "EjecutandoWS" )
oHttp:Send( cXml )
cResponse := oHttp:ResponseText
msginfo( cResponse )
msginfo( Hb_ATokens( oHttp:getAllResponseHeaders(), CRLF ) )
return nil
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)