delphi - 如何对 TIdHTTP 调用的响应进行编码？

Question

在一个项目中，我使用 TIdHTTP 调用网络服务器。

网络服务器是一个 asp.net 测试应用程序，它返回以下 json:

{
   "message":"test ÀÈÉÌÒÙàèéìòù"
}

我在 Delphi 中得到的响应是一种未编码的字符串:

{"message":"test ÃÃÃÃÃÃèéìòù"}

这就是我使用 TIdHTTP 的方式:

Result := '';
  IdHTTP := TIdHTTP.Create;
  IdHTTP.Request.MethodOverride := 'ForwardCommand';
  IdSSLIOHandlerSocketOpenSSL :=  TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode       := sslmClient;
  IdSSLIOHandlerSocketOpenSSL.SSLOptions.SSLVersions:= [sslvTLSv1_2];
  IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
  IdHTTP.HandleRedirects := True;
  IdHTTP.Response.ContentEncoding := 'UTF-8'; // I tried this but it seems not enough! 
  try
    url := 'testappUrl';
    try
      IdHTTP.ConnectTimeout := 2000; 
      IdHTTP.ReadTimeout := 4000; 
      Response := IdHTTP.Get(url);
      ShowMessage(response);
    except
      on E:Exception do
      begin
        response := StringReplace(E.Message,#10,' ',[rfReplaceAll]);
        response := StringReplace(response,#13,' ',[rfReplaceAll]);
        response := '{"errormessage": "'+response+'"}';
      end;
    end;
    Result := response;
  finally
    IdHTTP.Free;
  end;

请告诉我如何正确查看响应。有没有办法强制编码以便正确读取重音字符？

谢谢。

Answer 1

尝试使用 TStringStream 强制编码 (UTF-8)。
测试此代码以获得响应:

var
  ts:TStringStream;
begin

  ...

  ts := TStringStream.Create(string.Empty, TEncoding.UTF8);
  IdHTTP1.Get('url', ts);

  ShowMessage(ts.DataString);
    or
  ShowMessage(ts.ToString);
  ...