debugging websockets

07ce1192 · Michael Brachmann · c04b587e · 07ce1192
Commit 07ce1192 authored May 31, 2026 by Michael Brachmann
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletions

Ws.ServiceImpl.pas emiMobileServer/Source/Ws.ServiceImpl.pas +2 -1

No files found.
--- a/emiMobileServer/Source/Ws.ServiceImpl.pas
+++ b/emiMobileServer/Source/Ws.ServiceImpl.pas
@@ -20,8 +20,9 @@ uses
 type
  [ServiceImplementation]
  TWebSocketService = class(TInterfacedObject, IWebSocketService)
-  private
+  public
    function WebSockerConnectionHandler: string;
+  private
    function Health: string;
    procedure ProcessJsonMessage(const AMsg: string);
  end;