Delphi BDE连接Oracle时TQuery.Close触发访问违例排查求助

核心问题总结 #

• 终端程序无提示直接崩溃，调试器捕获$C0000005访问违例：access violation at 0x00000000: read of address 0x00000000
• 触发路径：TQuery.Close → TQuery.FreeStatement → DbiQFree(FStmtHandle)
• 已完成排查：FastMM4 FullDebugMode未检出非法内存操作；madExcept无捕获（无调试器时直接退出）；确认错误发生时TDatabase连接未断开

具体调试方向与步骤 #

1. 校验FStmtHandle的有效性 #

• 在TQuery.FreeStatement中加断点或日志，输出FStmtHandle的实际值，确认是否为nil或无效句柄——DbiQFree传入空句柄必然触发访问违例
• 追溯FStmtHandle的赋值流程：检查TQuery.Prepare/Open等方法中是否因异常导致句柄未初始化，或被提前释放

2. 排查多线程操作冲突 #

• 确认涉事TQuery是否在多线程环境中被操作。BDE组件并非线程安全，多线程未同步访问同一TQuery或共享TDatabase连接，会导致句柄状态紊乱
• 检查代码中是否存在后台线程直接调用TQuery.Close、修改查询属性等未加锁的操作

3. 验证BDE驱动兼容性 #

• 检查当前BDE版本与操作系统、数据库服务器的匹配度。遗留系统常因驱动过旧/不兼容导致句柄管理异常
• 尝试替换为对应数据库的最新兼容BDE驱动，或在不同OS环境下测试崩溃是否复现

4. 捕获BDE底层错误 #

• 调用DbiGetError获取BDE底层错误详情，在DbiQFree前后添加检查：

  var
    Err: DBIResult;
    ErrMsg: array[0..255] of Char;
  begin
    Err := DbiGetError(ErrMsg);
    // 记录Err值和ErrMsg内容
    Result := DbiQFree(FStmtHandle);
    Err := DbiGetError(ErrMsg);
    // 记录调用后的错误信息
  end;
  

• 底层错误能直接指向句柄无效的根源，比如连接隐性异常、资源耗尽等

5. 排查SQL语句特殊场景 #

• 涉事TQuery用于Select操作，检查是否存在特殊语法、超长字段、超大结果集等情况，导致BDE在创建/释放语句句柄时出错
• 简化SQL语句测试，逐步缩小问题范围，确认是否由特定查询逻辑触发

6. 排查内存覆盖问题 #

• 尽管FastMM4未检出异常，仍可开启FullDebugMode的LogMemoryLeakDetailToFile选项，排查是否存在数组越界、指针误写等覆盖FStmtHandle的情况
• 给TQuery的FStmtHandle添加校验逻辑：每次访问前后检查句柄合法性，异常时记录完整调用栈

7. 捕获无调试器时的崩溃dump #

• 因madExcept未捕获到错误，可通过Windows自带机制生成崩溃dump：
  • 修改注册表启用dump捕获（替换[YourExeName].exe为程序名）：

    reg add "HKLM\SOFTWARE\Microsoft\Windows\Windows Error Reporting\LocalDumps\[YourExeName].exe" /v DumpType /t REG_DWORD /d 2 /f
    

  • 收集dump后用WinDbg加载分析，能发现调试器附加时未触发的隐藏问题

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