debugging websocket

emiMobileServer/Source/Ws.Server.Module.pas

@@ -49,9 +49,7 @@ uses
   XData.Sys.Exceptions,
   Common.Logging,
   Common.Middleware.Logging,
-  Common.Config, Vcl.Forms, IniFiles,
-  XData.Service.Common,
-  Ws.ServiceImpl;
+  Common.Config, Vcl.Forms, IniFiles;
 
 {%CLASSGROUP 'Vcl.Controls.TControl'}
 
@@ -65,17 +63,13 @@ 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 := AModelName;
-  Logger.Log(1, 'StartWsServer: ModelName set to [' + XDataServer1.ModelName + ']');
   SparkleHttpSysDispatcher3.Start;
   Logger.Log(1, Format('Ws server module listening at "%s"', [Url]));
 end;