Delphi 10.4 Sydney HTTPClient获取windows-1250编码页面报EEncodingError如何处理

该EEncodingError异常本质是编码不匹配导致的解码失败：THttpClient的ContentAsString方法默认会优先读取响应头Content-Type中的charset参数作为解码依据，若响应头未携带charset参数则默认使用UTF-8解码。你遇到的站点未在响应头返回编码信息，实际返回的是windows-1250编码字节流，其中部分字节不符合UTF-8编码规则，因此抛出映射失败异常。

该问题和AcceptCharset配置存在关联：HTTP请求头Accept-Charset用于告知服务端客户端支持的字符编码集合，部分适配规范的站点会根据该头返回对应编码的响应内容。但大量东欧老旧站点不会处理该请求头，固定返回windows-1250编码内容，因此仅配置AcceptCharset无法完全解决问题。

方案1：手动获取字节流+指定编码解码（最稳定） #

放弃直接调用ContentAsString，改为先获取响应字节流，明确指定编码后再转字符串，代码示例如下：

var
  LResponse: IHTTPResponse;
  LContentBytes: TBytes;
  LWin1250Encoding: TEncoding;
  Result: string;
begin
  LResponse := GV.HTTPClient.Get(URL);
  LContentBytes := LResponse.ContentAsBytes;
  // 1250为windows-1250编码对应的Windows代码页编号
  LWin1250Encoding := TEncoding.GetEncoding(1250);
  try
    Result := LWin1250Encoding.GetString(LContentBytes);
  finally
    // 动态创建的编码对象需手动释放，避免内存泄漏
    LWin1250Encoding.Free;
  end;
end;

方案2：通用多编码兼容处理 #

如果需要适配不同编码的站点，可以增加自动识别逻辑：

1. 优先读取响应头Content-Type中的charset参数获取编码
2. 若响应头无编码信息，读取响应前1024字节解析标签中的charset配置
3. 根据解析到的编码名称/代码页创建对应的TEncoding实例解码内容

方案3：补充AcceptCharset配置（可选优化） #

初始化HttpClient时补充支持的编码列表，引导规范站点返回正确编码的内容：

// 按优先级添加支持的编码，*表示匹配任意编码
GV.HTTPClient.AcceptCharset := 'utf-8, windows-1250, iso-8859-2, *;q=0.5';

• 内置默认编码（如TEncoding.UTF8、TEncoding.ASCII）无需手动释放，仅通过TEncoding.GetEncoding动态创建的编码对象需要释放
• 如果需要处理更多区域编码，可以将常见代码页（1250中欧、1251西里尔、1252西欧等）加入到你的编码识别逻辑中

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