debugging routing

emiMobileServer/Source/Ws.Service.pas

@@ -15,6 +15,8 @@ type
     ['{673FE678-D9EF-468D-89CB-CEF26E8758BC}']
     [HttpGet, Route('emimobile')]
     procedure WebSockerConnectionHandler;
+    [HttpGet, Route('health')]
+    function Health: string;
   end;
 
 implementation

emiMobileServer/Source/Ws.ServiceImpl.pas

@@ -22,6 +22,7 @@ type
   TWebSocketService = class(TInterfacedObject, IWebSocketService)
   private
     procedure WebSockerConnectionHandler;
+    function Health: string;
     procedure ProcessJsonMessage(const AMsg: string);
   end;
 
@@ -88,6 +89,11 @@ begin
   end;
 end;
 
+function TWebSocketService.Health: string;
+begin
+  Result := 'ok';
+end;
+
 procedure TWebSocketService.ProcessJsonMessage(const AMsg: string);
 var
   MsgDTO:  TBaseRequest;