C# TransactionScope无法回滚Delphi DLL的数据库更改求助

你的问题我太熟悉了——跨语言调用时事务不联动，本质是Delphi DLL里的数据库操作没加入到C#启动的分布式事务上下文。.NET的TransactionScope默认依赖分布式事务协调器（DTC），但Delphi的数据库连接如果是独立创建、没主动关联到当前事务，就会走自己的本地事务，不受C#事务控制，所以哪怕C#回滚，Delphi的操作已经提交了。下面给你一步步解决的方案：

1. 先让Delphi DLL支持分布式事务 #

首先得确认Delphi用的数据库组件支持分布式事务：

• 如果是ADO组件（TADOConnection）：天生支持DTC，直接用就行；
• 如果是FireDAC/DBExpress这类组件：需要在配置里开启分布式事务支持（比如FireDAC要关闭AutoStartTransaction，手动关联事务）。

2. 在Delphi中关联C#的事务上下文 #

核心是让Delphi的数据库连接加入到C#启动的事务里，以ADO为例，修改你的DLL方法：

uses ComObj, ADODB, SysUtils;

procedure DelphiDLLMethod(const Param: PChar); stdcall;
var
  Conn: TADOConnection;
  Tx: ITransaction;
  CurrentTxnContext: IUnknown;
begin
  // 获取C# TransactionScope创建的分布式事务上下文
  CurrentTxnContext := CoGetDefaultContext;
  if Assigned(CurrentTxnContext) then
  begin
    // 把上下文转换为事务接口
    if CurrentTxnContext.QueryInterface(ITransaction, Tx) = S_OK then
    begin
      Conn := TADOConnection.Create(nil);
      try
        Conn.ConnectionString := '你的数据库连接字符串';
        // 打开连接并绑定到当前分布式事务
        Conn.Open('', '', '', adConnectUnspecified);
        Conn.Properties['Transaction Object'].Value := Tx;
        
        // 执行你的数据库操作（注意：这里绝对不能手动Commit！）
        // 比如：Conn.Execute('UPDATE ...');
        
      finally
        Conn.Free;
        Tx := nil;
      end;
    end;
  end
  else
  begin
    // 没有事务上下文时，走原来的本地事务逻辑（可选）
    // ...
  end;
end;

exports DelphiDLLMethod;
end.

关键是通过CoGetDefaultContext拿到C#的事务上下文，再把ADO连接的Transaction Object绑定到这个事务上，这样Delphi的操作就完全受C#事务控制了。

3. 配置Windows分布式事务协调器（DTC） #

跨语言/跨进程的事务必须依赖DTC，所以得确保它正常工作：

1. 运行dcomcnfg打开组件服务；
2. 展开组件服务 > 计算机 > 我的电脑 > 分布式事务协调器 > 本地DTC；
3. 右键点击「本地DTC」选属性，切换到安全选项卡：
   • 勾选「允许远程客户端」「允许入站」「允许出站」「启用网络DTC访问」；
4. 确保防火墙放行DTC的端口（默认135+动态端口），并且DTC服务已经启动（在系统服务里找「Distributed Transaction Coordinator」）。

4. 优化C#的事务代码 #

你的C#代码可以调整得更规范，避免不必要的操作：

var transactionOptions = new TransactionOptions
{
    IsolationLevel = IsolationLevel.ReadCommitted, // 匹配你的数据库隔离级别
    Timeout = TimeSpan.FromMinutes(5) // 给足够的事务超时时间
};

using (var txn = new TransactionScope(TransactionScopeOption.Required, transactionOptions))
{
    try
    {
        result = DLLMethod("testingParameter");
        MakeSomeDatabaseChangesFromThisProject();
        txn.Complete(); // 只有所有操作正常才提交
    }
    catch
    {
        // 不需要手动调用Dispose！using块会自动处理，异常时事务会自动标记为回滚
        throw; // 重新抛出异常，方便上层做错误处理
    }
}

注意：不要在catch里手动调用txn.Dispose()，using块会自动释放资源，异常发生时TransactionScope会自动触发整个分布式事务的回滚。

额外提醒 #

• 如果用FireDAC，需要把TFDConnection.ResourceOptions.AutoStartTransaction设为False，然后通过FDConnection.StartTransaction(TFDTransactionOptions.Create(isoReadCommitted, -1, True))关联分布式事务；
• 确保你的数据库支持分布式事务（SQL Server、Oracle都支持，Access这类文件型数据库不支持）；
• 测试时尽量在同一台机器上运行C#程序和Delphi DLL，避免跨机器的DTC配置问题。

这样调整后，不管是C#代码抛出异常，还是Delphi DLL里出错，整个分布式事务都会回滚，两者的数据库更改都会被撤销。

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