debugging websocket

emiMobileServer/Source/Ws.Server.Module.dfm

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

emiMobileServer/Source/Ws.Service.pas

@@ -7,12 +7,13 @@ uses
   System.JSON;
 
 const
-  WS_MODEL = 'Ws';
+  WS_MODEL = 'WsApi';
 
 type
   [ServiceContract, Model(WS_MODEL)]
   IWebSocketService = interface(IInvokable)
     ['{673FE678-D9EF-468D-89CB-CEF26E8758BC}']
+    [HttpGet] function Ping: TJSONObject;
     [HttpGet] function WebSockerConnectionHandler: TJSONObject;
   end;
 

emiMobileServer/Source/Ws.ServiceImpl.pas

@@ -12,6 +12,7 @@ type
   [ServiceImplementation]
   TWebSocketService = class(TInterfacedObject, IWebSocketService)
   public
+    function Ping: TJSONObject;
     function WebSockerConnectionHandler: TJSONObject;
   end;
 
@@ -24,6 +25,13 @@ uses
   Sparkle.Sys.Timer,
   Sparkle.HttpServer.Context;
 
+function TWebSocketService.Ping: TJSONObject;
+begin
+  Result := TJSONObject.Create;
+  Result.AddPair('status', 'ok');
+  TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
+end;
+
 function TWebSocketService.WebSockerConnectionHandler: TJSONObject;
 var
   Upgrader: IWebSocketUpgrader;