debuggiong websockets

emiMobileServer/Source/Ws.Server.Module.pas

@@ -46,6 +46,8 @@ uses
   Common.Logging,
   Common.Middleware.Logging,
   Common.Config, Vcl.Forms, IniFiles,
+  System.Rtti,
+  Ws.Service,
   Ws.ServiceImpl;
 
 {%CLASSGROUP 'Vcl.Controls.TControl'}
@@ -59,9 +61,41 @@ uses
 procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string);
 var
   Url: string;
+  ctx: TRttiContext;
+  t: TRttiType;
+  attr: TCustomAttribute;
+  m: TRttiMethod;
+  s: string;
 begin
   Logger.Log(1, 'WS-DIAG: StartWsServer enter, AModelName=[' + AModelName + ']');
   Logger.Log(1, 'WS-DIAG: XDataServer1.ModelName before=[' + XDataServer1.ModelName + ']');
+
+  ctx := TRttiContext.Create;
+  try
+    t := ctx.GetType(TypeInfo(IWebSocketService));
+    if t = nil then
+      Logger.Log(1, 'WS-DIAG: IWebSocketService RTTI=NIL')
+    else
+    begin
+      Logger.Log(1, 'WS-DIAG: IWebSocketService RTTI.Name=[' + t.Name + ']');
+      s := '';
+      for attr in t.GetAttributes do
+        s := s + attr.ClassName + ' ';
+      Logger.Log(1, 'WS-DIAG: IWebSocketService attrs=[' + s + ']');
+      s := '';
+      for m in t.GetMethods do
+      begin
+        s := s + m.Name + '(';
+        var ma := '';
+        for attr in m.GetAttributes do
+          ma := ma + attr.ClassName + ' ';
+        s := s + ma + ') ';
+      end;
+      Logger.Log(1, 'WS-DIAG: IWebSocketService methods=[' + s + ']');
+    end;
+  finally
+    ctx.Free;
+  end;
   RegisterOpenApiService;
   Logger.Log(1, 'WS-DIAG: RegisterOpenApiService done');
   Url := ABaseUrl;