4

使用的版本： Delphi 7。

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

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

项目是索引。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 个线程同时被创建和运行。

感谢您的输入。

4

2 回答 2

7

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

我说可能是因为在此期间引发的异常Execute可能导致泄漏。字符串列表的生命周期应该由一个finally块来保护。

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

也就是说，我希望异常吞入LoadFile意味着您不会泄漏字符串列表。

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

由于过去创建线程的随意性，我已经看到了问题。例如，我有一个程序在创建和销毁线程时失败，存在的线程不超过 256 个。这是在具有 4GB 地址空间的 16 核机器上。您可能有 2GB 的可用地址空间。

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

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

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

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

于 2012-06-25T06:23:33.890 回答
1

根据提供的信息，无法重现您的错误。Remy 和 David 提供的一些提示可能会对您有所帮助。

查看您的程序的结构，流程可以分为两个经典解决方案。

将任务委派给不同线程的第一部分是一个Single-Producer-Multiple-Consumer问题。在这里，可以通过创建少量线程，将线程安全的对象队列传递给它们来解决。然后主线程将任务对象推入队列。消费者线程负责单个文件检查任务。

将结果传输到主线程的第二部分是一个Multiple-Producer-Single-Consumer问题。如果在初始化时将第二个线程安全对象队列传递给线程，它们可以轻松地将结果放入队列中。在计时器事件中从主线程中排出结果队列。

于 2012-06-25T20:48:10.117 回答