DataSnap客户端TDictionary崩溃：FComparer为nil问题求助

你遇到的这个崩溃是DataSnap在传输TDictionary时的典型坑——服务端创建的字典明明正常，但客户端拿到后访问Items属性就崩溃，根源就是DataSnap没有正确序列化字典的比较器（FComparer），导致客户端实例里的FComparer字段变成了nil，访问时触发空指针异常。

为什么会这样？ #

原生TDictionary<TKey,TValue>的默认比较器是TEqualityComparer<T>.Default，对于值类型（比如你的integer键）来说，这个比较器是一个单例对象，但DataSnap的序列化机制不会传输这个对象的引用。当客户端反序列化字典时，无法重建这个比较器实例，就会把FComparer留空，最终导致访问Items时崩溃。

解决方案（推荐第一种） #

方案1：自定义可序列化的字典类

在服务端和客户端都定义一个继承自TDictionary的子类，在构造函数里明确指定值类型的比较器，这样DataSnap就能正确处理序列化：

// 服务端和客户端的单元中都要添加这个类定义
TColorNames = class(TDictionary<integer, string>)
public
  constructor Create;
end;

constructor TColorNames.Create;
begin
  // 使用针对integer类型的内置比较器，替代默认的泛型比较器
  inherited Create(TIntegerComparer.Default);
end;

之后服务端的DictionaryTest方法和客户端的调用代码都不需要修改，客户端拿到的字典实例会自动拥有有效的FComparer，访问Items[1]就不会崩溃了。

方案2：客户端手动修复比较器（临时 workaround）

如果不想修改字典类，可以在客户端拿到返回的字典后，手动给私有字段FComparer赋值。不过这个方法不够优雅，因为访问私有字段可能受Delphi版本影响：

procedure TformClientMain.FetchColors;
var
  Colors: TColorNames;
begin
  Colors := easServer.DictionaryTest;
  try
    // 强制类型转换后手动设置比较器
    TDictionary<integer, string>(Colors).FComparer := TIntegerComparer.Default;
    if Colors.Items[1] <> 'Red' then
      ShowMessage('Not red');
  finally
    Colors.Free;
  end;
end;

注意事项 #

• 确保服务端和客户端的字典类定义完全一致，包括命名空间和继承关系；
• 尽量避免在DataSnap中直接传输原生TDictionary，自定义子类是更稳妥的做法。

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