debugging websockerts

emiMobileServer/Source/Ws.Server.Module.dfm

@@ -11,7 +11,6 @@ object WsServerModule: TWsServerModule
   end
   object XDataServer1: TXDataServer
     Dispatcher = SparkleHttpSysDispatcher3
-    ModelName = 'WsApi'
     EntitySetPermissions = <>
     SwaggerOptions.Enabled = True
     SwaggerUIOptions.Enabled = True

emiMobileServer/Source/Ws.Server.Module.pas

@@ -49,7 +49,8 @@ uses
   XData.Sys.Exceptions,
   Common.Logging,
   Common.Middleware.Logging,
-  Common.Config, Vcl.Forms, IniFiles;
+  Common.Config, Vcl.Forms, IniFiles,
+  Ws.ServiceImpl;
 
 {%CLASSGROUP 'Vcl.Controls.TControl'}
 
@@ -69,6 +70,7 @@ begin
     Url := Url + '/';
   Url := Url + SERVER_PATH_SEGMENT;
   XDataServer1.BaseUrl := Url;
+  RegisterServiceType(TWebSocketService);
   XDataServer1.ModelName := AModelName;
   SparkleHttpSysDispatcher3.Start;
   Logger.Log(1, Format('Ws server module listening at "%s"', [Url]));

emiMobileServer/Source/Ws.ServiceImpl.pas

@@ -93,7 +93,4 @@ begin
   end;
 end;
 
-initialization
-  RegisterServiceType(TWebSocketService);
-
 end.