Rimozione di alcuni elementi Header - che sono stati creati da WSE 3.0
Domanda
Sto lavorando con un WSDL che viene aggiunta automaticamente elementi extra nel xml. Al fine di farlo di rispettare un servizio web esterno che non utilizzano questi elementi. Vedere la seguente immagine: http://img406.imageshack.us/img406/1307/differencese.png Sinistra = Red elementi devono rimossi - = giusto quello che ho bisogno di uscita ??p>
Ho allegato il codice che sta creando la mia busta e di carico utile.
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)
Qualsiasi aiuto sarebbe molto apprezzato.
Michael
Soluzione 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)
notato che ho rimosso il WSE codifica: -
all'interno del Reference.vb riferimento Web Ho aggiunto il seguente codice nel sub pcublic nuova -
Dim policy As New Policy()
policy.Assertions.Add(New MyAssertion())
Me.SetPolicy(policy)
e quindi
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 Overrides Function ProcessMessage - sovrascrive il ProcessMessage e mi permette di modificare manualmente la busta ??p>
ho avuto bisogno di rimuovere manualmente gli elementi non ne avevo bisogno e manualmente inserto la necessità Idid elementi:
Altri suggerimenti
Si potrebbe scrivere un SoapExtension . Ho fatto questo in passato per pulire via caratteri illegali da una risposta SOAP, ma è possibile utilizzarlo per modificare la vostra richiesta pure. In sostanza si intercetterà il pacchetto SOAP prima che sia stato inviato, o quando lo si riceve, ma prima di .Net deserializza esso.
Stefan Gossner ha un vecchio post sul blog che spiega come costruire un SoapExtension . Si potrebbe inserire il codice all'interno del metodo ProcessOutput
.
Lo svantaggio è che si sta analizzando la messaggio SOAP come testo, ma può ovviamente caricarlo in un XDocument
o XmlDocument
se funziona meglio. Ma vi sono anche trasmetterla come testo in seguito.
Se si utilizza WCF, quindi controllare in un client WCF , come si deve implementare un IClientMessageInspector
per l'intercettazione SOAP.
Spero che questo ti aiuta un po 'lungo la strada.