diff options
| -rw-r--r-- | packages/fcl-web/src/base/httpdefs.pp | 3 |
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; |