Delphi / DBExpress導致內存泄漏

Question

我的應用程序遇到了一個奇怪的問題，它的內存使用量一次又一次上升幾百兆，最終應用程序凍結了。 該應用程序是用Delphi編寫的，它使用數據庫，COM（用於OPC）和TCP / IP。

使用FastMM，我已經關注了內存使用情況的屏幕截圖。 我不完全確定如何讀取該表，但看起來有些東西已經分配了296463552個字節（0x100fb000，這是“幻數”？）三次。

有任何想法嗎？ 有沒有辦法跟蹤非Delphi-MM內存分配？

我正在使用Delphi 2007和FastMM 4.96。

編輯：

我使用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 2.1，DBExpress和InterXpress for Firebird驅動程序。

編輯2：這似乎分析了類似的問題，至少重點是在這里： http ： //www.yac.com.pl/mt.texts.sqlexpr-2.en.html

Answer 1

問題是Delphi 2007 DbExpress中存在多線程環境中的錯誤（畢竟它不是線程安全的）。 更多信息請訪問： http ： //www.yac.com.pl/mt.texts.sqlexpr-2.en.html

Answer 2

當您的應用程序被凍結時，您可以嘗試查看堆棧以了解它被凍結的原因： http ： //code.google.com/p/asmprofiler/wiki/ProcessStackViewer

您可以嘗試使用memproof來跟蹤所有資源分配（及其堆棧跟蹤）： http ： //www.torry.net/tools/debug/memory/memp0948.zip

Answer 3

嘗試使用EurekaLog找到問題所在。