作者：手机用户2702938061 | 来源：互联网 | 2024-12-05 16:39
本文旨在为开发者提供关于如何在控制台应用程序关闭时有效报告内存泄漏的专业指导，尤其是针对使用Delphi 10 Seattle的情况。文中不仅涵盖了基本的设置方法，还深入讨论了一些常见的问题及其解决策略。
在创建控制台应用程序时，若要确保程序关闭时能够报告内存泄漏，需设置ReportMemoryLeaksOnShutdown := True;。例如，如果创建了一个TStringList对象但未释放，程序执行完毕后应能检测到这一内存泄漏。然而，实际操作中发现，虽然内存泄漏被短暂地报告出来，但控制台窗口很快就会关闭，导致难以查看报告内容。
尝试通过在程序末尾添加ReadLn;来阻止控制台立即关闭，但这种方法似乎并不奏效，只会显示一个空白的控制台窗口。为了能够在内存泄漏报告之后暂停程序执行，同时避免程序完全关闭前控制台窗口消失，需要采取更有效的措施。
使用的是Delphi 10 Seattle环境。
program Project1;
{$APPTYPE CONSOLE}
uses
System.Classes,
System.SysUtils;
var
s : TStringList;
begin
try
ReportMemoryLeaksOnShutdown := True;
s := TStringList.Create;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
// 需要在这里找到一种方法来暂停程序执行，以便查看内存泄漏报告。
end.
解决方案一
最直接的解决方案是在已打开的命令提示符窗口中运行应用程序。这样可以确保即使程序执行完毕，命令窗口也不会立即关闭，从而允许查看内存泄漏报告。
如果需要在IDE中运行程序并查看内存泄漏报告，可以考虑以下步骤：
- 在Delphi 10 Seattle的
GetMem.inc文件中定位到ShowMessage过程（大约在第4856行）。 - 在此过程中设置断点，以便在内存泄漏发生时暂停程序执行，从而查看详细信息。
另一种方法是将内存泄漏报告重定向到文件。为此，可以从GitHub下载FastMM4的完整版本：FastMM4 GitHub页面，并根据需要配置FastMM4Options.inc文件中的选项。
解决方案二
在较新的Delphi版本中，存在一个导致控制台程序在报告内存泄漏后立即关闭的问题。例如，在Delphi 10.1 Starter版中，尽管程序正确报告了内存泄漏，但它并不会等待用户确认就自动关闭，这在自动化脚本中可能导致问题。
为了解决这个问题，建议使用原始的内存管理器而非Delphi的内置版本。具体做法是在项目中引入FastMM4，并在项目文件中包含相应的单元，如下所示：
program Project1;
{$APPTYPE CONSOLE}
uses
FastMM4,
System.Classes,
System.SysUtils;
...
通过这种方式，可以确保程序在报告内存泄漏后显示一个消息框，并等待用户确认后再继续执行，从而解决了控制台窗口立即关闭的问题。
此外，考虑增加其他形式的日志记录，如将日志写入文件或使用Windows调试字符串，这些方法虽然不如消息框直观，但在特定情况下非常有用。
京公网安备 11010802041100号