Chủ đề: Xử lý là không hợp lệ (6) khi cố gắng giải thoát một sợi lơ lửng

Question

Trong một ví dụ cho tôi nhận được một ngoại lệ khi gọi AThread.Free.

program Project44; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils, Classes, Windows; 

type 
    TMyException = class(Exception); 

var 
    AThread: TThread; 
begin 
    AThread := TThread.Create(True); 
    try 
    AThread.FreeOnTerminate := True; 
    //I want to do some things here before starting the thread 
    //During the setup phase some exception might occur, this exception is for simulating purpouses 
     raise TMyException.Create('exception'); 
    except 
    AThread.Free; //Another exception here 
    end; 
end. 

Tôi có hai câu hỏi:

1. Tôi nên làm cách nào miễn phí AThread bản sao của TThread trong một ví dụ cụ thể?

2. Tôi không hiểu, tại sao TThread.Destroy đang gọi Resume trước khi hủy chính nó. điểm của việc này là gì?

Answer 1

Bạn không thể đặt FreeOnTerminate-Truevà gọi Free trên dụ chủ đề. Bạn phải làm một cái khác, nhưng không phải cả hai. Vì nó đứng mã của bạn phá hủy các chủ đề hai lần. Bạn không bao giờ phải phá hủy một đối tượng hai lần và tất nhiên khi destructor chạy lần thứ hai, các lỗi xảy ra.

Điều xảy ra ở đây là vì bạn đã tạo chuỗi bị treo, không có gì xảy ra cho đến khi bạn giải phóng hoàn toàn chuỗi. Khi bạn làm điều đó, destructor sẽ tiếp tục lại luồng, đợi nó hoàn tất. Điều này sau đó dẫn đến việc Free được gọi lại vì bạn đặt FreeOnTerminate thành True. Lệnh gọi thứ hai này để Free đóng tay cầm. Sau đó, bạn quay lại chủ đề proc và gọi số ExitThread. Điều này không thành công vì xử lý của chuỗi đã bị đóng.

Như Martin chỉ ra trong nhận xét bạn không được tạo TThread trực tiếp vì phương pháp TThread.Execute là trừu tượng. Ngoài ra, bạn không nên sử dụng Resume không được dùng nữa. Sử dụng Start để bắt đầu thực hiện một chuỗi bị treo.

Cá nhân tôi không thích sử dụng FreeOnTerminate. Sử dụng tính năng này dẫn đến việc chuỗi bị hủy trên một chuỗi khác mà từ đó nó được tạo ra. Bạn thường sử dụng nó khi bạn muốn quên tham chiếu cá thể. Điều đó sau đó khiến bạn không chắc chắn liệu chuỗi có bị hủy hay không khi quá trình của bạn chấm dứt, hoặc thậm chí là nó chấm dứt và giải phóng chính nó trong quá trình chấm dứt quá trình.

Nếu bạn phải sử dụng FreeOnTerminate thì bạn cần đảm bảo rằng bạn không gọi Free sau khi đã đặt FreeOnTerminate thành True. Vì vậy, giải pháp hiển nhiên là đặt FreeOnTerminate thành True ngay trước khi gọi Start và sau đó quên về phiên bản chuỗi. Nếu bạn có bất kỳ ngoại lệ nào trước khi bạn sẵn sàng bắt đầu thì bạn có thể giải phóng một cách an toàn chuỗi đó vì bạn FreeOnTerminate vẫn sẽ là False tại thời điểm đó.

Thread := TMyThread.Create(True); 
Try 
    //initialise thread object 
Except 
    Thread.Free; 
    raise; 
End; 
Thread.FreeOnTerminate := True; 
Thread.Start; 
Thread := nil; 

Cách tiếp cận thanh lịch hơn là di chuyển tất cả việc khởi tạo vào công cụ xây dựng TMyThread. Sau đó, mã sẽ trông giống như sau:

Thread := TMyThread.Create(True); 
Thread.FreeOnTerminate := True; 
Thread.Start; 
Thread := nil; 

Answer 2

Tình huống rất phức tạp trong trường hợp của bạn.

Trước tiên, bạn không thực sự giải phóng một chuỗi bị treo; a thread thi đấu trở lại trong destructor:

begin 
    Terminate; 
    if FCreateSuspended then 
     Resume; 
    WaitFor; 
    end; 

Kể từ Terminate được gọi trước khi Resume, phương pháp Execute không bao giờ chạy, và chủ đề chấm dứt ngay lập tức sau khi được nối lại:

try 
    if not Thread.Terminated then 
    try 
     Thread.Execute; 
    except 
     Thread.FFatalException := AcquireExceptionObject; 
    end; 
    finally 
    Result := Thread.FReturnValue; 
    FreeThread := Thread.FFreeOnTerminate; 
    Thread.DoTerminate; 
    Thread.FFinished := True; 
    SignalSyncEvent; 
    if FreeThread then Thread.Free; 

Bây giờ nhìn vào dòng cuối cùng - bạn gọi destructor (Thread.Free) từ destructor chính nó! Lỗi tuyệt vời!

---

Để trả lời câu hỏi của bạn:

1. Bạn chỉ không thể sử dụng FreeOnTerminate:= True trong mã của bạn;
2. Bạn nên hỏi Embarcadero tại sao TThread được thiết kế như vậy; tôi đoán - một số mã (DoTerminate phương pháp) nên được thực hiện trong bối cảnh chủ đề trong khi chuỗi kết thúc.

---

Bạn có thể gửi yêu cầu tính năng để QC: thêm FFreeOnTerminate:= False-TThread.Destroy thực hiện:

destructor TThread.Destroy; 
begin 
    FFreeOnTerminate:= False; 
// everything else is the same 
    .. 
end; 

Điều đó sẽ ngăn chặn cuộc gọi desctructor đệ quy và làm cho mã của bạn hợp lệ.