ansiToUtf8 不适用于从 Delphi 7 转换的 Delphi XE 项目？

Question

有一个带有 CL8MSWIN1251 代码页设置的 Oracle 9 db 和带有一些编辑字段的 Delphi XE。

我需要将 Delphi 7 中制作的项目转换为 Delphi Xe 项目才能使用并能够看到 UTF8 数据。

所以我使用 Delphi XE 打开了 dpr 文件，它自动转换为 dproj。但是当我尝试向数据库中插入一些数据时，我得到了问题符号（“？”）而不是一些 utf8 字符。 我尝试使用 ansitoUTF8(edit1.text) 从 Edits (Tedit) 转换数据。它不起作用。 然后我在 XE 中开始了一个新项目，快速添加了一些编辑来检查 ansitoutf8 函数，它运行良好，并将数据插入到同一个数据库和同一个表中。

有一条规则：我不能更改 db 中的代码页设置。

begin
  adoquery1.close;
  adoquery1.sql.text:='insert into table (data1,data2) values ('+#39+ansitoUTF8(edit1.text)+#39+','+#39+ansitoUTF8(edit2.text)+#39+')';
  adoquery1.execsql;
end;

有什么建议吗？

Answer 1

CL8MSWIN1251 不是 UTF-8 代码页，是 Windows 1251（西里尔文）代码页的 Oracle 实现。 Delphi XE 始终使用 UTF-16。 Oracle 数据库和客户端能够执行字符集转换。您应该正确设置客户端/会话的 NLS_LANG 参数。如果您不想更改客户端代码页，您可以在登录时发出 ALTER SESSION SET NLS_LANGUAGE = ... 以仅针对该会话更改它。对于带有 Oracle 9i 数据库的 XE Unicode 应用程序，您可以在客户端使用 AL16UTF16 来告知客户端数据是 UTF-16 格式并让 Oracle 执行其转换。

PS：类似代码

#39+ansitoUTF8(edit1.text)+#39+...

是引入SQL注入漏洞的最好方法。您应该使用绑定变量，或者至少使用 QuotedStr/AnsiQuotedStr 之类的函数，以确保字符串保持字符串并且不会成为 SQL 命令落入坏人之手。

Answer 2

在 Delphi XE 中与 AnsiToUTF8() 函数存在向后兼容性中断，实际上在它调用的 Utf8Encode() 函数中。

在 Delphi XE 中，它返回一个 RawByteString 类型的字符串。所以你必须将结果类型强制为UTF8String。像这样：UTF8String(ansitoUTF8(...)

但我想这可能不是你的问题。

在您的代码中：

adoquery1.sql.text:='insert into table (data1,data2) values ('+#39+ansitoUTF8(edit1.text)+#39+','+#39+ansitoUTF8(edit2.text)+#39+')';

sql.text 表达式是 UnicodeString，因此您将在连接表达式中使用 Delphi XE 编译器进行显式转换。

以下行是否有效？

adoquery1.sql.text:='insert into table (data1,data2) values ('+#39+edit1.text+#39+','+#39+edit2.text+#39+')';

它应该在XE下工作，并且应该通过VCL从原始UnicodeString转换成UTF8。