Explorar o código

* Set result correctly in TCORSSupport.HandleRequest

Michaël Van Canneyt %!s(int64=2) %!d(string=hai) anos
pai
achega
209fe88866
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      packages/fcl-web/src/base/httpdefs.pp

+ 3 - 0
packages/fcl-web/src/base/httpdefs.pp

@@ -1018,7 +1018,10 @@ begin
       if MaxAge>0 then
       if MaxAge>0 then
         SetCustomHeader('Access-Control-Max-Age',IntToStr(MaxAge));
         SetCustomHeader('Access-Control-Max-Age',IntToStr(MaxAge));
       if (hcSend in aOptions) then
       if (hcSend in aOptions) then
+        begin
         SetStatus(200,True);
         SetStatus(200,True);
+        Result:=True;
+        end;
       end;
       end;
     end;
     end;
 end;
 end;