estoy tratando de usar un servicio WEB via MSSoap y Harbour, y tengo todo bastante cocinado con excepción de un detalle: autenticación.
El código es el que sigue, pero me falta la autenticación porque no se como poner el usuario y la contraseña, no encuentro el equivalente de las instrucciones de VB
el codigo
- Code: Select all Expand view
TRY
oSoap := CreateObject( "MSSOAP.SoapClient30" )
oSoap:msSoapInit( "http://localhost:8089/open/services/AbsenceFileService?wsdl" )
// oSoap:msSoapInit( "http://user:passw@localhost:8089/open/services/AbsenceFileService?wsdl" )
// si trato de poner el usuario en la URL, falla la funcion msSoapInit
oSoap:ClientProperty("ServerHTTPRequest")
// en VBA el usuario y la contraseña se ponen así
// oSoap:ConnectorProperty("AuthUser" ) = 'user'
// oSoap:ConnectorProperty("AuthPassword") = 'passwd'
// Y es lo que no he sabido reemplazar con Harbour
// Cosas que he probado:
oSoap:ConnectorProperty:AuthUser:= 'user'
// Argument Error
oSoap:ConnectorProperty:AuthUser( 'user' )
// Argument Error
oSoap:ConnectorProperty("AuthUser", 'user' )
// Argument Error
oSoap:ConnectorProperty("AuthUser") := 'user'
// No compila, invalid lValue
oSoap:ConnectorProperty("AuthUser"):Value := 'user'
// No exported variable
oSoap:AuthUser:= 'user'
// No exported variable
MsgInfo( ValType( oSoap:ConnectorProperty("AuthUser") ) ) // -> '' en blanco, no tiene tipo, ni siquiera 'U'
oSoap:ConnectorProperty("AuthPassword"):Value := 'passwd'
// Not exported variable
CATCH oError
MsgStop( oError )
Quit
END TRY
La cosa es esa: ¿como se escribe el equivalente del código VB "oSoap:ConnectorProperty("AuthUser" ) = 'user'" ?
Hay alguna otra forma de usar SOAP ?
He buscado en el foro pero no he encontrado nada relacionado con autenticación.