Delphi XE6 FireDAC通过Variant的Value属性赋值中文参数乱码问题

问题根因 #

你遇到的是FireDAC参数赋值时的默认编码转换逻辑问题：

• TFDParam的Value属性接收Variant类型值时，若未提前指定参数数据类型，FireDAC默认会将字符串类型的Variant转换为ANSI编码的varString类型，转换依赖操作系统默认ANSI代码页。如果当前系统代码页不支持中文字符（比如非中文区域的系统、代码页配置错误），无法映射的字符就会被替换为?，这个转换发生在参数提交到数据库之前，和字段是varchar还是nvarchar没有直接关联。
• 你观察到的varUString类型Variant被转成varString的现象是FireDAC的默认兼容设计，并非代码逻辑错误，大量处理多语言场景的开发者都遇到过相同的问题。

为什么AsWideString赋值正常 #

AsWideString属性显式声明了参数值使用Unicode编码，赋值时会直接读取Variant内的varUString内容转换为UnicodeString，不会经过ANSI代码页转换步骤，因此不会出现字符丢失。

其他可行解决方案 #

除了直接使用AsWideString赋值外，你也可以根据场景选择以下方案：

• 提前指定参数的数据类型为ftWideString，之后用Value属性赋值也不会触发ANSI转换：

Q.ParamByName('P').DataType := ftWideString;
Q.ParamByName('P').Value := V;

• 如果数据库连接的字符集已经配置为UTF-8，可以全局调整FireDAC的格式配置，让字符串参数默认使用Unicode编码：

FDConnection1.FormatOptions.MapString := ftWideString;
FDConnection1.Params.Add('CharacterSet=utf8');

• 若数据库字段是varchar且字符集为UTF-8，也可以显式将参数编码设置为UTF8，避免转换错误：

Q.ParamByName('P').AsUTF8String := V;

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