DataSnap的REST服务器ServerMethod参数编码问题

在delphi xe下测试REST Server，其中有个ReverseString服务器函数，就是把一个传入的字串翻转。用DataSnap调用是：

procedure TForm1.Button1Click(Sender: TObject);
var
  vC:TDBXCommand;
  P:TDBXParameter;
begin
  SQLConnection1.Params.Values['CommunicationProtocol'] := 'http';
  SQLConnection1.Params.Values['HostName'] := edDSServer.Text;
  SQLConnection1.Params.Values['Port'] := edDSPort.Text;
  SQLConnection1.Params.Values['DSAuthenticationUser'] := edUserName.Text;
  SQLConnection1.Params.Values['DSAuthenticationPassword'] := edPassowrd.Text;
  SQLConnection1.Open;

  vC:=SQLConnection1.DBXConnection.CreateCommand;
  vC.CommandType:= TDBXCommandTypes.DSServerMethod;
  vC.Text:='TServerMethods1.ReverseString';
  vC.Prepare;
  vC.Parameters[0].Value.SetString(Edit2.Text);
  vC.ExecuteUpdate;
  Edit1.Text:=vC.Parameters[1].Value.asString;
  vC.Free;
end;

然而用http get来调用时却要注意参数的编码：

procedure TForm1.Button2Click(Sender: TObject);
var
  vMS:TMemoryStream;
  B:TBytes;
  J:TJSONObject;
  S:string;
  vURL:string;
begin
  vMS:=TMemoryStream.Create;
  try
    vURL:='http://'+edDSServer.Text+':'+edDSPort.Text+'/datasnap/rest/TServerMethods1/ReverseString/';
    vURL:=vURL+ParamsEncode(Edit2.Text);
    IdHTTP1.Get(vURL,vMS);
    SetLength(B,vMS.Size);
    vMS.Position:=0;
    vMS.Read(B[0],vMS.Size);
    J:=TJSONObject.Create;
    J.Parse(B,0);
    Edit1.Text:=TJSONArray(J.Get(0).JsonValue).Get(0).Value;
    J.Free;
  finally
    vMS.Free;
  end;
end;

在对参数编码时，有两个现成的函数：

1、IdURI.pas的TIdURI.ParamsEncode

这个函数里面把需要转义的字符定义为： UnsafeChars: TIdUnicodeString = '*<>#%"{}|/^[]`'; {do not localize}
但是这样不够，这两个字符没有包括：/？，如果参数中有这些字符，结果就不对了，或者导致调用失败。修改这个函数把这两个字符加上，就可以了。



2、httpApp.pas的HTTPEncode

首先，这个函数的参数是ansistring，其次，里面把空格转成加号，不能满足需要。