diff --git a/packages/fcl-web/src/base/httpdefs.pp b/packages/fcl-web/src/base/httpdefs.pp index 14ececd117..e06d54b731 100644 --- a/packages/fcl-web/src/base/httpdefs.pp +++ b/packages/fcl-web/src/base/httpdefs.pp @@ -1921,8 +1921,10 @@ begin VN:=Copy(S,1,P-1); Delete(S,1,P); P:=GetFieldNameIndex(VN); - If (P<>-1) then - SetFieldValue(P,S); + If (P<>0) then // Changed -1 in 0 + SetFieldValue(P,trim(S)) // Added TRIM + else // Added else + SetCustomHeader(VN, trim(S)); end; Inc(Result); end; @@ -2292,7 +2294,8 @@ begin begin FHttpVersion := Copy(URI, i + 1, Length(URI)); URI := Copy(URI, 1, i - 1); - FHttpVersion := Copy(HttpVersion, Pos('/', HttpVersion) + 1, Length(HttpVersion)); + FHttpVersion := Copy(FHttpVersion, Pos('/', FHttpVersion) + 1, Length(FHttpVersion)); // Changed HttpVersion in HttpVersion + HTTPVersion:= FHttpVersion; end; // Extract query string