debugging websockets

emiMobileServer/Source/Ws.Server.Module.pas

@@ -64,14 +64,31 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string);
 var
   Url: string;
 begin
+  Logger.Log(1, 'WS-DIAG: StartWsServer enter, AModelName=[' + AModelName + ']');
+  Logger.Log(1, 'WS-DIAG: XDataServer1.ModelName before=[' + XDataServer1.ModelName + ']');
   RegisterOpenApiService;
+  Logger.Log(1, 'WS-DIAG: RegisterOpenApiService done');
   Url := ABaseUrl;
   if not Url.EndsWith('/') then
     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;
+    Logger.Log(1, 'WS-DIAG: ModelName set, current value=[' + XDataServer1.ModelName + ']');
+  except
+    on E: Exception do
+      Logger.Log(1, 'WS-DIAG: ModelName assignment FAILED: ' + E.ClassName + ': ' + E.Message);
+  end;
   SparkleHttpSysDispatcher3.Start;
   Logger.Log(1, Format('Ws server module listening at "%s"', [Url]));
 end;