* Introduce DefaultRequestUploadDir for easy configuration of Upload directory location

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@33032 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 1 deletions

diff --git a/packages/fcl-web/src/base/httpdefs.pp b/packages/fcl-web/src/base/httpdefs.pp
index ba53b9d0df..0fc92ff5af 100644
--- a/packages/fcl-web/src/base/httpdefs.pp
+++ b/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;