* Introduce DefaultRequestUploadDir for easy configuration of Upload directory location

git-svn-id: trunk@33032 -

packages/fcl-web/src/base/httpdefs.pp

@@ -437,6 +437,7 @@ type
     Procedure InitContent(Var AContent : String);
     Property ContentRead : Boolean Read FContentRead Write FContentRead;
   public
+    Class Var DefaultRequestUploadDir : String;
     constructor Create; override;
     destructor destroy; override;
     Function GetNextPathInfo : String;
@@ -1662,7 +1663,7 @@ end;
 function TRequest.RequestUploadDir: String;
 
 begin
-  Result:='';
+  Result:=DefaultRequestUploadDir;
 end;
 
 function TRequest.GetTempUploadFileName(const AName, AFileName: String;