소스 검색

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

Michaël Van Canneyt 1 년 전
부모
커밋
d0dd4697fa
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  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);