indy httpserver 接收URL包含中文参数乱码的问题

在测试TIdHttpServer的时候，发现浏览器提交的URL包含中文时会乱码，我用的是XE7 UPDATE1,INDY是10。

procedure TForm1.idhtpsrv1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;

  AResponseInfo: TIdHTTPResponseInfo);

在这事件处理中文时，AResponseInfo好办，只要设置下

  AResponseInfo.ContentType := 'text/html';

  AResponseInfo.CharSet := 'utf-8';

浏览器就能正确显现中文。

对于 ARequestInfo，回头想想一开始决解方向就错了，不要想着各种编码转换，实际到这里，INDY已经把编码转换好了，因为到这里处理的文本，

 ARequestInfo.Params.Text已经是string类型了（UNICODE）。网上说是改INDY的源码，因为没地方设置TIdHTTPRequestInfo编码属性。

改动的是IdCustomHTTPServer.pas的 TIdHTTPRequestInfo.DecodeAndSetParams(const AValue: String)方法：

procedure TIdHTTPRequestInfo.DecodeAndSetParams(const AValue: String);
var
i, j : Integer;
s: string;
LEncoding: IIdTextEncoding;
begin
// Convert special characters
// ampersand '&' separates values {Do not Localize}
Params.BeginUpdate;
try
Params.Clear;
CharSet := 'utf-8'; //添加这一行
// which charset to use for decoding query string parameters. We
// should not be using the 'Content-Type' charset for that. For
// 'application/x-www-form-urlencoded' forms, we should be, though...
LEncoding := CharsetToEncoding(CharSet);
i := 1;
while i <= Length(AValue) do
begin
j := i;
while (j <= Length(AValue)) and (AValue[j] <> '&') do {do not localize}
begin
Inc(j);
end;
s := Copy(AValue, i, j-i);
// See RFC 1866 section 8.2.1. TP
s := StringReplace(s, '+', ' ', [rfReplaceAll]); {do not localize}
Params.Add(TIdURI.URLDecode(s, LEncoding));
i := j + 1;
end;
finally
Params.EndUpdate;
end;
end;
然后重新编译IndyProtocols包，注意bpl文件放在bin下，dcu和dcp文件放在Lib下的各个相应目录下（就是win32/win64, debug/release）

测试代码：

procedure TForm1.idhtpsrv1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
AResponseInfo: TIdHTTPResponseInfo);
begin

AResponseInfo.ContentType := 'text/html';
AResponseInfo.CharSet := 'utf-8';

mmo1.Lines.Add('=====================');
mmo1.Lines.Add('Document:');

mmo1.Lines.Add('');
mmo1.Lines.Add(ARequestInfo.Params.Text);
mmo1.Lines.Add('p1: '+ ARequestInfo.Params.Values['p1']);
mmo1.Lines.Add('p2: '+ ARequestInfo.Params.Values['p2']);

AResponseInfo.ContentText := '是中文吧'; // 'HttpServer OK';
end;

浏览器URL：http://127.0.0.1:8000/test?p1=中文&p2=ghg
用 Chrome，edge，360浏览器测试正确。