* Fixed streaming of TWebModule.Kind property

 * Free the webmodule when Kind is wkOneShot and an exception occurs

git-svn-id: trunk@14518 -

packages/fcl-web/src/custweb.pp

@@ -250,7 +250,16 @@ begin
     M:=FindModule(MC); // Check if a module exists already
     If (M=Nil) then
       M:=MC.Create(Self);
-    M.HandleRequest(ARequest,AResponse);
+    if M.Kind=wkOneShot then
+      begin
+      try
+        M.HandleRequest(ARequest,AResponse);
+      finally
+        M.Free;
+      end;
+      end
+    else
+      M.HandleRequest(ARequest,AResponse);
     if M.Kind=wkOneShot then
       M.Free;
   except

packages/fcl-web/src/fphttp.pp

@@ -105,7 +105,7 @@ Type
     FWebModuleKind: TWebModuleKind;
   public
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); virtual; abstract;
-    property Kind: TWebModuleKind read FWebModuleKind write FWebModuleKind default wkOneShot;
+    property Kind: TWebModuleKind read FWebModuleKind write FWebModuleKind default wkPooled;
   end;
   
   TCustomHTTPModuleClass = Class of TCustomHTTPModule;