debugging routing

emiMobileServer/Source/Ws.Server.Module.dfm

@@ -19,17 +19,17 @@ object WsServerModule: TWsServerModule
     object XDataServer1Logging: TSparkleGenericMiddleware
       OnMiddlewareCreate = XDataServer1LoggingMiddlewareCreate
     end
-    object XDataServer1WebSocket: TSparkleWebSocketMiddleware
-      AllowedOrigins.Strings = (
-        '*')
-    end
     object XDataServer1CORS: TSparkleCorsMiddleware
     end
-    object XDataServer1Compress: TSparkleCompressMiddleware
-    end
     object XDataServer1JWT: TSparkleJwtMiddleware
       OnGetSecret = XDataServer1JWTGetSecret
       TokenParam = 'token'
     end
+    object XDataServer1WebSocket: TSparkleWebSocketMiddleware
+      AllowedOrigins.Strings = (
+        '*')
+    end
+    object XDataServer1Compress: TSparkleCompressMiddleware
+    end
   end
 end

emiMobileServer/Source/Ws.Server.Module.pas

@@ -70,7 +70,6 @@ begin
   Url := ABaseUrl;
   if not Url.EndsWith('/') then
     Url := Url + '/';
-  Url := Url + SERVER_PATH_SEGMENT;
 
   XDataServer1.BaseUrl := Url;
   XDataServer1.ModelName := AModelName;

emiMobileServer/Source/Ws.Service.pas

@@ -10,6 +10,7 @@ const
 
 type
   [ServiceContract, Model(WS_MODEL)]
+  [Route('ws')]
   IWebSocketService = interface(IInvokable)
     ['{673FE678-D9EF-468D-89CB-CEF26E8758BC}']
     [HttpGet, Route('emimobile')]