* Allow selectively adding handlers to reported API

git-svn-id: trunk@28193 -

packages/fcl-web/src/jsonrpc/fpextdirect.pp

@@ -24,6 +24,10 @@ Type
   Protected
     function FormatResult(const AClassName, AMethodName: TJSONStringType;
       const Params, ID, Return: TJSONData): TJSONData; override;
+    // Called during API creation. Can be used to restrict list of reported handlers.
+    Function PublishHandler(H: TCustomJSONRPCHandler): Boolean; virtual;
+    // Called during API creation. Can be used to restrict list of reported handlers.
+    Function PublishHandlerDef(HD: TJSONRPCHandlerDef): Boolean; virtual;
     // 'tid'
     Class Function TransactionProperty : String; override;
     // 'method'
@@ -224,6 +228,18 @@ begin
   Result:=TJSONObject.Create(['name',H.HandlerMethodName,'len',H.ArgumentCount])
 end;
 
+Function TCustomExtDirectDispatcher.PublishHandler(H : TCustomJSONRPCHandler) : Boolean;
+
+begin
+  Result:=(H<>Nil); // Avoid warning
+end;
+
+Function TCustomExtDirectDispatcher.PublishHandlerDef(HD : TJSONRPCHandlerDef) : Boolean;
+
+begin
+  Result:=(HD<>Nil); // Avoid warning
+end;
+
 Function TCustomExtDirectDispatcher.DoAPI: TJSONData;
 
 Var
@@ -249,6 +265,9 @@ begin
       begin
       for I:=Owner.ComponentCount-1 downto 0 do
         If Owner.Components[i] is TCustomJSONRPCHandler then
+          begin
+          H:=Owner.Components[i] as TCustomJSONRPCHandler;
+          if PublishHandler(H) then
             begin
             If (R=Nil) then
               begin
@@ -256,25 +275,24 @@ begin
               R:=TJSONArray.Create;
               A.Add(N,R);
               end;
-          H:=Owner.Components[i] as TCustomJSONRPCHandler;
             R.Add(HandlerToAPIMethod(H));
             end;
           end;
+      end;
     If (jdoSearchRegistry in Options) then
       begin
       M:=JSONRPCHandlerManager;
       For I:=M.HandlerCount-1 downto 0 do
         begin
         HD:=M.HandlerDefs[i];
-  {$ifdef extdebug}SendDebugFmt('Creating API entry for %s.%s',[HD.HandlerClassName,HD.HandlerMethodName]);{$endif}
+        if PublishHandlerDef(HD) then
+          begin
           If (R=Nil) or (CompareText(N,HD.HandlerClassName)<>0) then
             begin
-  {$ifdef extdebug}SendDebugFmt('Seems like new action entry : %s<> %s',[HD.HandlerClassName,N]);{$endif}
             N:=HD.HandlerClassName;
             J:=A.IndexOfName(N);
             If (J=-1) then
               begin
-  {$ifdef extdebug}SendDebugFmt('Creating new action entry : %s ',[N]);{$endif}
               R:=TJSONArray.Create;
               A.Add(N,R);
               end
@@ -284,6 +302,7 @@ begin
           R.Add(HandlerDefToAPIMethod(HD));
           end;
         end;
+      end;
     Result:=D;
   except
     FreeAndNil(D);