Windows平台下Ada语言UTF-8编码乱码问题咨询

这是个典型的跨平台字符编码适配问题，咱们一步步来拆解原因和解决办法：

问题原因 #

Linux和FreeBSD这类类Unix系统的终端环境，默认大多已经采用UTF-8作为编码标准，当你通过pragma Wide_Character_Encoding(UTF8);或者-gnatW8编译选项让Ada程序输出UTF-8编码的字符时，终端能直接正确解析这些字节流，所以显示正常。

但Windows的情况不一样：

• 传统控制台（cmd、旧版PowerShell）默认使用本地OEM编码（比如中文环境是CP936/GBK），而非UTF-8。当你的Ada程序输出UTF-8编码的非ASCII字符时，控制台会用本地编码去解析这些字节，自然就出现乱码。
• GNAT在Windows平台对Wide_Character_Encoding(UTF8)的处理，主要聚焦于程序内部的字符编码转换，但没有自动适配Windows控制台的编码机制——毕竟Unix是直接输出字节流给终端处理，而Windows控制台需要显式匹配编码。

解决办法 #

针对这个问题，有几个实用的解决路径：

1. 手动设置Windows控制台为UTF-8编码 #

打开cmd或PowerShell，先执行以下命令切换控制台代码页到UTF-8：

chcp 65001

之后再运行你的Ada程序，终端就能正确解析UTF-8字符了。如果遇到字体显示异常，记得把控制台字体切换为支持UTF-8的类型（比如Consolas、微软雅黑）。

2. 在Ada程序中主动适配Windows控制台编码 #

可以通过调用Windows API来强制设置控制台输出编码为UTF-8，这样程序启动后自动完成适配，不需要手动执行命令。示例代码如下（基于GNAT编译器的System.Win32包）：

with System.Win32; use System.Win32;

procedure Set_Console_UTF8 is
  Result : BOOL;
begin
  Result := SetConsoleOutputCP(CP_UTF8);
  if Result = False then
    -- 这里可以添加错误处理逻辑
    null;
  end if;
end Set_Console_UTF8;

在程序主逻辑启动前调用这个过程，后续输出的Wide/Wide_Wide字符就能正常显示了。

3. 替换为支持UTF-8的终端工具 #

使用微软官方的Windows Terminal（Windows 10及以上可用），它默认支持UTF-8编码，不需要任何额外设置，直接运行你的Ada程序就能正确显示非ASCII字符。另外像Git Bash这类第三方终端也能很好支持UTF-8。

补充说明：如果你的程序是将UTF-8字符写入文件而非控制台输出，那么Windows下是不会出现乱码的——文件存储的是纯字节流，用支持UTF-8的文本编辑器打开就能正常显示，乱码问题主要集中在控制台交互场景。

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