* Patch from Luca Olivetti to fix memleak in CORS support. Fixes issu…

…e #39886
loongson · Sep 8, 2022 · bc100ed · bc100ed
1 parent b6a7504
commit bc100ed
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/packages/fcl-web/src/base/fphttp.pp b/packages/fcl-web/src/base/fphttp.pp
@@ -119,6 +119,7 @@
     Property CORS : TCORSSupport Read FCORS Write SetCORS;
   public
     Constructor CreateNew(aOwner : TComponent; CreateMode: Integer); overload; override;
+    destructor Destroy;override;
     Class Procedure RegisterModule(Const AModuleName : String = ''); overload;
     Class Procedure RegisterModule(Const AModuleName : String; ASkipStreaming : Boolean); overload;
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); virtual; abstract;
@@ -322,6 +323,12 @@ constructor TCustomHTTPModule.CreateNew(aOwner: TComponent; CreateMode: Integer)
   FCORS:=CreateCORSSupport;
 end;
 
+destructor TCustomHTTPModule.Destroy;
+begin
+  FCORS.Free;
+  inherited Destroy;
+end;
+
 Class Procedure TCustomHTTPModule.RegisterModule(Const AModuleName: String);
 begin
   RegisterModule(AModuleName,DefaultSkipStreaming);