Delphi FindFirst、FindNext、FindClose 内存泄漏

Question

我有以下 Delphi 代码，在一些 Windows 服务中运行：

if FindFirst(path,faArchive,searchrecord) then  
try  
  DoSomething(searchrecord);  
  while FindNext(searchrecord) do
    DoSomething(searchrecord);  
finally
  FindClose(searchRecord);
end;

这实际上是在一个线程内每 n' 秒运行一次（搜索目录内容，然后为在 .. 中找到的每个文件发送邮件，然后新内容将被另一个进程放入该文件夹中 .. 然后再次 .. ）。

一切都很好（邮件已发送，文件移动到另一个文件夹等），但我们的客户抱怨内存消耗巨大......快速增加。

所以我们检查一下，首先在确认内存泄漏时，然后毫无疑问地识别该代码块 .. FindeFirst -> FindNext -> FindClose .. , 是'罪犯'

然后搜索和搜索（首先，这个..然后是网络），我们找到了“神秘”

SetProcessWorkingSetSize(GetCurrentProcess(), DWORD(-1), DWORD(-1))

观看 here、here .. 和许多其他 stackoverflow 条目，讨论使用此 Windows 功能的好处或不便。

最后一个事实是，当执行该代码块时，内存使用量似乎越来越大（FindFirst .. FindClose）.. 在 Windows 任务管理器中观察这种消耗

所以..亲爱的伙伴..

1. 为什么会这样？ （这是一些正常的行为，一些错误..）
2. 什么是“解决方案”？ （有什么要“解决”的吗？.. SetProcessWorkingSetSize(GetCurrentProcess(), DWORD(-1), DWORD(-1)) 适合这种情况吗？.. 那么如何使用它？

Answer 1

您问题中的代码无法编译。但是，看起来您只是错误地将其转录到问题中。

此文件枚举循环本身不会泄漏。没有问题。如果问题中的代码确实泄漏，那么唯一合理的结论是DoSomething 负责泄漏。

正常的调试方法是使用完整版的 FastMM。要求它在关机时报告内存泄漏。运行程序，关闭它，然后研究诊断。这应该会导致您发生许多泄漏。修复它们直到没有剩余。

至于SetProcessWorkingSetSize(..., -1, -1)，它将内存从 RAM 推到磁盘上。你当然可以这样做，但它很容易导致磁盘抖动。您将内存推送到磁盘上。然后你需要它并且必须再次将它读入 RAM。让系统管理你的记忆。