delphi - TStringList 和 TThread 不释放其所有内存

Question

使用的版本:Delphi 7。

我正在开发一个程序，该程序在虚拟 ListView 上执行简单的for循环。数据存储在以下记录中:

type TList=record
  Item:Integer;
  SubItem1:String;
  SubItem2:String;
end;

Item 是索引。 SubItem1 操作的状态(成功或失败)。 SubItem2 文件的路径。 for 循环加载每个文件，执行一些操作，然后保存它。这些操作发生在 TStringList 中。每个文件大约 2mb。

现在，如果我在主窗体上进行操作，它就可以完美运行。

多线程，存在巨大的内存问题。不知何故，TStringList 似乎没有完全释放。在 3-4k 个文件之后，我收到 EOutofMemory 异常。有时，软件会卡在 500-600mb，有时不会。无论如何，TStringList 总是返回 EOutofMemory 异常，并且无法再加载任何文件。在内存更大的计算机上，获得异常需要更长的时间。

其他组件也会发生同样的情况。例如，如果我使用 Synapse 中的THTTPSend，那么，一段时间后，软件无法创建任何新线程，因为内存消耗太高。它大约是 500-600mb，而最大应该是 100mb。在主窗体上，一切正常。

我想错误是在我这边。可能是我对线程理解不够。我尝试释放“销毁”事件中的所有内容。我尝试了FreeAndNil程序。我尝试一次只使用一个线程。我尝试手动释放线程(没有FreeOnTerminate...)

运气不好。

这是线程代码。这只是基本想法；不是包含所有操作的完整代码。如果我删除 LoadFile 程序，一切都会正常。根据线程池，为每个文件创建一个线程。

unit OperationsFiles;

interface

uses Classes, SysUtils, Windows;

type
 TOperationFile = class(TThread)
 private
  Position : Integer;
  TPath, StatusMessage: String;
  FileStringList: TStringList;
  procedure UpdateStatus;
  procedure LoadFile;
 protected
  procedure Execute; override;
 public
  constructor Create(Path: String; LNumber: Integer);
 end;

implementation

uses Form1;

procedure TOperationFile.LoadFile;
begin
 try
  FileStringList.LoadFromFile(TPath);
  // Operations...
  StatusMessage := 'Success';
 except
  on E : Exception do StatusMessage := E.ClassName;
 end;
end;

constructor TOperationFile.Create(Path : String; LNumber: Integer);
begin
 inherited Create(False);
 TPath := Path;
 Position := LNumber;
 FreeOnTerminate := True;
end;

procedure TOperationFile.UpdateStatus;
begin
 FileList[Position].SubItem1 := StatusMessage;
 Form1.ListView4.UpdateItems(Position,Position);
end;

procedure TOperationFile.Execute;
begin
 FileStringList:= TStringList.Create;
 LoadFile;

 Synchronize(UpdateStatus);

 FileStringList.Free;
end;

end.

可能是什么问题？

我一度认为，也许创建了太多线程。如果用户加载 100 万个文件，最终将创建 100 万个线程 - 尽管只有 50 个线程同时创建和运行。

感谢您的投入。

Answer 1

您在问题中显示的代码(可能)没有泄漏。

我说可能是因为在执行期间引发的异常可能会导致泄漏。字符串列表的生命周期应由 finally block 保护。

FileStringList:= TStringList.Create;
try
  LoadFile;
  Synchronize(UpdateStatus);
finally
  FileStringList.Free;
end;

也就是说，我预计 LoadFile 中的异常吞下意味着您不会泄漏字符串列表。

你说可能创建了数千个线程。每个线程为其堆栈保留内存，默认堆栈大小为 1MB。一旦保留了数千个 1MB 堆栈，您就可以轻松耗尽地址空间或产生碎片。

我过去曾见过由于随意创建线程而产生的问题。例如，我有一个程序在创建和销毁线程时失败，并且存在的线程从未超过 256 个。这是在一台具有 4GB 地址空间的 16 核机器上。您可能有 2GB 可用地址空间。

尽管您声明任一时刻存在的线程不超过 50 个，但我不确定您如何确定这一点。尤其重要的是，因为您已将 FreeOnTerminate 设置为 True，从而放弃了对线程生命周期的控制。

我的猜测是您的问题与您创建的线程数量有关。每个处理器一个线程就足够了。重新使用您的线程。为小任务创建和销毁线程的成本很高。

如果这还不足以解决您的问题，那么您将需要显示管理线程生命周期的代码。

最后，我想知道您将从该应用程序的线程化中获得多少好处。如果它是 IO 绑定(bind)的，那么线程版本可能会更慢!