correção (#385)

Author: Ronierys2

CORE/Source/Basic/uRESTDWBasic.pas

@@ -3418,8 +3418,13 @@ procedure TRESTClientPoolerBase.SetIpVersion(IpV: TRESTDWClientIpVersions);
  vDataBuff             := '';
  vRequestHeader        := TStringList.Create;
  vCompareContext       := False;
+ { TODO 1 -oRoniery -ccorreção : função para fazer decode de url utf8 para ascii }
+ RawHTTPCommand        :=  DecodeURL(RawHTTPCommand);
+ QueryParams           :=  DecodeURL(QueryParams);
  Cmd                   := RemoveBackslashCommands(Trim(RawHTTPCommand));
  vUrlToExec            := '';
+ 
+ 
  Try
   sCharSet := '';
   If (UpperCase(Copy (Cmd, 1, 3)) = 'GET')    Then

CORE/Source/utils/uRESTDWTools.pas

@@ -457,6 +457,8 @@ interface
                                      Const CharSet : TCharSet) : Boolean;Overload;
  Procedure InitializeStrings;
 
+ function DecodeURL(const urlEncoded: string): string;
+
 Implementation
 
 Uses
@@ -4963,6 +4965,29 @@ function abbintohexstring(stream: Tstream):string;
   {$ENDIF}
 End;
 
+function DecodeURL(const urlEncoded: string): string;
+var
+  i: Integer;
+  hexValue: string;
+begin
+  Result := '';
+  i := 1;
+  while i <= Length(urlEncoded) do
+  begin
+    if urlEncoded[i] = '%' then
+    begin
+      hexValue := Copy(urlEncoded, i + 1, 2);
+      Result := Result + Char(StrToInt('$' + hexValue));
+      Inc(i, 3);
+    end
+    else
+    begin
+      Result := Result + urlEncoded[i];
+      Inc(i);
+    end;
+  end;
+end;
+
 initialization
  InitializeStrings;