debugging websockets

emiMobileServer/Source/Ws.Server.Module.dfm

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

emiMobileServer/Source/Ws.Server.Module.pas

@@ -72,14 +72,6 @@ begin
     Url := Url + '/';
   Url := Url + SERVER_PATH_SEGMENT;
   XDataServer1.BaseUrl := Url;
-  Logger.Log(1, 'WS-DIAG: about to RegisterServiceType(TWebSocketService)');
-  try
-    RegisterServiceType(TWebSocketService);
-    Logger.Log(1, 'WS-DIAG: RegisterServiceType succeeded');
-  except
-    on E: Exception do
-      Logger.Log(1, 'WS-DIAG: RegisterServiceType FAILED: ' + E.ClassName + ': ' + E.Message);
-  end;
   Logger.Log(1, 'WS-DIAG: about to set ModelName to [' + AModelName + ']');
   try
     XDataServer1.ModelName := AModelName;

emiMobileServer/Source/Ws.ServiceImpl.pas

@@ -28,4 +28,8 @@ begin
   Result := nil;
 end;
 
+
+initialization
+  RegisterServiceType(TWebSocketService);
+
 end.