delphi - FastMM4 说 "The block header has been corrupted"

Question

我有这个讨厌的错误，它过去消失了，但现在过了相当长的一段时间它又回来了。

我创建了两个 TSam 对象(从 TPersistent 派生)并将其加载到 TAsmJob 对象(从 TObjectList 派生)中。

在运行时，表单创建一个 TStringGrid，然后创建这两个 SAM 对象的 AsmJob(并从每个对象的磁盘加载一些数据)。 AsmJob 也被分配给网格。当表单被销毁时，Grid 通过释放 AsmJob 来处理它，这会释放 TSam 对象。问题是:第一个对象被释放时没有问题，但第二个对象在调用其继承方法(在 Destroy 析构函数中)时死亡。

我在整个程序中使用FreeAndNil来释放对象。 TSam 对象不是 NIL!!!!因此，这是释放对象的第一次尝试。甚至对象内部的数据也是一致的。

该程序的主干如下所示:

**Create:**

Form -> StringGrid
     -> AsmJob -> Sam1, Sam2
StringGrid.AsmJob:= AsmJob;


**Free:**

Form -> StringGrid -> AsmJob -> Sam1, Sam2

我真的不明白在释放对象后我在哪里尝试双重释放或覆盖该对象。

<小时/>

编辑:

我遇到的一些错误:

• FastMM 在执行过程中检测到错误自由 block 扫描操作。快速MM检测到一个 block 已被释放后修改。

• FastMM 在执行过程中检测到错误自由 block 扫描操作。街区 header 已损坏。

详细信息:

The current thread ID is 0x19C, and the stack trace (return addresses) leading to this error is: 
402E77 [System][@FreeMem] 
4068DC [System][@DynArrayClear] 
405E2D [System][@FinalizeArray] 
405D31 [System][@FinalizeRecord] 
40432F [System][TObject.CleanupInstance] 
404272 [System][TObject.FreeInstance] 
404641 [System][@ClassDestroy] 
4D313E [UnitSam.pas][TSam.Destroy][297] 
4042BF [System][TObject.Free] 
4149ED [SysUtils][FreeAndNil] 
4D9C0A [UnitAsmJob.pas][UnitAsmJob][TAsmJob.Destroy][180]  

我在 IDE 中启用了所有“调试”选项，包括“范围检查”。此外，FastMM4 设置为 super 积极的 Debug模式。如果没有 FastMM 或在调试器之外，程序运行得很好 - 但我知道这并不意味着错误不再存在。实际上，它工作了(可能)一年多，直到我安装了 FastMM。

<小时/>

编辑:

谢谢大家。不，我感觉我正在朝着好的方向前进。

程序的结构比较复杂，我只提供了主干，以保持原始帖子的规模。但到底是什么，它已经变大了:)因此，这些 TSam 对象用于从磁盘加载数据。每个对象中有一个文件。他们还进行一些处理和数据验证。对于每个 TSam，我还有一个图形对象，用于在屏幕上(以图形方式)显示 TSam 对象中包含的数据。 TStringGrid 中的每一行也显示 TSam 中的数据，但以文本方式显示。

我有一个问题:如果我将程序分成更小的部分来找出错误所在，错误仍然会出现吗？或者它可能只出现在这个特定的配置中？

<小时/>

回答“如何将 AsmJob 分配给 TStringGrid 以便 TStringGrid 销毁 AsmJob，您可以向我们展示吗？”

MyGrid = TStringGrid
  public 
    AsmJob: TAsmJob; 
  end; 

然后在 TForm.Create(保存网格的表单)中的某个地方，我这样做

MyGrid.AsmJob=AsmJob; 

在 MyGrid 的析构函数中我这样做:

begin 
  FreeAndNil(AsmJob); 
  inherited 
end;

Answer 1

此错误意味着您的代码损坏了内部内存管理器的结构。当 MM 检测到这一点时，您的调用堆栈代表点。这不是错误路径或与之相关的任何内容。实际的错误发生在这一刻之前。它可能与提到的类相关，也可能不相关。

You should try to use "Range check errors" option (don't forget to make Build, not Compile) and FastMM in full debug mode (with CheckHeapForCorruption, CatchUseOfFreedInterfaces и DetectMMOperationsAfterUninstall options enabled) .

您还可以打开 FullDebugModeScanMemoryPoolBeforeEveryOperation 全局变量，以便在问题发生后几乎立即收到错误，但此选项会大大减慢您的执行速度。

可能最好的选择是定期调用 ScanMemoryPoolForCorruptions。在一个地方调用它。有错误吗？早点打电话吧仍然有错误吗？早点再打电话吧。没有错误吗？您的问题位于最后一次通话之间的某个位置。现在您可以使用 FullDebugModeScanMemoryPoolBeforeEveryOperation 变量来获取精确位置。只需仅在此代码区域打开它，并在其之后立即将其关闭。

有一个非常相似的错误:“FastMM 检测到 block 在释放后已被修改”。在这种情况下，您的代码不会修改内部结构，而是修改根本不使用的其他内存(“空闲内存”)。

顺便说一句，你的错误不是双重释放!如果这是一个双重释放调用，FastMM 会明确地告诉您(很容易检测到，因为您正在尝试释放未使用或不存在的内存块):“已尝试释放/重新分配一个未分配的 block ”。