如果FreeOnTerminate = true並且在OnTerminate中拋出異常，線程會發生什麼？

Question

給出這個例子，我們如何確保線程實例已經被釋放？ Thread.FreeOnTerminate = true時線程實例會發生什麼情況，並在Thread.OnTerminate事件中爆發？線程是否孤立，除非您處理異常並釋放OnTerminate中的線程解釋？

// Thread constructor 

constructor TMyThread.Create(CreateSuspended: Boolean); 
begin 
    inherited Create(CreateSuspended); 
    Self.FreeOnTerminate := True; 
end; 

// TMyThread OnTerminate event 

procedure TMyThread.OnTerminate(Sender: TObject); 
var o: TObject;  
begin 
    o:=nil; 
    showmessage(o.classname); // guaranteed AV 
end; 

Answer 1

你應該處理您OnTerminate處理所有的異常，因爲未處理的異常會導致該線程的實例將不會被釋放（見Classes.ThreadProc實現）。 只需在try .. except中附上您的處理程序主體並處理所有異常。

但是你的'保證AV'的例子是錯誤的：如果實例爲零，Free不會導致AV。

Answer 2

OnTerminate處理程序在主線程中通過Synchronize執行。如果從Synchronize拋出異常，它會在主線程中被抑制，並通過AcquireExceptionObject轉移到調用線程，並在該線程中再次提升。在ThreadProc的版本中，我指的是（the open-source Kylix version from 2001），異常沒有得到處理，所以異常傳播到稱爲線程過程的OS中。 TThread對象不會被釋放。

不要從析構函數中拋出異常的建議顯然也適用於其他類型的清理例程。

Answer 3

如果構造函數稍後失敗，則FreeOnTerminate會導致問題。這是因爲它釋放了一次線程，因爲構造函數失敗，然後又因爲FreeOnTerminate被設置了。

的解決方案：將其移動到執行方法或其中任何危險的活動已經完成安全的構造結束設置...

TMyThread = class(TThread) 
    private 
    m_bFreedAlready:boolean; 
    protected 
    procedure Execute; override; 
    public 
    constructor Create; 
    destructor Destroy; override; 
    end; 

constructor TMyThread.Create; 
begin 
    inherited Create(false); 

    FreeOnTerminate:=true; 

    // something went wrong 
    raise Exception.Create('Error Message'); 
end; 

destructor TMyThread.Destroy; 
begin 
    if m_bFreedAlready then 
    MessageBox(0, 'error', 'oops; freed a second time--soon we will have an error!', 0); 

    m_bFreedAlready:=true; 

    inherited; 
end; 

procedure TMyThread.Execute; 
begin 
    inherited; 

end; 

使用XE3。