【发布时间】：2011-04-18 09:02:03
【问题描述】：
我的应用程序有一个奇怪的问题，它的内存使用量不时增加几百兆字节，最终应用程序冻结。该应用程序是用 Delphi 编写的，它使用数据库、COM（用于 OPC）和 TCP/IP。
使用 FastMM，我可以跟踪内存使用情况的屏幕截图。我不完全确定如何读取该表，但看起来某些东西已经分配了 296463552 个字节（0x100fb000，是那个“幻数”吗？）三次。
有什么想法吗？有没有办法跟踪非 Delphi-MM 内存分配？
我正在使用带有 FastMM 4.96 的 Delphi 2007。
编辑：
我使用 IMallocSpy 编写了一个小型帮助程序类来跟踪 COM 内存分配。以下是我得到的摘录：
00119023 5:52:27.484 [4496] TCOMAllocSpy.PreRealloc size: 269462304
00119024 5:52:27.734 [4496] (0002760C){ntdll.dll } [7C82860C] KiFastSystemCallRet + $0
00119025 5:52:27.734 [4496] (0009F83A){MyApp.exe} [004A083A] JclDebug.JclCreateThreadStackTrace (Line 3943, "JclDebug.pas" + 7) + $1E
00119026 5:52:27.734 [4496] (003D496A){MyApp.exe} [007D596A] ComLeakHelper.TCOMAllocSpy.DebugStack (Line 46, "ComLeakHelper.pas" + 2) + $9
00119027 5:52:27.734 [4496] (003D4B52){MyApp.exe} [007D5B52] ComLeakHelper.TCOMAllocSpy.PreRealloc (Line 125, "ComLeakHelper.pas" + 4) + $2
00119028 5:52:27.734 [4496] (000053B6){MyApp.exe} [004063B6] System.@WStrAsg (Line 14090, "sys\system.pas" + 10) + $0
00119029 5:52:27.734 [4496] (002E4490){MyApp.exe} [006E5490] DBXCommon.TDBXCommand.SetText (Line 5304, "..\..\..\..\..\src\pas\dbx\driver\DBXCommon.pas" + 13) + $5
00119030 5:52:27.734 [4496] (0010A340){MyApp.exe} [0050B340] WideStrings.TWideStrings.GetValue (Line 580, "common\WideStrings.pas" + 3) + $D
00119031 5:52:27.734 [4496] (002E1AFC){MyApp.exe} [006E2AFC] DBXCommon.TDBXProperties.GetValue (Line 4046, "..\..\..\..\..\src\pas\dbx\driver\DBXCommon.pas" + 1) + $7
00119032 5:52:27.734 [4496] (002E3FC9){MyApp.exe} [006E4FC9] DBXCommon.TDBXConnectionEx.GetProductName (Line 5071, "..\..\..\..\..\src\pas\dbx\driver\DBXCommon.pas" + 1) + $E
00119033 5:52:27.734 [4496] (003765FA){MyApp.exe} [007775FA] SqlExpr.TSQLConnection.DoConnect (Line 2467, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 66) + $21
00119034 5:52:27.734 [4496] (0011876D){MyApp.exe} [0051976D] DB.TCustomConnection.SetConnected (Line 2628, "DB.pas" + 8) + $4
00119035 5:52:27.734 [4496] (00118728){MyApp.exe} [00519728] DB.TCustomConnection.Open (Line 2611, "DB.pas" + 0) + $4
00119036 5:52:27.734 [4496] (00375D6F){MyApp.exe} [00776D6F] SqlExpr.TSQLConnection.CheckConnection (Line 2302, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 4) + $2
00119037 5:52:27.734 [4496] (00379241){MyApp.exe} [0077A241] SqlExpr.TCustomSQLDataSet.CheckConnection (Line 3955, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 2) + $2
00119038 5:52:27.734 [4496] (0037968A){MyApp.exe} [0077A68A] SqlExpr.TCustomSQLDataSet.OpenCursor (Line 4045, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 3) + $4
00119039 5:52:27.734 [4496] (00125EA9){MyApp.exe} [00526EA9] DB.TDataSet.SetActive (Line 9245, "DB.pas" + 12) + $7
00119040 5:52:27.734 [4496] (00125CA1){MyApp.exe} [00526CA1] DB.TDataSet.Open (Line 9201, "DB.pas" + 1) + $6
...
所以，问题似乎出在数据库连接上。我正在为 Upscene 的 Firebird 驱动程序使用 Firebird 2.1、DBExpress 和 InterXpress。
编辑2： 这似乎分析了类似的问题，至少重点与这里相同：http://www.yac.com.pl/mt.texts.sqlexpr-2.en.html
【问题讨论】：
-
如果来自 sysinternals 的 VMMap 为您提供更多信息，您可以尝试，但跟踪此信息的一种可靠方法是使用 procdump（来自 sysinternals）。让它在超出内存限制时自动创建转储文件并使用 WinDbg 分析转储。
-
VMMap 给出了基本相同的信息，分配了一个（或多个）大块。找出泄漏源无济于事
-
FastMM 4.90 有一个
AllocateLargeBlock函数。我会尝试在这里放置一个足够大的条件断点。 -
这些块是“系统分配的”，至少可以使用 ole32.dll 中的 CoTaskMemAlloc 函数（也许还有其他函数？）来创建。根据我的测试，当调用 CoTaskMem* 函数时，FastMM 会被完全绕过。
-
您是否尝试过使用 AQTime 的内存分析器？如果我没记错的话，它允许您跟踪所有内存分配（但跟踪它会减慢您的应用程序的速度）。 远景>
标签： delphi debugging memory-management memory-leaks dbexpress