mcs/class/System.Web.Services/System.Web.Services.Protocols/SoapHttpClientProtocol.cs

   1 // \r
   2 // System.Web.Services.Protocols.SoapHttpClientProtocol.cs\r
   3 //\r
   4 // Author:\r
   5 //   Tim Coleman (tim@timcoleman.com)\r
   6 //   Miguel de Icaza (miguel@ximian.com)\r
   7 //   Lluis Sanchez Gual (lluis@ximian.com)\r
   8 //\r
   9 // Copyright (C) Tim Coleman, 2002\r
  10 // Copyright (C) Ximian, Inc, 2003\r
  11 //\r
  12 \r
  13 using System.IO;\r
  14 using System.Net;\r
  15 using System.Web;\r
  16 using System.Xml;\r
  17 using System.Text;\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
  27 \r
  28 namespace System.Web.Services.Protocols {\r
  29         public class SoapHttpClientProtocol : HttpWebClientProtocol {\r
  30                 SoapTypeStubInfo type_info;\r
  31 \r
  32                 #region SoapWebClientAsyncResult class\r
  33 \r
  34                 internal class SoapWebClientAsyncResult: WebClientAsyncResult\r
  35                 {\r
  36                         public SoapWebClientAsyncResult (WebRequest request, AsyncCallback callback, object asyncState)\r
  37                         : base (request, callback, asyncState)\r
  38                         {\r
  39                         }\r
  40                 \r
  41                         public SoapClientMessage Message;\r
  42                         public SoapExtension[] Extensions;\r
  43                 }\r
  44                 #endregion\r
  45 \r
  46                 #region Constructors\r
  47 \r
  48                 public SoapHttpClientProtocol () \r
  49                 {\r
  50                         type_info = (SoapTypeStubInfo) TypeStubManager.GetTypeStub (this.GetType (), "Soap");\r
  51                 }\r
  52 \r
  53                 #endregion // Constructors\r
  54 \r
  55                 #region Methods\r
  56 \r
  57                 protected IAsyncResult BeginInvoke (string methodName, object[] parameters, AsyncCallback callback, object asyncState)\r
  58                 {\r
  59                         SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (methodName);\r
  60 \r
  61                         SoapWebClientAsyncResult ainfo = null;\r
  62                         try\r
  63                         {\r
  64                                 SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);\r
  65                                 message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);\r
  66                                 \r
  67                                 WebRequest request = GetRequestForMessage (uri, message);\r
  68                                 \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
  72 \r
  73                                 ainfo.Request.BeginGetRequestStream (new AsyncCallback (AsyncGetRequestStreamDone), ainfo);\r
  74                         }\r
  75                         catch (Exception ex)\r
  76                         {\r
  77                                 if (ainfo != null)\r
  78                                         ainfo.SetCompleted (null, ex, false);\r
  79                         }\r
  80 \r
  81                         return ainfo;\r
  82                 }\r
  83 \r
  84                 void AsyncGetRequestStreamDone (IAsyncResult ar)\r
  85                 {\r
  86                         SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) ar.AsyncState;\r
  87                         try\r
  88                         {\r
  89                                 SendRequest (ainfo.Request.EndGetRequestStream (ar), ainfo.Message, ainfo.Extensions);\r
  90                                 ainfo.Request.BeginGetResponse (new AsyncCallback (AsyncGetResponseDone), ainfo);\r
  91                         }\r
  92                         catch (Exception ex)\r
  93                         {\r
  94                                 ainfo.SetCompleted (null, ex, true);\r
  95                         }\r
  96                 }\r
  97 \r
  98                 void AsyncGetResponseDone (IAsyncResult ar)\r
  99                 {\r
 100                         SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) ar.AsyncState;\r
 101                         WebResponse response = null;\r
 102 \r
 103                         try {\r
 104                                 response = GetWebResponse (ainfo.Request, ar);\r
 105                         }\r
 106                         catch (WebException ex) {\r
 107                                 response = ex.Response;\r
 108                                 HttpWebResponse http_response = response as HttpWebResponse;\r
 109                                 if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError) {\r
 110                                         ainfo.SetCompleted (null, ex, true);\r
 111                                         return;\r
 112                                 }\r
 113                         }\r
 114                         catch (Exception ex) {\r
 115                                 ainfo.SetCompleted (null, ex, true);\r
 116                                 return;\r
 117                         }\r
 118 \r
 119                         try {\r
 120                                 object[] result = ReceiveResponse (response, ainfo.Message, ainfo.Extensions);\r
 121                                 ainfo.SetCompleted (result, null, true);\r
 122                         }\r
 123                         catch (Exception ex) {\r
 124                                 ainfo.SetCompleted (null, ex, true);\r
 125                         }\r
 126                 }\r
 127 \r
 128                 protected object[] EndInvoke (IAsyncResult asyncResult)\r
 129                 {\r
 130                         if (!(asyncResult is SoapWebClientAsyncResult)) throw new ArgumentException ("asyncResult is not the return value from BeginInvoke");\r
 131 \r
 132                         SoapWebClientAsyncResult ainfo = (SoapWebClientAsyncResult) asyncResult;\r
 133                         lock (ainfo)\r
 134                         {\r
 135                                 if (!ainfo.IsCompleted) ainfo.WaitForComplete ();\r
 136                                 if (ainfo.Exception != null) throw ainfo.Exception;\r
 137                                 else return (object[]) ainfo.Result;\r
 138                         }\r
 139                 }\r
 140 \r
 141                 [MonoTODO]\r
 142                 public void Discover ()\r
 143                 {\r
 144                         throw new NotImplementedException ();\r
 145                 }\r
 146 \r
 147                 protected override WebRequest GetWebRequest (Uri uri)\r
 148                 {\r
 149                         return base.GetWebRequest (uri);\r
 150                 }\r
 151 \r
 152                 //\r
 153                 // Just for debugging\r
 154                 //\r
 155                 void DumpStackFrames ()\r
 156                 {\r
 157                         StackTrace st = new StackTrace ();\r
 158 \r
 159                         for (int i = 0; i < st.FrameCount; i++){\r
 160                                 StackFrame sf = st.GetFrame (i);\r
 161                                 Console.WriteLine ("At frame: {0} {1}", i, sf.GetMethod ().Name);\r
 162                         }\r
 163                 }\r
 164 \r
 165                 WebRequest GetRequestForMessage (Uri uri, SoapClientMessage message)\r
 166                 {\r
 167                         WebRequest request = GetWebRequest (uri);\r
 168                         request.Method = "POST";\r
 169                         WebHeaderCollection headers = request.Headers;\r
 170                         headers.Add ("SOAPAction", message.Action);\r
 171                         request.ContentType = message.ContentType + "; charset=utf-8";\r
 172                         return request;\r
 173                 }\r
 174                 \r
 175                 void SendRequest (Stream s, SoapClientMessage message, SoapExtension[] extensions)\r
 176                 {\r
 177                         using (s) {\r
 178 \r
 179                                 if (extensions != null) {\r
 180                                         s = SoapExtension.ExecuteChainStream (extensions, s);\r
 181                                         message.SetStage (SoapMessageStage.BeforeSerialize);\r
 182                                         SoapExtension.ExecuteProcessMessage (extensions, message, true);
 183                                 }
 184 \r
 185                                 // What a waste of UTF8encoders, but it has to be thread safe.\r
 186                                 XmlTextWriter xtw = new XmlTextWriter (s, new UTF8Encoding (false));\r
 187                                 xtw.Formatting = Formatting.Indented;\r
 188 \r
 189                                 WebServiceHelper.WriteSoapMessage (xtw, type_info, message.MethodStubInfo.Use, message.MethodStubInfo.RequestSerializer, message.Parameters, message.Headers);\r
 190 \r
 191                                 if (extensions != null) {\r
 192                                         message.SetStage (SoapMessageStage.AfterSerialize);\r
 193                                         SoapExtension.ExecuteProcessMessage (extensions, message, true);
 194                                 }
 195 \r
 196                                 xtw.Flush ();\r
 197                                 xtw.Close ();\r
 198                          }\r
 199                 }\r
 200 \r
 201 \r
 202                 //\r
 203                 // TODO:\r
 204                 //    Handle other web responses (multi-output?)\r
 205                 //    \r
 206                 object [] ReceiveResponse (WebResponse response, SoapClientMessage message, SoapExtension[] extensions)\r
 207                 {\r
 208                         SoapMethodStubInfo msi = message.MethodStubInfo;\r
 209                         HttpWebResponse http_response = response as HttpWebResponse;\r
 210                         \r
 211                         if (http_response != null)\r
 212                         {\r
 213                                 HttpStatusCode code = http_response.StatusCode;\r
 214         \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
 217                         }\r
 218                         \r
 219                         //\r
 220                         // Remove optional encoding\r
 221                         //\r
 222                         string ctype;
 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 + "'",
 227                                         response, encoding);
 228 \r
 229                         Stream stream = response.GetResponseStream ();\r
 230 \r
 231                         if (extensions != null) {\r
 232                                 stream = SoapExtension.ExecuteChainStream (extensions, stream);\r
 233                                 message.SetStage (SoapMessageStage.BeforeDeserialize);\r
 234                                 SoapExtension.ExecuteProcessMessage (extensions, message, false);
 235                         }
 236                         \r
 237                         // Deserialize the response\r
 238 \r
 239                         StreamReader reader = new StreamReader (stream, encoding, false);\r
 240                         XmlTextReader xml_reader = new XmlTextReader (reader);\r
 241 \r
 242                         SoapHeaderCollection headers;\r
 243                         object content;\r
 244 \r
 245                         WebServiceHelper.ReadSoapMessage (xml_reader, type_info, msi.Use, msi.ResponseSerializer, out content, out headers);\r
 246                         \r
 247                         if (content is Fault)\r
 248                         {\r
 249                                 Fault fault = (Fault) content;\r
 250                                 SoapException ex = new SoapException (fault.faultstring, fault.faultcode, fault.faultactor, fault.detail);\r
 251                                 message.SetException (ex);\r
 252                         }\r
 253                         else\r
 254                                 message.OutParameters = (object[]) content;\r
 255                         \r
 256                         message.SetHeaders (headers);\r
 257                         message.UpdateHeaderValues (this, message.MethodStubInfo.Headers);\r
 258 \r
 259                         if (extensions != null) {\r
 260                                 message.SetStage (SoapMessageStage.AfterDeserialize);\r
 261                                 SoapExtension.ExecuteProcessMessage (extensions, message, false);
 262                         }
 263 \r
 264                         if (message.Exception == null)\r
 265                                 return message.OutParameters;\r
 266                         else\r
 267                                 throw message.Exception;\r
 268                 }\r
 269 \r
 270                 protected object[] Invoke (string method_name, object[] parameters)\r
 271                 {\r
 272                         SoapMethodStubInfo msi = (SoapMethodStubInfo) type_info.GetMethod (method_name);\r
 273                         \r
 274                         SoapClientMessage message = new SoapClientMessage (this, msi, Url, parameters);\r
 275                         message.CollectHeaders (this, message.MethodStubInfo.Headers, SoapHeaderDirection.In);\r
 276 \r
 277                         SoapExtension[] extensions = SoapExtension.CreateExtensionChain (type_info.SoapExtensions[0], msi.SoapExtensions, type_info.SoapExtensions[1]);\r
 278 \r
 279                         WebResponse response;\r
 280                         try\r
 281                         {\r
 282                                 WebRequest request = GetRequestForMessage (uri, message);\r
 283                                 SendRequest (request.GetRequestStream (), message, extensions);\r
 284                                 response = GetWebResponse (request);\r
 285                         }\r
 286                         catch (WebException ex)\r
 287                         {\r
 288                                 response = ex.Response;\r
 289                                 HttpWebResponse http_response = response as HttpWebResponse;\r
 290                                 if (http_response == null || http_response.StatusCode != HttpStatusCode.InternalServerError)\r
 291                                         throw ex;\r
 292                         }\r
 293 \r
 294                         return ReceiveResponse (response, message, extensions);\r
 295                 }\r
 296 \r
 297                 #endregion // Methods\r
 298         }\r
 299 }