From a462acdb197a0748bbddd7b96b26f00bc696c8eb Mon Sep 17 00:00:00 2001 From: Ondrej Pokorny Date: Sat, 9 Dec 2023 11:52:02 +0100 Subject: [PATCH] fix EncodeURLElement string types --- packages/fcl-web/src/base/fphttpclient.pp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/packages/fcl-web/src/base/fphttpclient.pp b/packages/fcl-web/src/base/fphttpclient.pp index 946e49233a..fef23413a9 100644 --- a/packages/fcl-web/src/base/fphttpclient.pp +++ b/packages/fcl-web/src/base/fphttpclient.pp @@ -432,6 +432,7 @@ Type // writing to socket EHTTPClientSocketWrite = Class(EHTTPClientSocket); +Function EncodeURLElement(const S : AnsiString) : AnsiString; Function EncodeURLElement(const S : UnicodeString) : UnicodeString; Function DecodeURLElement(const S : AnsiString) : AnsiString; function DecodeURLElement(const S: UnicodeString): UnicodeString; @@ -455,6 +456,11 @@ Const function EncodeURLElement(const S: UnicodeString): UnicodeString; +begin + Result:=UTF8Decode(EncodeURLElement(UTF8Encode(S))); +end; + +function EncodeURLElement(const S : AnsiString) : AnsiString; Const NotAllowed = [ ';', '/', '?', ':', '@', '=', '&', '#', '+', '_', '<', '>',