Delphi7+Indy10.6.2：POST请求异常时EIdHTTPProtocolException编码问题

我之前踩过这个Indy的坑！正常请求时Indy会自动解析响应头里的Content-Type编码来处理特殊字符，但抛出EIdHTTPProtocolException时，它默认用系统ANSI编码去解码UTF-8格式的错误内容，导致特殊字符变成问号。要解决这个问题，关键是绕开默认的ErrorMessage，直接从原始响应流中解码。

方法一：捕获异常时手动读取原始流解码 #

这是最直接的解决方案，每次捕获异常时，从异常的Response属性里获取原始响应流，用UTF-8重新解码：

uses
  IdHTTP, IdGlobal, IdException;

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  PostData: TStringList;
begin
  IdHTTP := TIdHTTP.Create(nil);
  PostData := TStringList.Create;
  try
    // 构造POST数据
    PostData.Add('key=value');
    IdHTTP.Post('https://your-server-url.com', PostData);
  except
    on E: EIdHTTPProtocolException do
    begin
      // 将响应流指针重置到开头
      E.Response.RawInputStream.Position := 0;
      // 读取流中所有字节，用UTF-8解码
      // ReadStringFromStream指定IndyTextEncoding_UTF8直接解码为正确字符串
      var ErrorMsg := ReadStringFromStream(E.Response.RawInputStream, -1, IndyTextEncoding_UTF8);
      // Delphi7中如果需要转成ANSI字符串，可直接使用（VCL会自动处理显示）
      ShowMessage('服务器错误：' + ErrorMsg);
    end;
  end;
  PostData.Free;
  IdHTTP.Free;
end;

如果你的Delphi7环境里ReadStringFromStream的编码参数不好用，也可以手动读取字节流解码：

var
  RawBytes: TIdBytes;
begin
  E.Response.RawInputStream.Position := 0;
  // 读取所有原始字节
  ReadTIdBytesFromStream(E.Response.RawInputStream, RawBytes, E.Response.RawInputStream.Size);
  // 把UTF-8字节转换成WideString，再转成ANSI字符串
  var ErrorMsg := UTF8Decode(BytesToString(RawBytes, IndyTextEncoding_UTF8));
  ShowMessage('服务器错误：' + ErrorMsg);
end;

方法二：重写TIdHTTP实现全局处理 #

如果你的项目里很多地方都要处理这个问题，可以继承TIdHTTP重写它的错误处理逻辑，让所有异常的错误信息都自动用UTF-8解码：

uses
  IdHTTP, IdHTTPHeaderInfo, IdGlobal, IdException;

type
  TMyIdHTTP = class(TIdHTTP)
  protected
    procedure DoProtocolError(const AResponse: TIdHTTPResponse; const AUri: string); override;
  end;

procedure TMyIdHTTP.DoProtocolError(const AResponse: TIdHTTPResponse; const AUri: string);
var
  ErrorContent: string;
begin
  // 读取原始响应流并UTF-8解码
  AResponse.RawInputStream.Position := 0;
  ErrorContent := ReadStringFromStream(AResponse.RawInputStream, -1, IndyTextEncoding_UTF8);
  // 抛出包含正确解码信息的异常
  raise EIdHTTPProtocolException.CreateFmt('%s %s', [AResponse.ResponseText, ErrorContent]) at ReturnAddress;
end;

之后在项目里替换所有TIdHTTP为TMyIdHTTP，这样每次捕获EIdHTTPProtocolException时，ErrorMessage就已经是正确解码的字符串了。

注意事项 #

• 确认服务器返回的错误响应确实是UTF-8编码，如果服务器用的是其他编码（比如GBK），需要把IndyTextEncoding_UTF8换成对应的编码（比如IndyTextEncoding_GBK）。
• Delphi7是ANSI版本，处理Unicode字符时尽量用WideString过渡，避免直接转换时丢失字符。

内容的提问来源于stack exchange，提问作者Samuel