debugging websockets

emiMobileServer/Source/Auth.Server.Module.pas

@@ -43,7 +43,9 @@ uses
   Sparkle.Middleware.Compress,
   XData.OpenApi.Service,
   Common.Logging,
-  Common.Middleware.Logging;
+  Common.Middleware.Logging,
+  System.Rtti,
+  Auth.Service;
 
 {%CLASSGROUP 'Vcl.Controls.TControl'}
 
@@ -55,7 +57,27 @@ procedure TAuthServerModule.StartAuthServer(ABaseUrl: string;
   AModelName: string);
 var
   Url: string;
+  ctx: TRttiContext;
+  t: TRttiType;
+  attr: TCustomAttribute;
+  s: string;
 begin
+  ctx := TRttiContext.Create;
+  try
+    t := ctx.GetType(TypeInfo(IAuthService));
+    if t = nil then
+      Logger.Log(1, 'AUTH-DIAG: IAuthService RTTI=NIL')
+    else
+    begin
+      Logger.Log(1, 'AUTH-DIAG: IAuthService RTTI.Name=[' + t.Name + ']');
+      s := '';
+      for attr in t.GetAttributes do
+        s := s + attr.ClassName + ' ';
+      Logger.Log(1, 'AUTH-DIAG: IAuthService attrs=[' + s + ']');
+    end;
+  finally
+    ctx.Free;
+  end;
   RegisterOpenApiService;
 
   Url := ABaseUrl;