more logging to debug websocket

emiMobileServer/Source/Common.Middleware.Logging.pas

@@ -15,11 +15,12 @@ type
   TLoggingMiddleware = class(THttpServerMiddleware, IHttpServerMiddleware)
   private
     FLogger: ILogger;
+    FLogLevel: Integer;
     function GetNewHttpRequestLog(Request: THttpServerRequest): ILog;
   protected
     procedure ProcessRequest(Context: THttpServerContext; Next: THttpServerProc); override;
   public
-    constructor Create(ALogger: ILogger);
+    constructor Create(ALogger: ILogger; ALogLevel: Integer = 5);
   end;
 
   THttpRequestLog = class( TInterfacedObject, ILog )
@@ -60,9 +61,10 @@ implementation
 
 { TLoggingMiddleware }
 
-constructor TLoggingMiddleware.Create(ALogger: ILogger);
+constructor TLoggingMiddleware.Create(ALogger: ILogger; ALogLevel: Integer = 5);
 begin
   FLogger := TLogger.Create(ALogger);
+  FLogLevel := ALogLevel;
 end;
 
 function TLoggingMiddleware.GetNewHttpRequestLog(
@@ -116,11 +118,11 @@ begin
     procedure(Resp: THttpServerResponse)
     begin
       if (Resp.StatusCode >= 400) and (Resp.StatusCode <= 499) then
-        FLogger.Log(5, Format('%d %s on %s', [Resp.StatusCode, Resp.StatusReason, RequestLogMessage]));
+        FLogger.Log(FLogLevel, Format('%d %s on %s', [Resp.StatusCode, Resp.StatusReason, RequestLogMessage]));
     end
   );
   RequestLogMessage := GetNewHttpRequestLog(Context.Request).GetMessage;
-  FLogger.Log(5, RequestLogMessage);
+  FLogger.Log(FLogLevel, RequestLogMessage);
   Next(Context);
 end;
 

emiMobileServer/Source/Ws.Server.Module.dfm

@@ -19,6 +19,10 @@ object WsServerModule: TWsServerModule
     object XDataServer1Logging: TSparkleGenericMiddleware
       OnMiddlewareCreate = XDataServer1LoggingMiddlewareCreate
     end
+    object XDataServer1WebSocket: TSparkleWebSocketMiddleware
+      AllowedOrigins.Strings = (
+        '*')
+    end
     object XDataServer1CORS: TSparkleCorsMiddleware
     end
     object XDataServer1Compress: TSparkleCompressMiddleware
@@ -26,9 +30,5 @@ object WsServerModule: TWsServerModule
     object XDataServer1JWT: TSparkleJwtMiddleware
       OnGetSecret = XDataServer1JWTGetSecret
     end
-    object XDataServer1WebSocket: TSparkleWebSocketMiddleware
-      AllowedOrigins.Strings = (
-        '*')
-    end
   end
 end

emiMobileServer/Source/Ws.Server.Module.pas

@@ -83,7 +83,7 @@ end;
 procedure TWsServerModule.XDataServer1LoggingMiddlewareCreate(Sender: TObject;
   var Middleware: IHttpServerMiddleware);
 begin
-  Middleware := TLoggingMiddleware.Create(Logger);
+  Middleware := TLoggingMiddleware.Create(Logger, 1);
 end;
 
 procedure TWsServerModule.XDataServer1JWTGetSecret(Sender: TObject;