debugging routing

emiMobileServer/Source/Ws.Server.Module.dfm

 object WsServerModule: TWsServerModule
   Height = 273
   Width = 230
-  object SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher
+  object SparkleHttpSysDispatcher3: TSparkleHttpSysDispatcher
     Left = 84
     Top = 30
   end
   object XDataServer1: TXDataServer
-    Dispatcher = SparkleHttpSysDispatcher
+    Dispatcher = SparkleHttpSysDispatcher3
     ModelName = 'Ws'
-    UnknownMemberHandling = Error
     EntitySetPermissions = <>
     SwaggerOptions.Enabled = True
     SwaggerOptions.AuthMode = Jwt
@@ -17,19 +16,18 @@ object WsServerModule: TWsServerModule
     SwaggerUIOptions.TryItOutEnabled = True
     Left = 85
     Top = 110
+    object XDataServer1WebSocket: TSparkleWebSocketMiddleware
+      AllowedOrigins.Strings = (
+        '*')
+    end
     object XDataServer1Logging: TSparkleGenericMiddleware
       OnMiddlewareCreate = XDataServer1LoggingMiddlewareCreate
     end
     object XDataServer1CORS: TSparkleCorsMiddleware
+      Methods = 'Get'
     end
     object XDataServer1JWT: TSparkleJwtMiddleware
       OnGetSecret = XDataServer1JWTGetSecret
     end
-    object XDataServer1WebSocket: TSparkleWebSocketMiddleware
-      AllowedOrigins.Strings = (
-        '*')
-    end
-    object XDataServer1Compress: TSparkleCompressMiddleware
-    end
   end
 end

emiMobileServer/Source/Ws.Server.Module.pas

@@ -14,15 +14,14 @@ uses
   Sparkle.Comp.CompressMiddleware, Sparkle.Comp.CorsMiddleware,
   Sparkle.Comp.GenericMiddleware,  Sparkle.Middleware.WebSocket, Sparkle.Comp.WebSocketMiddleware,
   Aurelius.Drivers.UniDac, UniProvider,
-  Data.DB, DBAccess, Uni;
+  Data.DB, DBAccess, Uni, Sparkle.Comp.ForwardMiddleware;
 
 type
   TWsServerModule = class(TDataModule)
-    SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher;
+    SparkleHttpSysDispatcher3: TSparkleHttpSysDispatcher;
     XDataServer1: TXDataServer;
     XDataServer1Logging: TSparkleGenericMiddleware;
     XDataServer1CORS: TSparkleCorsMiddleware;
-    XDataServer1Compress: TSparkleCompressMiddleware;
     XDataServer1JWT: TSparkleJwtMiddleware;
     XDataServer1WebSocket: TSparkleWebSocketMiddleware;
 
@@ -74,7 +73,8 @@ begin
   XDataServer1.BaseUrl := Url;
   XDataServer1.ModelName := AModelName;
   //XDataServer1JWT.Secret := 'token';
-  SparkleHttpSysDispatcher.Start;
+  //SparkleHttpSysDispatcher3.HttpSys.KeepHostInUrlPrefixes := True;
+  SparkleHttpSysDispatcher3.Start;
   Logger.Log(1, Format('Ws server module listening at "%s"', [Url]));
 end;
 

emiMobileServer/Source/Ws.Service.pas

@@ -9,12 +9,12 @@ const
   WS_MODEL = 'Ws';
 
 type
-  [ServiceContract]
-  [Route('ws')]
+  [ServiceContract, Model(WS_MODEL)]
+  //[Route('ws')]
   IWebSocketService = interface(IInvokable)
     ['{673FE678-D9EF-468D-89CB-CEF26E8758BC}']
     [HttpGet, Route('emimobile')]
-    procedure WebSockerConnectionHandler;
+    procedure  WebSockerConnectionHandler;
   end;
 
 implementation