diff options
Diffstat (limited to 'packages/fcl-web')
| -rw-r--r-- | packages/fcl-web/src/base/httpdefs.pp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/packages/fcl-web/src/base/httpdefs.pp b/packages/fcl-web/src/base/httpdefs.pp index 5a512568bf..b0ebe45cb5 100644 --- a/packages/fcl-web/src/base/httpdefs.pp +++ b/packages/fcl-web/src/base/httpdefs.pp @@ -59,10 +59,8 @@ const fieldSetCookie = 'Set-Cookie'; fieldUserAgent = 'User-Agent'; fieldWWWAuthenticate = 'WWW-Authenticate'; - fieldHost = 'Host'; - fieldCacheControl = 'Cache-Control'; - NoHTTPFields = 26; + NoHTTPFields = 24; HTTPDateFmt = '"%s", dd "%s" yyyy hh:mm:ss'; // For use in FormatDateTime SCookieExpire = ' "Expires="'+HTTPDateFmt+' "GMT"'; @@ -91,8 +89,7 @@ Const fieldContentType, fieldCookie, fieldDate, fieldExpires, fieldFrom, fieldIfModifiedSince, fieldLastModified, fieldLocation, fieldPragma, fieldReferer, fieldRetryAfter, fieldServer, - fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate, fieldHost, - fieldCacheControl); + fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate); type @@ -868,7 +865,7 @@ end; Procedure THttpHeader.SetFieldValue(Index : Integer; Value : String); begin - if (Index>=1) and (Index<=NoHTTPFields) then + if (Index>1) and (Index<NoHTTPFields) then begin FFields[Index]:=Value; If (Index=11) then |