如何识别并捕获Delphi中TDataModule销毁时的EAccessViolation异常

一、深挖MadExcept调用栈细节 #

MadExcept的报告里藏着更精准的线索：

• 定位异常地址所属模块：找到报告中异常发生的内存地址，对照下方的模块列表，找到该地址对应的EXE/DLL，结合你编写的TDataModule子类单元，就能关联到具体出问题的模块。
• 开启内存泄漏检测：在MadExcept设置里勾选「Full debug info」和「Memory leak checking」，销毁阶段的访问违规大多源于模块已释放但仍被引用，泄漏报告里的无效引用记录能直接指向问题模块。

二、添加更精细的销毁日志 #

别只输出模块名称，加上内存地址和关键状态：

• 在DataModuleDestroy事件中输出：Format('[%s] 开始销毁，内存地址: %p', [Self.ClassName, Self])
• 在AfterConstruction事件中记录创建日志：Format('[%s] 创建完成，内存地址: %p', [Self.ClassName, Self])
• 异常发生后，对比所有创建/销毁日志，找到仅创建未销毁或销毁后仍有引用痕迹的内存地址，对应到具体模块。

三、手动捕获销毁阶段异常 #

在控制台程序主入口和DataModule销毁逻辑中添加异常保护：

1. 全局异常捕获：

begin
  try
    // 初始化、创建DataModule等业务逻辑
    ...
  except
    on E: Exception do
    begin
      Writeln('全局异常: ', E.ClassName, ' - ', E.Message);
      // 若有全局管理的DataModule列表，输出当前存活模块
      if Assigned(GlobalDMList) then
        for I := 0 to GlobalDMList.Count-1 do
          Writeln('存活模块: ', TDataModule(GlobalDMList[I]).ClassName);
    end;
  end;
end.

2. 给DataModule的Destroy方法加局部捕获：

procedure THRBaseDM.Destroy;
begin
  try
    Writeln('[%s] 进入Destroy方法', [ClassName]);
    // 手动释放自定义子对象（如ADOQuery、Socket等），不要依赖自动销毁
    if Assigned(FMyQuery) then
    begin
      FMyQuery.Close;
      FreeAndNil(FMyQuery);
    end;
    inherited; // 最后调用父类销毁逻辑
    Writeln('[%s] Destroy完成', [ClassName]);
  except
    on E: Exception do
    begin
      Writeln('[%s] 销毁时异常: %s - %s', [ClassName, E.ClassName, E.Message]);
      // 调用MadExcept手动捕获，将异常写入报告
      MadExcept.HandleException;
    end;
  end;
end;

四、排查跨模块引用问题 #

控制台程序的销毁顺序和桌面程序不同，容易出现互相引用导致的二次释放：

• 检查DataModule之间是否存在循环强引用（如A模块持有B的指针，B模块又持有A的指针），销毁时其中一个已被释放，另一个访问时触发违规。
• 显式指定全局DataModule的释放顺序，比如先释放业务模块，再释放基础模块，不要依赖Delphi的自动释放列表。

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