TThread不釋放處理

Question

我有用Delphi 2007編寫的以下服務，我發現它不釋放線程句柄。函數CurrentMemoryUsage和GetOpenHandles函數返回使用的內存和應用程序使用的句柄數。 Timer每秒觸發一次，創建一個立即銷燬的線程。我可以在我的日誌中看到打開柄數每次增加1。這是一個非常基本的線程問題。

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; 

Answer 1

您忘記了調用繼承的Destroy。這是釋放與該線程關聯的系統資源的內容。

destructor TMyThread.Destroy; 
begin 
    appendtolog((FormatFloat('Memory used: ,.# K', 
    CurrentMemoryUsage/1024))+',Number of Handles:'+inttostr(GetOpenHandles)); 
    inherited; 
end;