Eliminar ciertos elementos del encabezado, creado por WSE 3.0
Pregunta
Estoy trabajando con un WSDL que agrega automáticamente elementos adicionales en el XML. Para que cumpla con un servicio web externo que no use estos elementos. Vea la siguiente imagen:http://img406.imageshack.us/img406/1307/differencese.pngLeft = Los elementos rojos necesitan eliminar - derecho = lo que necesito para emitir
He adjuntado el código que está creando mi sobre y mi carga útil.
Dim content As myProxy.Content = New myProxy.Content
Dim inputguid As String = Guid.NewGuid.ToString
Dim service As myProxy.WebService = New myProxy.WebService
Dim str As New System.Xml.XmlDocument
Dim payload As myProxy.Payload = New myProxy.Payload
'payload
str.LoadXml(xmlstr)
'manifest
service.payloadManifest = New myProxy.PayloadManifest
service.payloadManifest.manifest = New myProxy.Manifest() {New myProxy.Manifest}
service.payloadManifest.manifest(0).element = "GetVehicleServiceHistory"
service.payloadManifest.manifest(0).namespaceURI = ""
service.payloadManifest.manifest(0).contentID = "Content0"
service.payloadManifest.manifest(0).version = "2.01"
service.SoapVersion = SoapProtocolVersion.Soap11
service.UserAgent = "Jakarta Commons-HttpClient/3.1"
Dim usertoken As New Microsoft.Web.Services3.Security.Tokens.UsernameToken("userid", "password", Microsoft.Web.Services3.Security.Tokens.PasswordOption.SendPlainText)
service.RequestSoapContext.Security.Tokens.Add(usertoken)
service.RequestSoapContext.Security.MustUnderstand = False
payload.content = New myProxy.Content() {content}
ReDim Preserve payload.content(0)
payload.content(0).Any = str.DocumentElement
payload.content(0).id = "Content0"
service.Url = "http://localhost:8080"
service.ProcessMessage(payload)
Cualquier ayuda sería muy apreciada.
Miguel
Solución 2
Dim content As blah.Content = New blah.Content
Dim inputguid As String = Guid.NewGuid.ToString
Dim service As blah.WebService = New blah.WebService
Dim str As New System.Xml.XmlDocument
Dim payload As blah.Payload = New blah.Payload
'payload
str.LoadXml(xmlstr)
'manifest
service.payloadManifest = New blah.PayloadManifest
service.payloadManifest.manifest = New blah.Manifest() {New blah.Manifest}
service.payloadManifest.manifest(0).element = "GetVehicleServiceHistory"
service.payloadManifest.manifest(0).namespaceURI = ""
service.payloadManifest.manifest(0).contentID = "Content0"
service.payloadManifest.manifest(0).version = "2.01"
service.SoapVersion = SoapProtocolVersion.Soap11
service.UserAgent = "Jakarta Commons-HttpClient/3.1"
payload.content = New blah.Content() {content}
ReDim Preserve payload.content(0)
payload.content(0).Any = str.DocumentElement
payload.content(0).id = "Content0"
service.ProcessMessage(payload)
Noté que eliminé la codificación WSE:-
Dentro de la referencia web de referencia.vb, he agregado el siguiente código en el PCublic Sub New -
Dim policy As New Policy()
policy.Assertions.Add(New MyAssertion())
Me.SetPolicy(policy)
y entonces
Public Class MyPolicy
Inherits SoapFilter
Public Overrides Function ProcessMessage(ByVal envelope As SoapEnvelope) As SoapFilterResult
'creating the <wsse:Security> element in the outgoing message
Dim securityNode As XmlNode = envelope.CreateNode(XmlNodeType.Element, "wsse:Security", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
Dim securityAttr As XmlAttribute = envelope.CreateAttribute("soap:mustunderstand")
securityAttr.Value = "1"
'creating the <wsse:usernameToken> element
Dim usernameTokenNode As XmlNode = envelope.CreateNode(XmlNodeType.Element, "wsse:UsernameToken", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
Dim userElement As XmlElement = usernameTokenNode
userElement.SetAttribute("xmlns:wsu", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")
'creating the <wsse:Username> element
Dim userNameNode As XmlNode = envelope.CreateNode(XmlNodeType.Element, "wsse:Username", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
userNameNode.InnerXml = "username"
'creating the <wsse:password> element
Dim pwdNode As XmlNode = envelope.CreateNode(XmlNodeType.Element, "wsse:Password", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
Dim pwdElement As XmlElement = pwdNode
pwdElement.SetAttribute("Type", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText")
pwdNode.InnerXml = "password"
usernameTokenNode.AppendChild(userNameNode)
usernameTokenNode.AppendChild(pwdNode)
securityNode.AppendChild(usernameTokenNode)
envelope.ImportNode(securityNode, True)
Dim node As XmlNode = envelope.Header
node.AppendChild(securityNode)
Dim actionnode As XmlNode = envelope.Header("wsa:Action")
envelope.Header.RemoveChild(actionnode)
Dim messageNode As XmlNode = envelope.Header("wsa:MessageID")
envelope.Header.RemoveChild(messageNode)
Dim replyToNode As XmlNode = envelope.Header("wsa:ReplyTo")
envelope.Header.RemoveChild(replyToNode)
Dim toNode As XmlNode = envelope.Header("wsa:To")
envelope.Header.RemoveChild(toNode)
Return SoapFilterResult.[Continue]
End Function
End Class
Public Class MyAssertion
Inherits PolicyAssertion
Public Overrides Function CreateClientInputFilter(ByVal context As FilterCreationContext) As SoapFilter
Return Nothing
End Function
Public Overrides Function CreateClientOutputFilter(ByVal context As FilterCreationContext) As SoapFilter
Return New MyPolicy()
End Function
Public Overrides Function CreateServiceInputFilter(ByVal context As FilterCreationContext) As SoapFilter
Return Nothing
End Function
Public Overrides Function CreateServiceOutputFilter(ByVal context As FilterCreationContext) As SoapFilter
Return Nothing
End Function
End Class
Public anular la función ProcessMessage: sobrescribe el proceso de proceso y me permite editar manualmente el sobre
Necesitaba eliminar manualmente los elementos que no necesitaba e insertar manualmente los elementos que IDID necesita:
Otros consejos
Podrías escribir un Soapextensión. He hecho esto en el pasado para limpiar los personajes ilegales de una respuesta de jabón, pero también puede usarlo para modificar su solicitud. Básicamente, interceptará el paquete SOAP antes de que se envíe, o cuando lo reciba, pero antes de que .NET lo deserialice.
Stefan Goßner tiene una vieja publicación de blog que explica Cómo construir una soapextension. Pondrías tu código dentro del ProcessOutput
método.
El inconveniente es que estás analizando el mensaje SOAP como texto, pero, por supuesto, puedes cargarlo en un XDocument
o XmlDocument
Si eso funciona mejor. Pero también lo estás pasando como texto después.
Si está utilizando WCF, consulte Intercept Mensajes en un cliente WCF, ya que tiene que implementar un IClientMessageInspector
para la intercepción de jabón.
Espero que esto te ayude un poco en el camino.