paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 07:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better SetfieldByName/GetFieldByName

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-01 08:46:09 +02:00
parent 54e0d97278
commit 5dc1d5e93b
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-web/src/base/httpdefs.pp
View File

@ -1740,13 +1740,14 @@ end;
function THTTPHeader.GetFieldByName(const AName: String): String;
var
i: Integer;
H : THeader;
begin
I:=GetFieldNameIndex(AName);
If (I<>0) then
Result:=self.GetFieldValue(i)
H:=HeaderType(aName);
If (h<>hhUnknown) then
Result:=GetHeader(h)
else
Result:=GetCustomHeader(AName);
end;
@ -1827,13 +1828,14 @@ begin
end;
procedure THTTPHeader.SetFieldByName(const AName, AValue: String);
var
i: Integer;
H : THeader;
begin
I:=GetFieldNameIndex(AName);
If (I<>0) then
SetFieldValue(i,AValue)
H:=HeaderType(aName);
If (h<>hhUnknown) then
SetHeader(H,aValue)
else
SetCustomHeader(AName,AValue);
end;
@ -2141,6 +2143,7 @@ begin
FCommandLine := line;
i := Pos(' ', line);
FCommand := UpperCase(Copy(line, 1, i - 1));
Method:=FCommand;
URI := Copy(line, i + 1, Length(line));
// Extract HTTP version