Delphi.IdHTTPServer.Решение проблемы с русскими символами

Есть такая проблема, а точнее 2 проблемы,

1. Параметры POST / Get запросов, если это русский текст, превращаются в кракозябры при парсинге запроса. То есть
   
   Delphi/Pascal

   aRequestInfo.Params.Text = ' РÑ'#$0083'Ñ'#$0081'Ñ'#$0081'кий паÑ'#$0080'амеÑ'#$0082'Ñ'#$0080 '

   1	aRequestInfo.Params.Text = ' РÑ'#$0083'Ñ'#$0081'Ñ'#$0081'кий паÑ'#$0080'амеÑ'#$0082'Ñ'#$0080 '

   
   Видно, что это UTF, поэтому нам понадобится следующая функция UtfToAnsi, например такая
   
   Delphi/Pascal

   function TRP.ConvertUtf8ToAnsi(const Source: string): string; var Iterator, SourceLength, FChar, NChar: Integer; begin Result := ''; Iterator := 0; SourceLength := Length(Source); while Iterator < SourceLength do begin Inc(Iterator); FChar := Ord(Source[Iterator]); if FChar >= $80 then begin Inc(Iterator); if Iterator > SourceLength then break; FChar := FChar and $3F; if (FChar and $20) <> 0 then begin FChar := FChar and $1F; NChar := Ord(Source[Iterator]); if (NChar and $C0) <> $80 then break; FChar := (FChar shl 6) or (NChar and $3F); Inc(Iterator); if Iterator > SourceLength then break; end; NChar := Ord(Source[Iterator]); if (NChar and $C0) <> $80 then break; Result := Result + WideChar((FChar shl 6) or (NChar and $3F)); end else Result := Result + WideChar(FChar); end; end;

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

   function TRP.ConvertUtf8ToAnsi(const Source: string): string; var   Iterator, SourceLength, FChar, NChar: Integer; begin   Result := '';   Iterator := 0;   SourceLength := Length(Source);   while Iterator < SourceLength do   begin     Inc(Iterator);     FChar := Ord(Source[Iterator]);     if FChar >= $80 then     begin       Inc(Iterator);       if Iterator > SourceLength then         break;       FChar := FChar and $3F;       if (FChar and $20) <> 0 then       begin         FChar := FChar and $1F;         NChar := Ord(Source[Iterator]);         if (NChar and $C0) <> $80 then           break;         FChar := (FChar shl 6) or (NChar and $3F);         Inc(Iterator);         if Iterator > SourceLength then           break;       end;       NChar := Ord(Source[Iterator]);       if (NChar and $C0) <> $80 then         break;       Result := Result + WideChar((FChar shl 6) or (NChar and $3F));     end     else       Result := Result + WideChar(FChar);   end; end;

   
   Применение она имеет следующее
   
   Delphi/Pascal

   aRequestInfo.Params.Text := ConvertUtf8ToAnsi(aRequestInfo.Params.Text);

   1	aRequestInfo.Params.Text := ConvertUtf8ToAnsi(aRequestInfo.Params.Text);

2.  Есть ещё одна проблема. При попытке ответить русским текстом имеем ту же проблему, приходят кракозябры, ну здесь проще, правим ответ сервера вот так…
   
   Delphi/Pascal

   FAResponseInfo.ContentType := 'application/json; charset=utf-8';

   1	FAResponseInfo.ContentType := 'application/json; charset=utf-8';

   
   Огромное спасибо форуму.