* Assign filename to uploaded file (bug id 18337; Firefox engine allows empty name)

git-svn-id: trunk@17380 -

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

@@ -1270,7 +1270,8 @@ begin
       FI:=TFormItem(L[i]);
       FI.Process;
       If (FI.Name='') then
-        Raise Exception.CreateFmt('Invalid multipart encoding: %s',[FI.Data]);
+        Fi.Name:='DummyFileItem'+IntToStr(i);
+        //Raise Exception.CreateFmt('Invalid multipart encoding: %s',[FI.Data]);
 {$ifdef CGIDEBUG}
       With FI Do
         begin