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

fix EncodeURLElement string types

Browse Source
This commit is contained in:
Ondrej Pokorny 2023-12-09 11:52:02 +01:00
parent 2648f8151d
commit a462acdb19
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -432,6 +432,7 @@ Type
// writing to socket // writing to socket
EHTTPClientSocketWrite = Class(EHTTPClientSocket); EHTTPClientSocketWrite = Class(EHTTPClientSocket);
Function EncodeURLElement(const S : AnsiString) : AnsiString;
Function EncodeURLElement(const S : UnicodeString) : UnicodeString; Function EncodeURLElement(const S : UnicodeString) : UnicodeString;
Function DecodeURLElement(const S : AnsiString) : AnsiString; Function DecodeURLElement(const S : AnsiString) : AnsiString;
function DecodeURLElement(const S: UnicodeString): UnicodeString; function DecodeURLElement(const S: UnicodeString): UnicodeString;
@ -455,6 +456,11 @@ Const
function EncodeURLElement(const S: UnicodeString): UnicodeString; function EncodeURLElement(const S: UnicodeString): UnicodeString;
begin
Result:=UTF8Decode(EncodeURLElement(UTF8Encode(S)));
end;
function EncodeURLElement(const S : AnsiString) : AnsiString;
Const Const
NotAllowed = [ ';', '/', '?', ':', '@', '=', '&', '#', '+', '_', '<', '>', NotAllowed = [ ';', '/', '?', ':', '@', '=', '&', '#', '+', '_', '<', '>',