|
|
@@ -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
|
michael