Delphi t线程未释放句柄
我用Delphi2007编写了以下服务,我发现它没有释放线程句柄。函数CurrentMemoryUsage和GetOpenHandles是返回应用程序使用的内存和句柄数的函数。计时器每秒触发一次,创建一个线程,该线程立即被销毁。我可以在日志中看到打开句柄的数量每次增加一个。这是一个非常基本的线程问题Delphi t线程未释放句柄,delphi,delphi-2007,Delphi,Delphi 2007,我用Delphi2007编写了以下服务,我发现它没有释放线程句柄。函数CurrentMemoryUsage和GetOpenHandles是返回应用程序使用的内存和句柄数的函数。计时器每秒触发一次,创建一个线程,该线程立即被销毁。我可以在日志中看到打开句柄的数量每次增加一个。这是一个非常基本的线程问题 TMyThread = class(TThread) private protected procedure Execute; override; public constructor Cr
TMyThread = class(TThread)
private
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean);
destructor Destroy; override;
end;
procedure TMyService.MyTimerTimer(Sender: TObject);
var
MyThread : TMyThread;
begin
MyThread := TMyThread.Create(True);
MyThread.OnTerminate := ThreadTerminated;
MyThread.FreeOnTerminate := True;
MyThread.Resume;
end;
procedure TMyThread.Execute;
begin
FreeOnTerminate := True;
end;
destructor TMyThread.Destroy;
begin
appendtolog((FormatFloat('Memory used: ,.# K', CurrentMemoryUsage / 1024))+',Number of Handles:'+inttostr(GetOpenHandles)) ;
end;
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
end;
procedure TMyService.ThreadTerminated(Sender: TObject);
begin
appendtolog('thread terminiated');
end;
您忘记调用继承的
Destroy
。这就是释放与线程关联的系统资源的原因
destructor TMyThread.Destroy;
begin
appendtolog((FormatFloat('Memory used: ,.# K',
CurrentMemoryUsage / 1024))+',Number of Handles:'+inttostr(GetOpenHandles));
inherited;
end;
德尔福版本?习惯于添加您的delphi版本,请不要让人们猜测。对不起-版本是D2007@warren事实上,这段代码会泄漏到所有现存版本的Delphi上+1,如果OP希望在线程销毁后记录状态,最好交换这两行;)@特拉玛:是的,也许是这样。我只是习惯于把继承的
放在最后。但既然这是日志记录,我接受你的观点。是的,就是这样!!!!!这不是我第一次这样做。但所有其他时间都在VCL对象上,这实际上会消耗内存,并且更容易通过任务管理器发现。非常感谢。