◆delphi多線程編程之一create和Free◆

Google搜到線程的例子都是那個畫圖的，猛禽那個多線程又太過高深（對於我這一滴水來說），萬一老師開線程的博還是要等。只有自己看著《Delphi5開發人員指南》中文版PDF一步一步來弄懂些初步的東西，到時候可以跟上萬一老師的課程。

一、建立：

1、直接書寫：

unit Unit1;
interface
uses Classes;
TMyThead = class(TThread)
private
    { Private declarations }
protected
    procedure Execute; override;
end;
implementation
{用滑鼠放在上面的TMyThead上按ctrl+alt+c直接自動產生下面的}
procedure TMyThead.Execute;
begin
inherited;
end;
2、在File菜單的New—Others—Delphi Files裡面選Thread Object，出來一個對話方塊，你在Thread名字裡填TMyThread後，就會自動產生一個新的Unit2，裡面的內容和上面一樣。

二、簡單例子：（常式：Tst_Thread.dpr）

在一個Form上放3個按鈕和一個Memo，然後加上下面這段。

TMyThead = class(TThread)
private
    { Private declarations }
protected
    procedure Execute; override;
end;
var
Form1: TForm1;
m:integer;
implementation
{$R *.dfm}
{ TMyThead }
function Func1(const n:Integer):Integer; // 定義一個耗時函數來運行
begin
Result:=Round(abs(Sin(Sqrt(n))));
end;
procedure TMyThead.Execute;
var
i:integer;
begin
for i := 0 to 20000000 do
    inc(m,Func1(i)); //m全域變數
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to 20000000 do
    inc(m,Func1(i)); //m全域變數
end;
procedure TForm1.Button2Click(Sender: TObject);
var
MyThread:TMyThead;
begin
m:=0;
MyThread:=TMyThead.Create(False);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.Add('ok'+inttostr(m));
end;
end.
Button1Click

後，Button3要過好幾秒才能按下（嘿嘿，我的機子好，書上的例子i才200萬，我加到2000萬Button3才延遲幾秒）。 Button2Click後，立刻可以按Button3，這就是線程的好處。另外，我這裡還沒搞懂線程在哪安全free，所以乾脆不free了。

　　注意：當TThread的Create()被調用時，需要傳遞一個布爾型的參數CreateSuspended。如果把這個參數設成False，那麼當調用Create()後，Excute()會被自動地調用，也就是自動地執行線程代碼。如果該參數設為True，則需要運行TThread的 Resume()來喚醒線程。一般情況下，當你調用Create()後，還會有一些其他的屬性要求設定。所以，應當把CreateSuspended參數設為True，因為在TThread已執行的情況下設定TThread的屬性可能會引起麻煩。

　　再深入一點講，在建構函式Create()中隱含調用了一個RTL常式BeginThread()，而它又調用了一個API函數 CreateThread()來建立一個線程對象的執行個體。CreateSuspended參數表明是否傳遞CREATE_ SUSPEDED標誌給CreateThread()。

三、線程的安全Free：（ps：這是我從PDF上copy整理的，例子稍微改過，本人沒有那麼高深）

　　當線程對象的Excute()執行完畢，我們就認為此線程終止了。這時，它會調用Delphi的一個標準常式EndThread()，這個常式再調用API函數ExitThread()。由ExitThread() 來清除線程所佔用的棧。

　　當結束使用TThread對象時，應該確保已經把這個Object Pascal對象從記憶體中清除了。這才能確保所有記憶體佔有都釋放掉。儘管在進程終止時會自動清除所有的線程對象，但及時清除已不再用的對象,可以使記憶體的使用效率提高。利用將FreeOnTerminate的屬性設為True的方法來及時清除線程對象是最方便的辦法，這隻需要在Excute()退出前設定就行了。設定方法如下：

procedure TMyThead.Execute;
var
i:integer;
begin
FreeOnTerminate:=True;
for i := 0 to 20000000 do
    inc(m,Func1(i));
end;

　　這樣，當一個線程終止時，就會觸發OnTerminate事件，就有機會在事件處理過程內清除線程對象了。

　　若提前退出，Excute()就要不斷檢查Terminated屬性的值。上面的代碼繼續加上：

procedure TMyThead.Execute;
var
i:integer;
begin
FreeOnTerminate:=True; //終止後自動free
for i := 0 to 20000000 do
begin
    if Terminated then Break;
    inc(m,Func1(i));
end;
end;

注意：某些緊急情況下，你可以使用Win32API函數TerminateThread()來終止一個線程。但是，除非沒有別的辦法了，否則不要用它。例如，當線程代碼陷入死迴圈時。

TerminateThread()的聲明如下：
function TerminateThread(hThread:THandle;dwExitCode:DWORD);
TThread的Handle屬性可以作為第一個參數，因此，TerminateThread()常這樣調用：
TerminateThread(MyThread.Handle,0)

　　如果選擇使用這個函數，應該考慮到它的負面影響。首先，此函數在Windows NT與在

　　Windows 95/98下並不相同。在Windows 95/98 下，這個函數能夠自動清除線程所佔用的棧；而在Windows NT下，在進程被終止前棧仍然保留。其次，無論線程代碼中是否有try...fina lly塊，這個函數都會使線程立即停止執行。這意味著，被線程開啟的檔案沒有被關閉、由線程申請的記憶體沒有被釋放等情況。而且，這個函數在終止線程的時候也不通知DLL，當DLL關閉時，這也容易出現問題。

 

四、線程的掛起和喚醒：

當線程Create()中的CreateSuspended屬性為True時，線程建立後並不立即執行。可以用用Suspend()和Resume()來動態地掛起或喚醒。

//掛起和喚醒
procedure Func2(MyThread:TMyThead;Memo:TMemo);
var
PassTime:Cardinal;
begin
MyThread.Suspend;
PassTime:=GetTickCount;
Memo.Lines.Add('m:'+inttostr(m));
Sleep(2000); //等待2秒
PassTime:=GetTickCount-PassTime;
Memo.Lines.Add('SuspendTime:'+inttostr(PassTime)+'*m:'+inttostr(m));
MyThread.Resume;
PassTime:=GetTickCount;
Sleep(2000);
PassTime:=GetTickCount-PassTime;
Memo.Lines.Add('ReSumeTime:'+inttostr(PassTime)+'*m:'+inttostr(m));
end;
procedure TForm1.Button5Click(Sender: TObject);
var
MyThread:TMyThead;
begin
m:=0;
MyThread:=TMyThead.Create(False);
Func2(MyThread,Memo1);
end;
運行結果：

Memo1
m:0
SuspendTime:2000*m:0
ReSumeTime:2000*m:9630399

五、取得線程的時間：(本節只是介紹GetThreadTimes()的用法，可略過)

    上例可以看見，用Windows.GetTickCount()來取得線程已耗用時間是不準確的。Win32提供了一個API函數GetThreadTimes()，定義如下：

BOOL WINAPI GetThreadTimes(
HANDLE hThread,
LPFILETIME lpCreationTime,    線程建立的時間
LPFILETIME lpExitTime,        線程退出的時間。如果線程還在執行，此值無意義。
LPFILETIME lpKernelTime,      執行作業系統代碼所用的時間。
LPFILETIME lpUserTime         執行應用程式本身代碼所用的時間。
);

函數傳回值失敗時為0，成功為不等於零的數。可用GetLastError()來取得更詳細的資料。

以上四個參數都是TFileTime類型。此類型在Windows單元中聲明如下：

typedef struct _FILETIME {
DWORD dwLowDateTime;
DWORD dwHighDateTime;
} 64位元，以100納秒（1納秒=10億分之一秒）的時間間隔自1601年1月1號(UTC)表示。

TFileTime的長度是64位，為了進行數學運算可以把它轉換為Int64。例如兩個TFileTime的值比較大小：

If Int64(UserTime)> Int64(KernelTime) then Beep;

Delphi只提供了FileTimeToDosDateTime，FileTimeToLocalFileTime和FileTimeToSystemTime這三個轉換函式，所以要自己寫和TdateTime的轉換函式。

上面的例子加多一個函數：

procedure Func3(MyThread:TMyThead;Memo:TMemo); //計算線程時間
function FileTimeToDateTime(FileTime:TFileTime):TDateTime; //TFileTime轉化成TDateTime
var
    SysTime:TSystemTime;
begin
    if not FileTimeToSystemTime(FileTime,SysTime) then
      Raise Exception.CreateFmt('FileTimeToSystemTime failed.'+
      'Error code %d',[GetLastError]);
    with SysTime do
      Result:=EncodeDate(wYear,wMonth,wDay)+
        EncodeTime(wHour,wMinute,wSecond,wMilliseconds);
end;
var
CreateTime,ExitTime,KernelTime,UserTime:TFileTime;
begin
if GetThreadTimes(MyThread.Handle,CreateTime,ExitTime,KernelTime,UserTime) then
begin
    Memo.Lines.Add('建立時間：'+DateTimeToStr(FileTimeToDateTime(CreateTime)));
    Memo.Lines.Add('退出時間：'+DateTimeToStr(FileTimeToDateTime(ExitTime)));
    Memo.Lines.Add('Win時間：'+DateTimeToStr(FileTimeToDateTime(KernelTime)));
    Memo.Lines.Add('進程時間：'+DateTimeToStr(FileTimeToDateTime(UserTime)));
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
MyThread:TMyThead;
begin
m:=0;
MyThread:=TMyThead.Create(False);
Func2(MyThread,Memo1);
Memo1.Lines.Add('---------------');
Func3(MyThread,Memo1);
end;

運行結果：
Memo1
m:0
SuspendTime:2000*m:0
ReSumeTime:2000*m:9585649