Delphi 7 - 为什么 Windows 7 在运行时更改字符编码？

Question

我有一个delphi 7表单：

和我的代码：

当我在 Windows 7 中运行此表单时，我看到：

在设计时，表单的第一个标签中有波兰字母，但在运行时没有。在 Vista 或 Windows XP 上看起来没问题。当我在代码中设置第二个标签的标题时，一切正常并且字符被正确编码。

Windows 7 上顶部标签的前 5 个代码： 65 97 69 101 83

Windows Vista/XP 上顶部标签的前 5 个代码： 165 185 202 234 140

每个系统上底部标签的前 5 个代码： 165 185 202 234 140

Windows 7 更改编码，为什么？我的系统设置似乎没问题。我在控制面板中为非 unicode 应用程序设置了正确的语言。

编辑

此问题不仅与表单上的标签有关，还与 FastReport（切换到 EASTERN_CHARSET 可以解决问题）或通过 COM 接口访问 Microsoft Excel 相关。

Answer 1

我确实在 Win XP 中重现了 Delphi 2010 中的行为。

procedure Button1Click(Sender : TObject);
begin
  ShowMessage(AnsiString(Label1.Caption));
end;

在这种情况下，Label1.Caption 到 AnsiString 的转换是通过 WideCharToMultiByte（Windows API）。

该 API 有以下注释：

ANSI 代码页可以不同
在不同的计算机上，或者可以
更改为单台计算机，领先
导致数据损坏。对于大多数
一致的结果、应用
应使用 Unicode，例如 UTF-8 或
UTF-16，而不是特定的代码
页，除非遗留标准或数据
格式阻止使用 Unicode。如果
使用 Unicode 是不可能的，
应用程序应该标记数据
使用适当的编码进行流传输
当协议允许时命名。 HTML 和
XML 文件允许标记，但文本
文件没有。

因此，我最好的猜测是，行为上的差异来自于以下事实：您所拥有的 Windows 7 版本的活动代码页与您的 vista/XP 工作站上的活动代码页不同。

我仍然需要找到如何获取系统上的活动代码页...我最好的猜测是它是在控制面板的区域设置中定义的。但我还需要验证这一点...

Answer 2

您在 TWriter.WriteString 和 TWriter.ReadString 方法中遇到了我认为的“错误”。 Delphi 在内部使用这两种方法将 TLabel.Caption 从设计时的实际活动对象移至 DFM 文件，然后在运行时移回活动对象。

如果您查看上述两个例程的代码，您会注意到（我认为很震惊）进入流的实际内容是使用操作系统的默认代码页转换为 Unicode 的！只要开发计算机上使用的代码页与测试计算机上使用的代码页完全匹配就可以了，而且它们可能不匹配，这很可能就是您收到错误的原因。请注意，您为表单上的标题设置的 EASTEUROPEAN_CHARSET 绝对没有任何值，因为 TWriter.WriteString 方法不知道它！

我在 QC 上收到了关于这个问题的错误报告，它已经存在很多年了......他们可能认为这是“设计使然”，但我不认为这是一个很好的设计。

我推荐的解决方案是快速切换到 Delphi 2010。我是罗马尼亚的一名 Delphi 开发人员，我在此类问题上遇到了很多很多问题，但现在这一切都成为过去了，因为 Delphi 2010 是UNICODE 所以我不再需要担心代码页转换。

如果您无法切换到 Delphi 2010，您可能需要“破解”Classes.pas 文件并更改 TReader.ReadString 例程以始终使用您的代码页（而不是系统默认值）进行转换。

Answer 3

这个问题的答案解决了我的问题：

GetThreadLocale 返回的值与 GetUserDefaultLCID 不同？

一解决方案：

我们发现奇怪的事情是，通过控制面板切换到不同的区域设置，然后切换回新西兰可以解决该问题。我很想知道相同的解决方法是否可以为您解决问题，只是为了验证我们是否看到了相同的现象。

第二：

initialization
  SetThreadLocale(LOCALE_USER_DEFAULT);
  GetFormatSettings;

两种解决方案都效果很好，并且应用程序问题消失了。

Answer 4

检查标签的 Font.Charset 属性。虽然我不知道它是如何更改的（它是为某个向导预先创建的吗？） - 它可能具有与系统不同的区域设置。