paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-05 23:10:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for Mantis #37448: apply changes by Taufik Rahmad Hidayanto to fix the lengths of various response elements

Browse Source 
git-svn-id: trunk@45991 -
This commit is contained in:
svenbarth 2020-08-02 15:18:32 +00:00
parent 346adf7f55
commit e5308038a9
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-web/src/base/custhttpsys.pp
View File

@ -249,8 +249,10 @@ begin
resp := Default(HTTP_RESPONSE);
resp.Version := fRequestVersion;
resp.StatusCode := Code;
if CodeText <> '' then
if CodeText <> '' then begin
resp.pReason := PChar(CodeText);
resp.ReasonLength := Length(CodeText);
end;
flags := 0;
if (Assigned(ContentStream) and (ContentStream.Size > 0)) or (Contents.Count > 0) then
@ -291,7 +293,7 @@ begin
headerstrs.Add(headerval);
resp.Headers.KnownHeaders[Ord(headerid)].RawValueLength := Length(headerval) + 1;
resp.Headers.KnownHeaders[Ord(headerid)].RawValueLength := Length(headerval);
resp.Headers.KnownHeaders[Ord(headerid)].pRawValue := PAnsiChar(headerstrs[headerstrs.Count - 1]);
end;
@ -301,11 +303,11 @@ begin
headerval := unknownheaders.ValueFromIndex[i];
headerstrs.Add(headerstr);
unknownheadersarr[i].NameLength := Length(headerstr) + 1;
unknownheadersarr[i].NameLength := Length(headerstr);
unknownheadersarr[i].pName := PAnsiChar(headerstrs[headerstrs.Count - 1]);
headerstrs.Add(headerval);
unknownheadersarr[i].RawValueLength := Length(headerval) + 1;
unknownheadersarr[i].RawValueLength := Length(headerval);
unknownheadersarr[i].pRawValue := PAnsiChar(headerstrs[headerstrs.Count - 1]);
end;