XE7 FireDAC映射WideString时长字符串截断问题求助

按数据库版本动态开关映射 #

最直接的兼容方案是给Firebird 2.5和4.0的连接分别配置映射规则：

• 在连接建立前判断服务器版本，2.5版本禁用该映射，4.0版本保留：

  procedure TYourForm.FDConnectionBeforeConnect(Sender: TObject);
  var
    ServerVer: string;
  begin
    if FDConnection.DriverName <> 'FB' then Exit;
    ServerVer := FDConnection.Params.Values['ServerVersion'];
    if Pos('2.5', ServerVer) = 1 then
      FDConnection.FormatOptions.MapRules.Remove('dtAnsiString=dtWideString')
    else
    begin
      if not FDConnection.FormatOptions.MapRules.Contains('dtAnsiString=dtWideString') then
        FDConnection.FormatOptions.MapRules.Add('dtAnsiString=dtWideString');
    end;
  end;
  

修复FireDAC映射的缓冲区问题 #

这个截断问题大概率是FireDAC转换时缓冲区长度计算错误导致的——默认分配了对应67个Wide字符的空间，刚好触发截断阈值。可以修改FireDAC源码解决：

1. 找到XE7安装目录下的FDFormat.pas文件
2. 定位到dtAnsiString转dtWideString的处理代码块，把固定缓冲区长度改成按字段定义大小×2（WideString每个字符占2字节）：

   // 替换原固定长度代码，比如：
   // BufSize := 134; // 对应67个Wide字符
   BufSize := AField.Size * 2; // 按字段实际定义的varchar长度分配
   

3. 重新编译FireDAC的运行时和设计时包，替换原包文件。

手动编码转换替代全局映射 #

不想改源码或动态配置的话，直接在代码里分版本处理字段：

• 连接Firebird 2.5时，手动将Win1250编码的ANSI字符串转WideString：

  var
    Win1250Str: AnsiString(1250);
    WidePath: WideString;
  begin
    Win1250Str := FDQuery1.FieldByName('DISK_PATH').AsString;
    WidePath := WideString(Win1250Str);
  end;
  

• 连接Firebird 4.0时，直接读取WideString即可，FireDAC会自动处理UTF8到WideString的转换。

额外排查项 #

• 检查FireDAC的StrsTrim属性，确保未启用自动截断：FDConnection.FormatOptions.StrsTrim := False;
• 尝试升级Firebird 2.5的客户端驱动，旧驱动可能与XE7的FireDAC存在兼容性bug。

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