delphi7 通过IdHTTP1.Post 取得一个UTF8 的字符串，如何把他还原成中文（急）

[microd]

delphi7 通过IdHTTP1.Post 取得一个UTF8 的字符串，如何把他还原成中文（字符串中用带中文）？
用Utf8ToAnsi（）函数没法还原，showmessage 出来的还是原生UTF8 字符串

[金卯刀]

要先把字节码转为utf8，再转为Utf8ToAnsi

[金卯刀]

注意大小端处理。 有些字串发送前，并未做编码处理，默认会是ascci。 d2009:TStrings 默认编码为 UTF-8，如果这样处理，就不需要转字节码

var
  server: TIdHttp;
  Parameters: TStringList;
  Response: TStringStream;
begin
  response := TStringStream.Create;
  Parameters := TStringList.Create;
  Parameters.Add('param1=Value1');
  Parameters.Add('param2=عربي/عرب');
  Parameters.Add('param3=Value3');
  Server.Post('http://www.example.com/page.php',Parameters,response);
end;
也可以这样指定
[code=delphi]
Server.Request.ContentType := 'application/x-www-form-urlencoded';
Server.Request.Charset := 'utf-8';

[/code]

[sczyq]

var S : String; .................... S := IdHTTP1.Post(......, IndyTextEncoding_UTF8); // 最后一个参数

[tcmakebest]

Utf8ToAnsi 应该可以的，是否转换前已经乱了