Delphi 6环境下Indy 10输出Unicode的可行方案咨询

问题根源 #

Indy 10 在 Delphi 6 环境中使用的 string 是 AnsiString 的别名，默认会将 ContentText 中的 Ansi 字符串按系统默认编码（比如 Windows-1251）转换为 Unicode，再转成输出编码。你之前的方法把 WideString 转成 UTF-8 字节存到 AnsiString 后，Indy 会把这些 UTF-8 字节当成系统 Ansi 字符再次编码，导致双重编码乱码。直接赋值 WideString 时，Indy 会按系统非 Unicode 语言编码转成 Ansi，所以只有该编码范围内的字符正常。

无需修改 Indy 源码的解决方法 #

以下两种方式都能实现正确的 Unicode 输出，不需要替换 Indy 源码中的 string 类型：

方式一：直接操作 ContentStream 写入 UTF-8 字节

绕过 Indy 的自动编码逻辑，直接输出原始 UTF-8 字节流：

var
  MyUnicodeBodyString: WideString;
  UTF8Bytes: TBytes;
begin
  // 设置响应内容类型和编码
  AResponseInfo.ContentType := 'text/html';
  AResponseInfo.CharSet := 'utf-8';

  // 将 WideString 转换为 UTF-8 字节数组
  UTF8Bytes := TIdTextEncoding.UTF8.GetBytes(MyUnicodeBodyString);

  // 创建内存流并写入字节
  AResponseInfo.ContentStream := TMemoryStream.Create;
  try
    AResponseInfo.ContentStream.WriteBuffer(UTF8Bytes[0], Length(UTF8Bytes));
  except
    AResponseInfo.ContentStream.Free;
    raise;
  end;
end;

方式二：配置 Indy 禁用自动编码，直接输出 UTF-8 字符串

通过设置 NoEncode 让 Indy 直接输出 ContentText 的原始字节，同时明确编码信息：

var
  MyUnicodeBodyString: WideString;
  UTF8Str: UTF8String;
begin
  // 设置 Content-Type 并指定 UTF-8 编码
  AResponseInfo.ContentType := 'text/html; charset=utf-8';

  // 利用 Indy 自带工具转换 WideString 到 UTF8String
  UTF8Str := TIdTextEncoding.UTF8.GetString(TIdTextEncoding.Unicode.GetBytes(MyUnicodeBodyString));

  // 关键配置：禁用自动编码，直接输出原始字节
  AResponseInfo.NoEncode := True;
  AResponseInfo.ContentText := UTF8Str;
end;

注意事项 #

• 优先使用 Indy 自带的 TIdTextEncoding 类处理编码转换，避免自己实现转换函数可能出现的边界问题。
• 确保 ContentType 中的 charset 和实际输出的编码一致，否则浏览器会用错误的编码解析内容。

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