TStringList和TThread不释放所有内存
使用的版本： Delphi 7。
我正在研究一个在Virtual ListView上做简单循环的程序。 数据存储在以下记录中：
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。 在主窗体上，一切正常。
我想这个错误在我身边。 也许我不太了解线程。 我试图释放Destroy事件中的所有内容。 我试过FreeAndNil程序。 我一次只尝试一个线程。 我试图手动释放线程（没有FreeOnTerminate ...）
没有运气。
所以这里是线程代码。 这只是基本的想法; 不是所有操作的完整代码。 如果我删除LoadFile prodecure，一切正常。 根据线程池为每个文件创建一个线程。
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个线程同时创建并运行 。
感谢您的输入。
在问题中显示的代码中可能没有泄漏。
我说可能是因为Execute期间引发的异常可能导致泄漏。 字符串列表的生命周期应该由finally块保护。
FileStringList:= TStringList.Create;
try
LoadFile;
Synchronize(UpdateStatus);
finally
FileStringList.Free;
end;
也就是说，我期望LoadFile的异常意味着你不会泄漏字符串列表。
你说可能有数千个线程被创建。 每个线程为其堆栈预留内存，默认堆栈大小为1MB。 一旦保留了数千个1MB堆栈，您可以轻松地耗尽或分段地址空间。
由于过去的骑士创建线程，我看到了问题。 例如，我有一个程序在创建和销毁线程时失败，并且不存在超过256个线程。 这是在一台拥有4GB地址空间的16核心机器上。 你可能有2GB的地址空间可用。
尽管你声明任何时候都不会有超过50个线程存在，但我不确定你如何确定这一点。 同样重要的是，因为您已将FreeOnTerminate设置为True ，从而放弃了对线程生命周期的控制权。
我的猜测是你的问题与你创建的线程数有关。 每个处理器一个线程就足够了。 重新使用你的线程。 为小任务创建和销毁线程很昂贵。
如果这还不足以解决您的问题，那么您将需要显示管理线程生命周期的代码。
最后，我想知道你将从线程化这个应用程序中获得多少好处。 如果它是IO绑定，那么线程版本可能会更慢！
根据所提供的信息，无法重现您的错误。 雷米和大卫可能会帮助你。
看看你的程序结构，流程可以分为两个经典的解决方案。
您将任务委派给不同线程的第一部分是Single-Producer-Multiple-Consumer问题。 在这里可以通过创建少量线程来解决这个问题，并为它们传递一个线程安全的对象队列。 主线程然后将任务对象推入队列。 消费者线程负责处理单个文件检查任务。
结果将被转移到主线程的第二部分是Multiple-Producer-Single-Consumer问题。 如果您在初始化时将第二个线程安全对象队列传递给线程，他们可以轻松地将结果放入队列中。 在计时器事件中排出主线程的结果队列。
上一篇: TStringList and TThread that does not free all of its memory