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

* Uppercase argument for GetHTTPStatusText

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-04 13:12:17 +02:00
parent 66a1486f32
commit a390a27420
1 changed files with 5 additions and 3 deletions

8
packages/fcl-web/src/base/httpprotocol.pp
View File

@ -133,7 +133,7 @@ Function HTTPDecode(const AStr: String): String;
Function HTTPEncode(const AStr: String): String;
Function IncludeHTTPPathDelimiter(const AStr: String): String;
Function ExcludeHTTPPathDelimiter(const AStr: String): String;
Function GetHTTPStatusText (ACode: Integer) : String;
Function GetHTTPStatusText (ACode: Cardinal; aUppercase : Boolean = False) : String;
implementation
@ -269,7 +269,7 @@ begin
Result:=AStr;
end;
Function GetHTTPStatusText (ACode: Integer) : String;
Function GetHTTPStatusText (ACode: Cardinal; aUppercase : Boolean = False) : String;
begin
Case ACode of
@ -326,8 +326,10 @@ begin
504 : Result:='Gateway Time-out';
505 : Result:='HTTP Version not supported';
else
Result:='Unknown status';
Result:=Format('Unknown status: %d',[aCode]);
end;
If aUpperCase then
Result:=Uppercase(Result);
end;
end.