Delphi7迁移至AnyDAC(FireDAC)8.0.5：TBlobField.GetAsString触发事务问题

我刚好处理过类似的BDE转FireDAC（原AnyDAC）的迁移问题，这个异常本质是FireDAC和BDE在Blob字段+AutoCommit模式下的核心行为差异导致的——FireDAC访问Blob字段时会自动启动隐式事务，和你当前主从结构的数据集状态冲突了。下面是几个经过验证的解决方案，按优先级排序：

1. 调整Blob获取策略，从根源避免隐式事务 #

FireDAC默认会在按需加载Blob时启动事务保证一致性，但你可以通过修改数据集的Fetch选项，让Blob数据提前加载到本地，后续访问就不会触发事务：

• 针对你的TADTable或TADQuery，设置FetchOptions.Mode为fmAll：

  ADTable1.FetchOptions.Mode := fmAll;
  

  这个设置会让数据集打开时一次性拉取所有数据（包括Blob字段），后续调用GetAsString时直接读取本地缓存，完全绕开数据库交互和隐式事务。
• 如果一次性加载所有Blob影响性能，可以调整连接的Blob阈值，让小Blob直接加载：

  ADConnection1.ResourceOptions.BlobSizeThreshold := 1024 * 1024; // 1MB，可按需调整
  

  小于阈值的Blob会在数据集打开时加载，大Blob仍按需获取，平衡性能和事务问题。

2. 手动包裹Blob访问的事务逻辑 #

如果调整Fetch选项不适合你的场景，可以手动控制事务范围，覆盖FireDAC的隐式行为：

var
  BlobContent: string;
begin
  // 先检查是否已有事务，避免嵌套冲突
  if not ADConnection1.InTransaction then
    ADConnection1.StartTransaction;
  try
    BlobContent := TBlobField(ADTable1.FieldByName('YourMemoField')).GetAsString;
    // 这里处理获取到的Blob字符串
    ADConnection1.Commit;
  except
    ADConnection1.Rollback;
    raise; // 抛出原异常，不吞错误
  end;
end;

这种方式把Blob访问锁定在一个显式事务里，彻底避免隐式事务带来的冲突。

3. 检查主从结构的联动状态 #

因为你的TADQuery是TADTable的MasterSource，要确保访问Blob时主从数据集处于稳定状态：

• 避免在主数据集切换记录的过程中调用GetAsString；
• 确认TADTable的MasterFields关联正确，没有触发不必要的数据集自动刷新；
• 必要时可以临时关闭主从联动，获取Blob后再恢复：

  ADTable1.MasterSource := nil;
  try
    // 执行Blob字段访问操作
  finally
    ADTable1.MasterSource := DataSource1; // 恢复主从关联
  end;
  

4. 修改FireDAC的自动事务启动规则（谨慎使用） #

如果以上方法都无效，可以直接修改连接的自动事务行为，但这个设置会影响整个连接的所有操作，需要充分测试：

ADConnection1.ResourceOptions.AutoStartTxn := atNever;

设置后FireDAC不会自动启动任何事务，所有事务都需要你手动调用StartTransaction、Commit和Rollback，完全掌控事务时机，从根源杜绝隐式事务异常。

最后提醒：FireDAC的默认设置是为了兼容通用场景，但从BDE迁移的应用往往需要针对Blob、事务这类细节做适配，建议先在测试环境验证每个方案的效果，再推广到生产环境。

内容的提问来源于stack exchange，提问作者Mr.Darcy