Delphi中的線程類

猛禽[Mental Studio]

http://mental.mentsu.com

（ 之一）

Delphi中有一個線程類TThread是用來實(shí)現(xiàn)多線程編程的，這個絕大多數(shù)Delphi書藉都有說到，但基本上都是對TThread類的幾個成員作一簡單介紹，再說明一下Execute的實(shí)現(xiàn)和Synchronize的用法就完了。然而這并不是多線程編程的全部，我寫此文的目的在于對此作一個補(bǔ)充。

線程本質(zhì)上是進(jìn)程中一段并發(fā)運(yùn)行的代碼。一個進(jìn)程至少有一個線程，即所謂的主線程。同時還可以有多個子線程。當(dāng)一個進(jìn)程中用到超過一個線程時，就是所謂的“多線程”。

那么這個所謂的“一段代碼”是如何定義的呢？其實(shí)就是一個函數(shù)或過程（對Delphi而言）。

如果用Windows API來創(chuàng)建線程的話，是通過一個叫做CreateThread的API函數(shù)來實(shí)現(xiàn)的，它的定義為：

HANDLE CreateThread(

    LPSECURITY_ATTRIBUTES lpThreadAttributes,

    DWord dwStackSize,

    LPTHREAD_START_ROUTINE lpStartAddress,

    LPVOID lpParameter,

    DWORD dwCreationFlags,

    LPDWORD lpThreadId

   );

其各參數(shù)如它們的名稱所說，分別是：線程屬性（用于在NT下進(jìn)行線程的安全屬性設(shè)置，在9X下無效），堆棧大小，起始地址，參數(shù)，創(chuàng)建標(biāo)志（用于設(shè)置線程創(chuàng)建時的狀態(tài)），線程ID，最后返回線程Handle。其中的起始地址就是線程函數(shù)的入口，直至線程函數(shù)結(jié)束，線程也就結(jié)束了。

整個線程的執(zhí)行過程如下圖：

因?yàn)?/SPAN>CreateThread參數(shù)很多，而且是Windows的API，所以在C Runtime Library里提供了一個通用的線程函數(shù)（理論上可以在任何支持線程的OS中使用）：

unsigned long _beginthread(void (_USERENTRY *__start)(void *), unsigned __stksize, void *__arg);

Delphi也提供了一個相同功能的類似函數(shù)：

function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer;

這三個函數(shù)的功能是基本相同的，它們都是將線程函數(shù)中的代碼放到一個獨(dú)立的線程中執(zhí)行。線程函數(shù)與一般函數(shù)的最大不同在于，線程函數(shù)一啟動，這三個線程啟動函數(shù)就返回了，主線程繼續(xù)向下執(zhí)行，而線程函數(shù)在一個獨(dú)立的線程中執(zhí)行，它要執(zhí)行多久，什么時候返回，主線程是不管也不知道的。

正常情況下，線程函數(shù)返回后，線程就終止了。但也有其它方式：

Windows API：

VOID ExitThread( DWORD dwExitCode );

C Runtime Library：

void _endthread(void);

Delphi Runtime Library：

PRocedure EndThread(ExitCode: Integer);

為了記錄一些必要的線程數(shù)據(jù)（狀態(tài)/屬性等），OS會為線程創(chuàng)建一個內(nèi)部Object，如在Windows中那個Handle便是這個內(nèi)部Object的Handle，所以在線程結(jié)束的時候還應(yīng)該釋放這個Object。

雖然說用API或RTL(Runtime Library)已經(jīng)可以很方便地進(jìn)行多線程編程了，但是還是需要進(jìn)行較多的細(xì)節(jié)處理，為此Delphi在Classes單元中對線程作了一個較好的封裝，這就是VCL的線程類：TThread

使用這個類也很簡單，大多數(shù)的Delphi書籍都有說，基本用法是：先從TThread派生一個自己的線程類（因?yàn)?/SPAN>TThread是一個抽象類，不能生成實(shí)例），然后是Override抽象方法：Execute（這就是線程函數(shù)，也就是在線程中執(zhí)行的代碼部分），如果需要用到可視VCL對象，還需要通過Synchronize過程進(jìn)行。關(guān)于之方面的具體細(xì)節(jié)，這里不再贅述，請參考相關(guān)書籍。

本文接下來要討論的是TThread類是如何對線程進(jìn)行封裝的，也就是深入研究一下TThread類的實(shí)現(xiàn)。因?yàn)橹皇钦嬲亓私饬怂鸥玫厥褂盟?/SPAN>

下面是DELPHI7中TThread類的聲明（本文只討論在Windows平臺下的實(shí)現(xiàn)，所以去掉了所有有關(guān)linux平臺部分的代碼）：

  TThread = class

  private

    FHandle: THandle;

    FThreadID: THandle;

    FCreateSuspended: Boolean;

    FTerminated: Boolean;

    FSuspended: Boolean;

    FFreeOnTerminate: Boolean;

    FFinished: Boolean;

    FReturnValue: Integer;

    FOnTerminate: TNotifyEvent;

    FSynchronize: TSynchronizeRecord;

    FFatalException: TObject;

    procedure CallOnTerminate;

    class procedure Synchronize(ASyncRec: PSynchronizeRecord); overload;

    function GetPriority: TThreadPriority;

    procedure SetPriority(Value: TThreadPriority);

    procedure SetSuspended(Value: Boolean);

  protected

    procedure CheckThreadError(ErrCode: Integer); overload;

    procedure CheckThreadError(Success: Boolean); overload;

    procedure DoTerminate; virtual;

    procedure Execute; virtual; abstract;

    procedure Synchronize(Method: TThreadMethod); overload;

    property ReturnValue: Integer read FReturnValue write FReturnValue;

    property Terminated: Boolean read FTerminated;

  public

    constructor Create(CreateSuspended: Boolean);

    destructor Destroy; override;

    procedure AfterConstruction; override;

    procedure Resume;

    procedure Suspend;

    procedure Terminate;

    function WaitFor: LongWord;

    class procedure Synchronize(AThread: TThread; AMethod: TThreadMethod); overload;

    class procedure StaticSynchronize(AThread: TThread; AMethod: TThreadMethod);

    property FatalException: TObject read FFatalException;

    property FreeOnTerminate: Boolean read FFreeOnTerminate write FFreeOnTerminate;

    property Handle: THandle read FHandle;

    property Priority: TThreadPriority read GetPriority write SetPriority;

    property Suspended: Boolean read FSuspended write SetSuspended;

    property ThreadID: THandle read FThreadID;

    property OnTerminate: TNotifyEvent read FOnTerminate write FOnTerminate;

  end;

TThread類在Delphi的RTL里算是比較簡單的類，類成員也不多，類屬性都很簡單明白，本文將只對幾個比較重要的類成員方法和唯一的事件：OnTerminate作詳細(xì)分析。

（待續(xù)）