// Author:\r
// Tim Coleman (tim@timcoleman.com)\r
// Miguel de Icaza (miguel@ximian.com)\r
+// Lluis Sanchez Gual (lluis@ximian.com)\r
//\r
// Copyright (C) Tim Coleman, 2002\r
// Copyright (C) Ximian, Inc, 2003\r
//\r
+
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
\r
using System.IO;\r
using System.Net;\r
using System.Diagnostics;\r
using System.Runtime.CompilerServices;\r
using System.Web.Services.Description;\r
+using System.Web.Services.Discovery;\r
using System.Xml.Serialization;\r
-namespace System.Web.Services.Protocols {\r
- public class SoapHttpClientProtocol : HttpWebClientProtocol {\r
- TypeStubInfo type_info;\r
+using System.Xml.Schema;\r
+using System.Collections;\r
+using System.Threading;\r
+\r
+namespace System.Web.Services.Protocols \r
+{\r
+ public class SoapHttpClientProtocol : HttpWebClientProtocol \r
+ {\r
+ SoapTypeStubInfo type_info;\r
+#if NET_2_0\r
+ WsiClaims conformanceClaims;\r
+ SoapProtocolVersion soapVersion;\r
+#endif\r
+\r
+ #region SoapWebClientAsyncResult class\r
+\r
+ internal class SoapWebClientAsyncResult: WebClientAsyncResult\r
+ {\r
+ public SoapWebClientAsyncResult (WebRequest request, AsyncCallback callback, object asyncState)\r
+ : base (request, callback, asyncState)\r
+ {\r
+ }\r
\r
+ public SoapClientMessage Message;\r
+ public SoapExtension[] Extensions;\r
+ }\r
+ #endregion\r
+\r
#region Constructors\r
\r
public SoapHttpClientProtocol () \r
{\r
- type_info = TypeStubManager.GetTypeStub (this.GetType ());\r
+ type_info = (SoapTypeStubInfo) TypeStubManager.GetTypeStub (this.GetType (), "Soap");\r
}\r
\r
#endregion // Constructors\r
\r
#region Methods\r
\r
- [MonoTODO]\r
protected IAsyncResult BeginInvoke (string methodName, object[] parameters, AsyncCallback callback, object asyncState)\r
{\r
- throw new NotImplementedException ();\r
- }\r
+ SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (methodName);\r
\r
- [MonoTODO]\r
- public void Discover ()\r
- {\r
- throw new NotImplementedException ();\r
+ SoapWebClientAsyncResult ainfo = null;\r
+ try\r
+ {\r
+ SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);\r
+ message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);\r
+ \r
+ WebRequest request = GetRequestForMessage (uri, message);\r
+ \r
+ ainfo = new SoapWebClientAsyncResult (request, callback, asyncState);\r
+ ainfo.Message = message;\r
+ ainfo.Extensions = SoapExtension.CreateExtensionChain (type_info.SoapExtensions[0], msi.SoapExtensions, type_info.SoapExtensions[1]);\r
+\r
+ ainfo.Request.BeginGetRequestStream (new AsyncCallback (AsyncGetRequestStreamDone), ainfo);\r
+ }\r
+ catch (Exception ex)\r
+ {\r
+ if (ainfo != null)\r
+ ainfo.SetCompleted (null, ex, false);\r
+ }\r
+\r
+ return ainfo;\r
}\r
\r
- [MonoTODO]\r
- protected object[] EndInvoke (IAsyncResult asyncResult)\r
+ void AsyncGetRequestStreamDone (IAsyncResult ar)\r
{\r
- throw new NotImplementedException ();\r
+ SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) ar.AsyncState;\r
+ try\r
+ {\r
+ SendRequest (ainfo.Request.EndGetRequestStream (ar), ainfo.Message, ainfo.Extensions);\r
+ ainfo.Request.BeginGetResponse (new AsyncCallback (AsyncGetResponseDone), ainfo);\r
+ }\r
+ catch (Exception ex)\r
+ {\r
+ ainfo.SetCompleted (null, ex, true);\r
+ }\r
}\r
\r
- protected override WebRequest GetWebRequest (Uri uri)\r
+ void AsyncGetResponseDone (IAsyncResult ar)\r
{\r
- WebRequest request = WebRequest.Create (uri);\r
- request.Method = "POST";\r
+ SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) ar.AsyncState;\r
+ WebResponse response = null;\r
\r
- return request;\r
+ try {\r
+ response = GetWebResponse (ainfo.Request, ar);\r
+ }\r
+ catch (WebException ex) {\r
+ response = ex.Response;\r
+ HttpWebResponse http_response = response as HttpWebResponse;\r
+ if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError) {\r
+ ainfo.SetCompleted (null, ex, true);\r
+ return;\r
+ }\r
+ }\r
+ catch (Exception ex) {\r
+ ainfo.SetCompleted (null, ex, true);\r
+ return;\r
+ }\r
+\r
+ try {\r
+ object[] result = ReceiveResponse (response, ainfo.Message, ainfo.Extensions);\r
+ ainfo.SetCompleted (result, null, true);\r
+ }\r
+ catch (Exception ex) {\r
+ ainfo.SetCompleted (null, ex, true);\r
+ }\r
}\r
\r
- //\r
- // Just for debugging\r
- //\r
- void DumpStackFrames ()\r
+ protected object[] EndInvoke (IAsyncResult asyncResult)\r
{\r
- StackTrace st = new StackTrace ();\r
+ if (!(asyncResult is SoapWebClientAsyncResult)) throw new ArgumentException ("asyncResult is not the return value from BeginInvoke");\r
\r
- for (int i = 0; i < st.FrameCount; i++){\r
- StackFrame sf = st.GetFrame (i);\r
- Console.WriteLine ("At frame: {0} {1}", i, sf.GetMethod ().Name);\r
+ SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) asyncResult;\r
+ lock (ainfo)\r
+ {\r
+ if (!ainfo.IsCompleted) ainfo.WaitForComplete ();\r
+ if (ainfo.Exception != null) throw ainfo.Exception;\r
+ else return (object[]) ainfo.Result;\r
}\r
}\r
- \r
- const string soap_envelope = "http://schemas.xmlsoap.org/soap/envelope/";\r
- \r
- void WriteSoapEnvelope (XmlTextWriter xtw)\r
+\r
+ public void Discover ()\r
{\r
- xtw.WriteStartDocument ();\r
+ BindingInfo bnd = (BindingInfo) type_info.Bindings [0];\r
+ \r
+ DiscoveryClientProtocol discoverer = new DiscoveryClientProtocol ();\r
+ discoverer.Discover (Url);\r
\r
- xtw.WriteStartElement ("soap", "Envelope", soap_envelope);\r
- xtw.WriteAttributeString ("xmlns", "xsi", null, "http://www.w3.org/2001/XMLSchema-instance");\r
- xtw.WriteAttributeString ("xmlns", "xsd", null, "http://www.w3.org/2001/XMLSchema");\r
+ foreach (object info in discoverer.AdditionalInformation)\r
+ {\r
+ System.Web.Services.Discovery.SoapBinding sb = info as System.Web.Services.Discovery.SoapBinding;\r
+ if (sb != null && sb.Binding.Name == bnd.Name && sb.Binding.Namespace == bnd.Namespace) {\r
+ Url = sb.Address;\r
+ return;\r
+ }\r
+ }\r
+ \r
+ string msg = string.Format ("The binding named '{0}' from namespace '{1}' was not found in the discovery document at '{2}'", bnd.Name, bnd.Namespace, Url);\r
+ throw new Exception (msg);\r
}\r
- \r
- void SendRequest (WebRequest request, SoapClientMessage message)\r
+\r
+ protected override WebRequest GetWebRequest (Uri uri)\r
{\r
- WebHeaderCollection headers = request.Headers;\r
- headers.Add ("SOAPAction", message.Action);\r
+ return base.GetWebRequest (uri);\r
+ }\r
\r
+ WebRequest GetRequestForMessage (Uri uri, SoapClientMessage message)\r
+ {\r
+ WebRequest request = GetWebRequest (uri);\r
+ request.Method = "POST";\r
+ WebHeaderCollection headers = request.Headers;\r
+ headers.Add ("SOAPAction", "\"" + message.Action + "\"");\r
request.ContentType = message.ContentType + "; charset=utf-8";\r
+ return request;\r
+ }\r
+ \r
+ void SendRequest (Stream s, SoapClientMessage message, SoapExtension[] extensions)\r
+ {\r
+ using (s) {\r
\r
- using (Stream s = request.GetRequestStream ()){\r
- // serialize arguments\r
+ if (extensions != null) {\r
+ s = SoapExtension.ExecuteChainStream (extensions, s);\r
+ message.SetStage (SoapMessageStage.BeforeSerialize);\r
+ SoapExtension.ExecuteProcessMessage (extensions, message, true);
+ }
\r
- // What a waste of UTF8encoders, but it has to be thread safe.\r
- \r
- XmlTextWriter xtw = new XmlTextWriter (s, new UTF8Encoding (false));\r
- xtw.Formatting = Formatting.Indented;\r
- WriteSoapEnvelope (xtw);\r
- xtw.WriteStartElement ("soap", "Body", soap_envelope);\r
-\r
- // Serialize arguments.\r
- message.MethodStubInfo.RequestSerializer.Serialize (xtw, message.Parameters);\r
- xtw.WriteEndElement ();\r
- xtw.WriteEndElement ();\r
+ XmlTextWriter xtw = WebServiceHelper.CreateXmlWriter (s);\r
\r
+ WebServiceHelper.WriteSoapMessage (xtw, type_info, message.MethodStubInfo.Use, message.MethodStubInfo.RequestSerializer, message.Parameters, message.Headers);\r
+\r
+ if (extensions != null) {\r
+ message.SetStage (SoapMessageStage.AfterSerialize);\r
+ SoapExtension.ExecuteProcessMessage (extensions, message, true);
+ }
+\r
xtw.Flush ();\r
xtw.Close ();\r
}\r
}\r
\r
- void GetContentTypeProperties (string cts, out string encoding, out string content_type)\r
- {\r
- encoding = "utf-8";\r
- int start = 0;\r
- int idx = cts.IndexOf (';');\r
- if (idx == -1)\r
- encoding = cts;\r
- content_type = cts.Substring (0, idx);\r
- for (start = idx + 1; idx != -1;){\r
- idx = cts.IndexOf (";", start);\r
- string body;\r
- if (idx == -1)\r
- body = cts.Substring (start);\r
- else {\r
- body = cts.Substring (start, idx);\r
- start = idx + 1;\r
- }\r
- if (body.StartsWith ("charset=")){\r
- encoding = body.Substring (8);\r
- }\r
- }\r
- }\r
- \r
+\r
//\r
// TODO:\r
// Handle other web responses (multi-output?)\r
// \r
- object [] ReceiveResponse (WebResponse response, SoapClientMessage message)\r
+ object [] ReceiveResponse (WebResponse response, SoapClientMessage message, SoapExtension[] extensions)\r
{\r
- HttpWebResponse http_response = (HttpWebResponse) response;\r
- HttpStatusCode code = http_response.StatusCode;\r
- MethodStubInfo msi = message.MethodStubInfo;\r
+ SoapMethodStubInfo msi = message.MethodStubInfo;\r
+ HttpWebResponse http_response = response as HttpWebResponse;\r
+ \r
+ if (http_response != null)\r
+ {\r
+ HttpStatusCode code = http_response.StatusCode;\r
+ \r
+ if (!(code == HttpStatusCode.Accepted || code == HttpStatusCode.OK || code == HttpStatusCode.InternalServerError)) {\r
+ string msg = "The request failed with HTTP status {0}: {1}";\r
+ msg = String.Format (msg, (int) code, code);\r
+ throw new WebException (msg, null, WebExceptionStatus.ProtocolError, http_response);\r
+ }\r
+ if (response.ContentLength == 0 && (code == HttpStatusCode.Accepted || code == HttpStatusCode.OK)) {\r
+ return new object[0];\r
+ }\r
+ }\r
\r
- if (!(code == HttpStatusCode.Accepted || code == HttpStatusCode.OK))\r
- throw new Exception ("Return code was: " + http_response.StatusCode);\r
-\r
//\r
// Remove optional encoding\r
//\r
- string content_type, encoding_name;\r
- GetContentTypeProperties (response.ContentType, out encoding_name, out content_type);\r
+ string ctype;
+ Encoding encoding = WebServiceHelper.GetContentEncoding (response.ContentType, out ctype);\r
+ if (ctype != "text/xml")
+ WebServiceHelper.InvalidOperation (
+ "Content is not 'text/xml' but '" + response.ContentType + "'",
+ response, encoding);
\r
- if (content_type != "text/xml")\r
- throw new Exception ("Return value is not XML: " + content_type);\r
-\r
- Encoding encoding = Encoding.GetEncoding (encoding_name);\r
+ message.ContentType = ctype;\r
+ message.ContentEncoding = encoding.WebName;\r
+ \r
Stream stream = response.GetResponseStream ();\r
- StreamReader reader = new StreamReader (stream, encoding, false);\r
- XmlTextReader xml_reader = new XmlTextReader (reader);\r
\r
- //\r
- // Handle faults/errors somewhere\r
- //\r
- xml_reader.MoveToContent ();\r
- xml_reader.ReadStartElement ("Envelope", soap_envelope);\r
- xml_reader.MoveToContent ();\r
- xml_reader.ReadStartElement ("Body", soap_envelope);\r
+ if (extensions != null) {\r
+ stream = SoapExtension.ExecuteChainStream (extensions, stream);\r
+ message.SetStage (SoapMessageStage.BeforeDeserialize);\r
+ SoapExtension.ExecuteProcessMessage (extensions, message, false);
+ }
+ \r
+ // Deserialize the response\r
\r
- object [] ret = (object []) msi.ResponseSerializer.Deserialize (xml_reader);\r
+ SoapHeaderCollection headers;\r
+ object content;\r
\r
- return (object []) ret;\r
+ using (StreamReader reader = new StreamReader (stream, encoding, false)) {
+ XmlTextReader xml_reader = new XmlTextReader (reader);
+
+ WebServiceHelper.ReadSoapMessage (xml_reader, type_info, msi.Use, msi.ResponseSerializer,
+ out content, out headers);
+ }
+
+ \r
+ if (content is Fault)\r
+ {\r
+ Fault fault = (Fault) content;\r
+ SoapException ex = new SoapException (fault.faultstring, fault.faultcode, fault.faultactor, fault.detail);\r
+ message.SetException (ex);\r
+ }\r
+ else\r
+ message.OutParameters = (object[]) content;\r
+ \r
+ message.SetHeaders (headers);\r
+ message.UpdateHeaderValues (this, message.MethodStubInfo.Headers);\r
+\r
+ if (extensions != null) {\r
+ message.SetStage (SoapMessageStage.AfterDeserialize);\r
+ SoapExtension.ExecuteProcessMessage (extensions, message, false);
+ }
+\r
+ if (message.Exception == null)\r
+ return message.OutParameters;\r
+ else\r
+ throw message.Exception;\r
}\r
\r
protected object[] Invoke (string method_name, object[] parameters)\r
{\r
- MethodStubInfo msi = type_info.GetMethod (method_name);\r
+ SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (method_name);\r
+ \r
+ SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);\r
+ message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);\r
\r
- SoapClientMessage message = new SoapClientMessage (\r
- this, msi, Url, parameters);\r
+ SoapExtension[] extensions = SoapExtension.CreateExtensionChain (type_info.SoapExtensions[0], msi.SoapExtensions, type_info.SoapExtensions[1]);\r
\r
- WebRequest request = GetWebRequest (uri);\r
- SendRequest (request, message);\r
+ WebResponse response;\r
+ try\r
+ {\r
+ WebRequest request = GetRequestForMessage (uri, message);\r
+ SendRequest (request.GetRequestStream (), message, extensions);\r
+ response = GetWebResponse (request);\r
+ }\r
+ catch (WebException ex)\r
+ {\r
+ response = ex.Response;\r
+ HttpWebResponse http_response = response as HttpWebResponse;\r
+ if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError)\r
+ throw ex;\r
+ }\r
+\r
+ return ReceiveResponse (response, message, extensions);\r
+ }\r
+ \r
+#if NET_2_0\r
+\r
+ [MonoTODO ("Do something with this")]\r
+ [System.Runtime.InteropServices.ComVisible(false)]\r
+ [Obsolete]\r
+ public WsiClaims ConformanceClaims {\r
+ get { return conformanceClaims; }\r
+ set { conformanceClaims = value; }\r
+ }\r
+ \r
+ [MonoTODO ("Do something with this")]\r
+ [System.Runtime.InteropServices.ComVisible(false)]\r
+ public SoapProtocolVersion SoapVersion {\r
+ get { return soapVersion; }\r
+ set { soapVersion = value; }\r
+ }\r
+ \r
+ protected void InvokeAsync (string methodName, object[] parameters, SendOrPostCallback callback)\r
+ {\r
+ InvokeAsync (methodName, parameters, callback, null);\r
+ }\r
\r
- WebResponse response = request.GetResponse ();\r
- return ReceiveResponse (response, message);\r
+ protected void InvokeAsync (string methodName, object[] parameters, SendOrPostCallback callback, object userState)\r
+ {\r
+ InvokeAsyncInfo info = new InvokeAsyncInfo (callback, userState);\r
+ BeginInvoke (methodName, parameters, new AsyncCallback (InvokeAsyncCallback), info);\r
+ }\r
+ \r
+ void InvokeAsyncCallback (IAsyncResult ar)\r
+ {\r
+ InvokeAsyncInfo info = (InvokeAsyncInfo) ar.AsyncState;\r
+ SoapWebClientAsyncResult sar = (SoapWebClientAsyncResult) ar;\r
+ InvokeCompletedEventArgs args = new InvokeCompletedEventArgs (sar.Exception, false, info.UserState, (object[]) sar.Result);\r
+ if (info.Context != null)\r
+ info.Context.SendOrPost (info.Callback, args);\r
+ else\r
+ info.Callback (args);\r
}\r
\r
+#endif\r
+\r
#endregion // Methods\r
}\r
-}\r
+}
+\r
projects / mono.git / blobdiff