2 // System.Web.Services.Protocols.SoapHttpClientProtocol.cs
\r
5 // Tim Coleman (tim@timcoleman.com)
\r
6 // Miguel de Icaza (miguel@ximian.com)
\r
7 // Lluis Sanchez Gual (lluis@ximian.com)
\r
9 // Copyright (C) Tim Coleman, 2002
\r
10 // Copyright (C) Ximian, Inc, 2003
\r
18 using System.Reflection;
\r
19 using System.Web.Services;
\r
20 using System.Diagnostics;
\r
21 using System.Runtime.CompilerServices;
\r
22 using System.Web.Services.Description;
\r
23 using System.Web.Services.Discovery;
\r
24 using System.Xml.Serialization;
\r
25 using System.Xml.Schema;
\r
26 using System.Collections;
\r
27 using System.Threading;
\r
29 namespace System.Web.Services.Protocols {
\r
30 public class SoapHttpClientProtocol : HttpWebClientProtocol {
\r
31 SoapTypeStubInfo type_info;
\r
33 #region SoapWebClientAsyncResult class
\r
35 internal class SoapWebClientAsyncResult: WebClientAsyncResult
\r
37 public SoapWebClientAsyncResult (WebRequest request, AsyncCallback callback, object asyncState)
\r
38 : base (request, callback, asyncState)
\r
42 public SoapClientMessage Message;
\r
43 public SoapExtension[] Extensions;
\r
47 #region Constructors
\r
49 public SoapHttpClientProtocol ()
\r
51 type_info = (SoapTypeStubInfo) TypeStubManager.GetTypeStub (this.GetType (), "Soap");
\r
54 #endregion // Constructors
\r
58 protected IAsyncResult BeginInvoke (string methodName, object[] parameters, AsyncCallback callback, object asyncState)
\r
60 SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (methodName);
\r
62 SoapWebClientAsyncResult ainfo = null;
\r
65 SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);
\r
66 message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);
\r
68 WebRequest request = GetRequestForMessage (uri, message);
\r
70 ainfo = new SoapWebClientAsyncResult (request, callback, asyncState);
\r
71 ainfo.Message = message;
\r
72 ainfo.Extensions = SoapExtension.CreateExtensionChain (type_info.SoapExtensions[0], msi.SoapExtensions, type_info.SoapExtensions[1]);
\r
74 ainfo.Request.BeginGetRequestStream (new AsyncCallback (AsyncGetRequestStreamDone), ainfo);
\r
76 catch (Exception ex)
\r
79 ainfo.SetCompleted (null, ex, false);
\r
85 void AsyncGetRequestStreamDone (IAsyncResult ar)
\r
87 SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) ar.AsyncState;
\r
90 SendRequest (ainfo.Request.EndGetRequestStream (ar), ainfo.Message, ainfo.Extensions);
\r
91 ainfo.Request.BeginGetResponse (new AsyncCallback (AsyncGetResponseDone), ainfo);
\r
93 catch (Exception ex)
\r
95 ainfo.SetCompleted (null, ex, true);
\r
99 void AsyncGetResponseDone (IAsyncResult ar)
\r
101 SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) ar.AsyncState;
\r
102 WebResponse response = null;
\r
105 response = GetWebResponse (ainfo.Request, ar);
\r
107 catch (WebException ex) {
\r
108 response = ex.Response;
\r
109 HttpWebResponse http_response = response as HttpWebResponse;
\r
110 if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError) {
\r
111 ainfo.SetCompleted (null, ex, true);
\r
115 catch (Exception ex) {
\r
116 ainfo.SetCompleted (null, ex, true);
\r
121 object[] result = ReceiveResponse (response, ainfo.Message, ainfo.Extensions);
\r
122 ainfo.SetCompleted (result, null, true);
\r
124 catch (Exception ex) {
\r
125 ainfo.SetCompleted (null, ex, true);
\r
129 protected object[] EndInvoke (IAsyncResult asyncResult)
\r
131 if (!(asyncResult is SoapWebClientAsyncResult)) throw new ArgumentException ("asyncResult is not the return value from BeginInvoke");
\r
133 SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) asyncResult;
\r
136 if (!ainfo.IsCompleted) ainfo.WaitForComplete ();
\r
137 if (ainfo.Exception != null) throw ainfo.Exception;
\r
138 else return (object[]) ainfo.Result;
\r
142 public void Discover ()
\r
144 BindingInfo bnd = (BindingInfo) type_info.Bindings [0];
\r
146 DiscoveryClientProtocol discoverer = new DiscoveryClientProtocol ();
\r
147 discoverer.Discover (Url);
\r
149 foreach (object info in discoverer.AdditionalInformation)
\r
151 System.Web.Services.Discovery.SoapBinding sb = info as System.Web.Services.Discovery.SoapBinding;
\r
152 if (sb != null && sb.Binding.Name == bnd.Name && sb.Binding.Namespace == bnd.Namespace) {
\r
158 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
159 throw new Exception (msg);
\r
162 protected override WebRequest GetWebRequest (Uri uri)
\r
164 return base.GetWebRequest (uri);
\r
167 WebRequest GetRequestForMessage (Uri uri, SoapClientMessage message)
\r
169 WebRequest request = GetWebRequest (uri);
\r
170 request.Method = "POST";
\r
171 WebHeaderCollection headers = request.Headers;
\r
172 headers.Add ("SOAPAction", "\"" + message.Action + "\"");
\r
173 request.ContentType = message.ContentType + "; charset=utf-8";
\r
177 void SendRequest (Stream s, SoapClientMessage message, SoapExtension[] extensions)
\r
181 if (extensions != null) {
\r
182 s = SoapExtension.ExecuteChainStream (extensions, s);
\r
183 message.SetStage (SoapMessageStage.BeforeSerialize);
\r
184 SoapExtension.ExecuteProcessMessage (extensions, message, true);
187 XmlTextWriter xtw = WebServiceHelper.CreateXmlWriter (s);
\r
189 WebServiceHelper.WriteSoapMessage (xtw, type_info, message.MethodStubInfo.Use, message.MethodStubInfo.RequestSerializer, message.Parameters, message.Headers);
\r
191 if (extensions != null) {
\r
192 message.SetStage (SoapMessageStage.AfterSerialize);
\r
193 SoapExtension.ExecuteProcessMessage (extensions, message, true);
204 // Handle other web responses (multi-output?)
\r
206 object [] ReceiveResponse (WebResponse response, SoapClientMessage message, SoapExtension[] extensions)
\r
208 SoapMethodStubInfo msi = message.MethodStubInfo;
\r
209 HttpWebResponse http_response = response as HttpWebResponse;
\r
211 if (http_response != null)
\r
213 HttpStatusCode code = http_response.StatusCode;
\r
215 if (!(code == HttpStatusCode.Accepted || code == HttpStatusCode.OK || code == HttpStatusCode.InternalServerError))
\r
216 throw new WebException ("Request error. Return code was: " + http_response.StatusCode);
\r
220 // Remove optional encoding
\r
223 Encoding encoding = WebServiceHelper.GetContentEncoding (response.ContentType, out ctype);
\r
224 if (ctype != "text/xml")
225 WebServiceHelper.InvalidOperation (
226 "Content is not 'text/xml' but '" + response.ContentType + "'",
229 message.ContentType = ctype;
\r
230 message.ContentEncoding = encoding.WebName;
\r
232 Stream stream = response.GetResponseStream ();
\r
234 if (extensions != null) {
\r
235 stream = SoapExtension.ExecuteChainStream (extensions, stream);
\r
236 message.SetStage (SoapMessageStage.BeforeDeserialize);
\r
237 SoapExtension.ExecuteProcessMessage (extensions, message, false);
240 // Deserialize the response
\r
242 StreamReader reader = new StreamReader (stream, encoding, false);
\r
243 XmlTextReader xml_reader = new XmlTextReader (reader);
\r
245 SoapHeaderCollection headers;
\r
248 WebServiceHelper.ReadSoapMessage (xml_reader, type_info, msi.Use, msi.ResponseSerializer, out content, out headers);
\r
250 if (content is Fault)
\r
252 Fault fault = (Fault) content;
\r
253 SoapException ex = new SoapException (fault.faultstring, fault.faultcode, fault.faultactor, fault.detail);
\r
254 message.SetException (ex);
\r
257 message.OutParameters = (object[]) content;
\r
259 message.SetHeaders (headers);
\r
260 message.UpdateHeaderValues (this, message.MethodStubInfo.Headers);
\r
262 if (extensions != null) {
\r
263 message.SetStage (SoapMessageStage.AfterDeserialize);
\r
264 SoapExtension.ExecuteProcessMessage (extensions, message, false);
267 if (message.Exception == null)
\r
268 return message.OutParameters;
\r
270 throw message.Exception;
\r
273 protected object[] Invoke (string method_name, object[] parameters)
\r
275 SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (method_name);
\r
277 SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);
\r
278 message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);
\r
280 SoapExtension[] extensions = SoapExtension.CreateExtensionChain (type_info.SoapExtensions[0], msi.SoapExtensions, type_info.SoapExtensions[1]);
\r
282 WebResponse response;
\r
285 WebRequest request = GetRequestForMessage (uri, message);
\r
286 SendRequest (request.GetRequestStream (), message, extensions);
\r
287 response = GetWebResponse (request);
\r
289 catch (WebException ex)
\r
291 response = ex.Response;
\r
292 HttpWebResponse http_response = response as HttpWebResponse;
\r
293 if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError)
\r
297 return ReceiveResponse (response, message, extensions);
\r
300 #endregion // Methods
\r