Browse Source

* Correctly unregister all routes. Do not call register routes when already registered

Michaël Van Canneyt 1 year ago
parent
commit
d0dd4697fa
1 changed files with 5 additions and 1 deletions
  1. 5 1
      packages/fcl-web/src/restbridge/sqldbrestbridge.pp

+ 5 - 1
packages/fcl-web/src/restbridge/sqldbrestbridge.pp

@@ -547,7 +547,10 @@ begin
   if Not (csLoading in ComponentState) then
     begin
     if AValue then
-      DoRegisterRoutes
+      begin
+      if FListRoute=Nil then
+        RegisterRoutes;
+      end
     else
       UnRegisterRoutes;
     end;
@@ -2204,6 +2207,7 @@ procedure TSQLDBRestDispatcher.UnRegisterRoutes;
   end;
 
 begin
+  Un(FParamRoute);
   Un(FListRoute);
   Un(FItemRoute);
   Un(FConnectionItemRoute);