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.Xml.Serialization;
\r
24 using System.Xml.Schema;
\r
25 using System.Collections;
\r
26 using System.Threading;
\r
28 namespace System.Web.Services.Protocols {
\r
29 public class SoapHttpClientProtocol : HttpWebClientProtocol {
\r
30 SoapTypeStubInfo type_info;
\r
32 #region SoapWebClientAsyncResult class
\r
34 internal class SoapWebClientAsyncResult: WebClientAsyncResult
\r
36 public SoapWebClientAsyncResult (WebRequest request, AsyncCallback callback, object asyncState)
\r
37 : base (request, callback, asyncState)
\r
41 public SoapClientMessage Message;
\r
42 public SoapExtension[] Extensions;
\r
46 #region Constructors
\r
48 public SoapHttpClientProtocol ()
\r
50 type_info = (SoapTypeStubInfo) TypeStubManager.GetTypeStub (this.GetType (), "Soap");
\r
53 #endregion // Constructors
\r
57 protected IAsyncResult BeginInvoke (string methodName, object[] parameters, AsyncCallback callback, object asyncState)
\r
59 SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (methodName);
\r
61 SoapWebClientAsyncResult ainfo = null;
\r
64 SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);
\r
65 message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);
\r
67 WebRequest request = GetRequestForMessage (uri, message);
\r
69 ainfo = new SoapWebClientAsyncResult (request, callback, asyncState);
\r
70 ainfo.Message = message;
\r
71 ainfo.Extensions = SoapExtension.CreateExtensionChain (type_info.SoapExtensions[0], msi.SoapExtensions, type_info.SoapExtensions[1]);
\r
73 ainfo.Request.BeginGetRequestStream (new AsyncCallback (AsyncGetRequestStreamDone), ainfo);
\r
75 catch (Exception ex)
\r
78 ainfo.SetCompleted (null, ex, false);
\r
84 void AsyncGetRequestStreamDone (IAsyncResult ar)
\r
86 SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) ar.AsyncState;
\r
89 SendRequest (ainfo.Request.EndGetRequestStream (ar), ainfo.Message, ainfo.Extensions);
\r
90 ainfo.Request.BeginGetResponse (new AsyncCallback (AsyncGetResponseDone), ainfo);
\r
92 catch (Exception ex)
\r
94 Console.WriteLine ("E1:" + 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 Console.WriteLine ("E2:" + ex);
\r
109 response = ex.Response;
\r
110 HttpWebResponse http_response = response as HttpWebResponse;
\r
111 if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError) {
\r
112 ainfo.SetCompleted (null, ex, true);
\r
116 catch (Exception ex) {
\r
117 ainfo.SetCompleted (null, ex, true);
\r
122 object[] result = ReceiveResponse (response, ainfo.Message, ainfo.Extensions);
\r
123 ainfo.SetCompleted (result, null, true);
\r
125 catch (Exception ex) {
\r
126 ainfo.SetCompleted (null, ex, true);
\r
130 protected object[] EndInvoke (IAsyncResult asyncResult)
\r
132 if (!(asyncResult is SoapWebClientAsyncResult)) throw new ArgumentException ("asyncResult is not the return value from BeginInvoke");
\r
134 SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) asyncResult;
\r
137 if (!ainfo.IsCompleted) ainfo.WaitForComplete ();
\r
138 if (ainfo.Exception != null) throw ainfo.Exception;
\r
139 else return (object[]) ainfo.Result;
\r
144 public void Discover ()
\r
146 throw new NotImplementedException ();
\r
149 protected override WebRequest GetWebRequest (Uri uri)
\r
151 return base.GetWebRequest (uri);
\r
155 // Just for debugging
\r
157 void DumpStackFrames ()
\r
159 StackTrace st = new StackTrace ();
\r
161 for (int i = 0; i < st.FrameCount; i++){
\r
162 StackFrame sf = st.GetFrame (i);
\r
163 Console.WriteLine ("At frame: {0} {1}", i, sf.GetMethod ().Name);
\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 // What a waste of UTF8encoders, but it has to be thread safe.
\r
188 XmlTextWriter xtw = new XmlTextWriter (s, new UTF8Encoding (false));
\r
189 xtw.Formatting = Formatting.Indented;
\r
191 WebServiceHelper.WriteSoapMessage (xtw, type_info, message.MethodStubInfo.Use, message.MethodStubInfo.RequestSerializer, message.Parameters, message.Headers);
\r
193 if (extensions != null) {
\r
194 message.SetStage (SoapMessageStage.AfterSerialize);
\r
195 SoapExtension.ExecuteProcessMessage (extensions, message, true);
206 // Handle other web responses (multi-output?)
\r
208 object [] ReceiveResponse (WebResponse response, SoapClientMessage message, SoapExtension[] extensions)
\r
210 HttpWebResponse http_response = (HttpWebResponse) response;
\r
211 HttpStatusCode code = http_response.StatusCode;
\r
212 SoapMethodStubInfo msi = message.MethodStubInfo;
\r
214 if (!(code == HttpStatusCode.Accepted || code == HttpStatusCode.OK || code == HttpStatusCode.InternalServerError))
\r
215 throw new WebException ("Request error. Return code was: " + http_response.StatusCode);
\r
218 // Remove optional encoding
\r
220 Encoding encoding = WebServiceHelper.GetContentEncoding (response.ContentType);
\r
222 Stream stream = response.GetResponseStream ();
\r
224 if (extensions != null) {
\r
225 stream = SoapExtension.ExecuteChainStream (extensions, stream);
\r
226 message.SetStage (SoapMessageStage.BeforeDeserialize);
\r
227 SoapExtension.ExecuteProcessMessage (extensions, message, false);
230 // Deserialize the response
\r
232 StreamReader reader = new StreamReader (stream, encoding, false);
\r
233 XmlTextReader xml_reader = new XmlTextReader (reader);
\r
235 bool isSuccessful = (code != HttpStatusCode.InternalServerError);
\r
236 SoapHeaderCollection headers;
\r
239 if (isSuccessful) {
\r
240 WebServiceHelper.ReadSoapMessage (xml_reader, type_info, msi.Use, msi.ResponseSerializer, out content, out headers);
\r
241 message.OutParameters = (object[]) content;
\r
244 WebServiceHelper.ReadSoapMessage (xml_reader, type_info, msi.Use, type_info.GetFaultSerializer (msi.Use), out content, out headers);
\r
245 Fault fault = (Fault) content;
\r
246 SoapException ex = new SoapException (fault.faultstring, fault.faultcode, fault.faultactor, fault.detail);
\r
247 message.SetException (ex);
\r
250 message.SetHeaders (headers);
\r
251 message.UpdateHeaderValues (this, message.MethodStubInfo.Headers);
\r
253 if (extensions != null) {
\r
254 message.SetStage (SoapMessageStage.AfterDeserialize);
\r
255 SoapExtension.ExecuteProcessMessage (extensions, message, false);
259 return message.OutParameters;
\r
261 throw message.Exception;
\r
264 protected object[] Invoke (string method_name, object[] parameters)
\r
266 SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (method_name);
\r
268 SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);
\r
269 message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);
\r
271 SoapExtension[] extensions = SoapExtension.CreateExtensionChain (type_info.SoapExtensions[0], msi.SoapExtensions, type_info.SoapExtensions[1]);
\r
273 WebResponse response;
\r
276 WebRequest request = GetRequestForMessage (uri, message);
\r
277 SendRequest (request.GetRequestStream (), message, extensions);
\r
278 response = GetWebResponse (request);
\r
280 catch (WebException ex)
\r
282 response = ex.Response;
\r
283 HttpWebResponse http_response = response as HttpWebResponse;
\r
284 if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError)
\r
288 return ReceiveResponse (response, message, extensions);
\r
291 #endregion // Methods
\r