debugging websockets

emiMobileServer/Source/Ws.Server.Module.dfm

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

emiMobileServer/Source/Ws.Server.Module.pas

@@ -65,14 +65,19 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string);
 var
   Url: string;
 begin
+  Logger.Log(1, 'StartWsServer: enter, XDataServer1.ModelName=[' + XDataServer1.ModelName + ']');
   RegisterOpenApiService;
   RegisterServiceType(TWebSocketService);
+  Logger.Log(1, 'StartWsServer: RegisterServiceType(TWebSocketService) called');
   Url := ABaseUrl;
   if not Url.EndsWith('/') then
     Url := Url + '/';
   Url := Url + SERVER_PATH_SEGMENT;
   XDataServer1.BaseUrl := Url;
+  XDataServer1.ModelName := '';
+  Logger.Log(1, 'StartWsServer: ModelName cleared to empty');
   XDataServer1.ModelName := AModelName;
+  Logger.Log(1, 'StartWsServer: ModelName set to [' + XDataServer1.ModelName + ']');
   SparkleHttpSysDispatcher3.Start;
   Logger.Log(1, Format('Ws server module listening at "%s"', [Url]));
 end;