Delphi多線程編程中的技巧

（1）創(chuàng)建線程

MsgThread:=TMsgThread.Create(False);//創(chuàng)建并執(zhí)行線程

MsgThread:=TMsgThread.Create(True);//創(chuàng)建線程后掛起

constructorCreate(CreateSuspended:Boolean);中的參數(shù)CreateSuspended表示創(chuàng)建后是否掛起線程。

（2）設(shè)置線程里沒有設(shè)置循環(huán)執(zhí)行的話，且設(shè)置FreeOnTerminate為True，則線程執(zhí)行完后就會自己釋放。

（3）在一個線程結(jié)束后，調(diào)用另一個事件的方法：

只要設(shè)置Onterminate:=某方法,這樣在線程結(jié)束前自然會被調(diào)用，比如：

procedureTSendShortMessageThread.Execute;

var

Bitmap:Tbitamp;

begin

Bimap:=Tbitmap.create(nil);

OnTerminate:=Threaddone;

end;

procedureThreaddone(sender:tobject);

begin

Bimap.Free;//在Destory之前會被調(diào)用

end;

（4）程序結(jié)束前安全的退出線程的方法：

ifMsgThread<>nilthen

begin

MsgThread.Terminate;

MsgThread.WaitFor;

end;

（5）判斷當(dāng)前線程的狀態(tài)：

//以下資料來自大富翁論壇。

/判斷線程是否釋放

//返回值：0-已釋放；1-正在運(yùn)行；2-已終止但未釋放；

//3-未建立或不存在

functionTFrmMain.CheckThreadFreed(aThread:TThread):Byte;

var

i:DWord;

IsQuit:Boolean;

begin

ifAssigned(aThread)then

begin

IsQuit:=GetExitCodeThread(aThread.Handle,i);

ifIsQuitthen//Ifthefunctionsucceeds,thereturnvalueisnonzero.

//Ifthefunctionfails,thereturnvalueiszero.

begin

ifi=STILL_ACTIVEthen//Ifthespecifiedthreadhasnotterminated,

//theterminationstatusreturnedisSTILL_ACTIVE.

Result:=1

else

Result:=2;//aThread未Free，因為Tthread.Destroy中有執(zhí)行語句

end

else

Result:=0;//可以用GetLastError取得錯誤代碼

end

else

Result:=3;

end;

（6）線程同步。

如果線程要調(diào)用VCL里面的內(nèi)容（如：別的窗體中的控件），就需要將這個線程同步。線程同步表示交由主線程運(yùn)行這段代碼，各個線程都在主線程中分時間段運(yùn)行。另外，要想避免多個線程同時執(zhí)行同一段代碼也需要將多線程同步。

臨界區(qū)和互斥的作用類似，都是用來進(jìn)行同步的，但它們間有以下一點差別：

臨界區(qū)只能在進(jìn)程內(nèi)使用，也就是說只能是進(jìn)程內(nèi)的線程間的同步；而互斥則還可用在進(jìn)程之間的；臨界區(qū)所花消的時間很少，才10~15個時間片，而互斥需要400多個；臨界區(qū)隨著進(jìn)程的終止而終止，而互斥，如果你不用closehandle（）的話，在進(jìn)程終止后仍然在系統(tǒng)內(nèi)存在，也就是說它是系統(tǒng)全局對象；

同步的方法有：

（1）使用臨界區(qū)對象。

臨界區(qū)對象有兩種：TRTLCriticalSection和CriticalSection。

TRTLCriticalSection的用法

var

GlobalVariable:Double;

var

CriticalSection:TRTLCriticalSection;

procedureSetGlobalVariable(Value:Double);

begin

EnterCriticalSection(CriticalSection);//進(jìn)入臨界區(qū)

try

GlobalVariable:=Value;

finally

LeaveCriticalSection(CriticalSection);//離開臨界區(qū)

end;

end;

initialization

InitializeCriticalSection(CriticalSection);//初始化

finalization

DeleteCriticalSection(CriticalSection);//刪除

end.

CriticalSection（重要區(qū)段）的用法：

varcriticalsection:TCriticalsection;

創(chuàng)建：criticalsection:=TCriticalsection.create;

使用：

criticalsection.enter;

try

...

finally

criticalsection.leave;

end;

(2)使用互斥

先在主線程中創(chuàng)建事件對象：

var

hMutex:THandle=0;

...

hMutex:=CreateMutex(nil,False,nil);

在線程的Execute方法中加入以下代碼：

ifWaitForSingleObject(hMutex,INFINITE)=WAIT_OBJECT_0then

//DoSomething;

...

ReleaseMutex(hMutex);

最后記得要釋放互斥對象：

CloseHandle(hMutex);

(3)使用信號量

unitUnit1;

interface

uses

Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,

Dialogs,ExtCtrls,StdCtrls;

type

TForm1=class(TForm)

Edit1:TEdit;

Button1:TButton;

procedureFormCreate(Sender:TObject);

procedureFormDestroy(Sender:TObject);

procedureButton1Click(Sender:TObject);

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

type

TMyThread=class(TThread)

private

protected

procedureExecute;override;

public

constructorCreate;virtual;

end;

var

Form1:TForm1;

HSem:THandle=0;

implementation

{$R*.dfm}

var

tick:Integer=0;

procedureTMyThread.Execute;

var

WaitReturn:DWord;

begin

WaitReturn:=WaitForSingleObject(HSem,INFINITE);

Form1.Edit1.Text:=IntToStr(tick);

Inc(tick);

Sleep(10);

ReleaseSemaphore(HSem,1,Nil)

end;

constructorTMyThread.Create;

begin

inheritedCreate(False);

FreeOnTerminate:=True;

end;

procedureTForm1.FormCreate(Sender:TObject);

begin

HSem:=CreateSemaphore(Nil,1,1,Nil);

end;

procedureTForm1.FormDestroy(Sender:TObject);

begin

CloseHandle(HSem);

end;

procedureTForm1.Button1Click(Sender:TObject);

var

index:Integer;

begin

forindex:=0to10do

begin

TMyTh