DELPHI下的多執行緒程式設計(1)
我們知道，win95或winNT都是「多執行緒」的作業系統，在DELPHI 2．0中，我們可以充分利用這個特性，編寫出「多執行緒」的應用程式。
對以往在DOS或16位windows下寫程式的人來說，「多執行緒」仍然是陌生的，但如同以前我們從DOS下的單任務過渡到windows3．1下的多任務，如今我們又必須過渡到「多執行緒」領域，畢竟電腦時代是在不斷發展的。不過，幸運的是，在DELPHI2．0下進行多執行緒程式設計並不需要我們去學習龐大的WIN32API函數，我們可以利用DELPHI下標準的多執行緒類別TThread來完成我們的工作。
TThread是一個abstract（抽象）類，也就是說，並不需要根據TThread來聲明變數（而且根據TThread聲明的變數也是完全無用），我們要做的是把TThread作為基類，用繼承的形式來生成子類別。實際上，根據TThread來寫多執行緒應用程式是非常容易的。
下面就是一個基本的繼承TThread所產生的多執行緒類別。
QuerThrd． Pas
unitQuerThrd；
interface
uses
Classes，DBTables；
type
TQueryThreadΚclass（TThread）
PRivate
fQuery：tQuery；
protected
procedureExecute；override；
public
constructorCreate（Suspended：Boolean；Query：TQuery）；
end；
implementation
constructor
TQueryThread． Create（Suspended：Boolean；Query：TQuery）；
begin
inheritedCreate（Suspended）；
fQuery：ΚQuery；
FreeOnTerminate：ΚTrue；
end；
procedureTQueryThread． Execute；
begin
fQuery． Open；
end；
end．
在上面這個簡單的範例中，我們建構了一個TThread的子類別TQueryThread，用來在背景執行資料庫查詢。在該類別的Create函數中，傳遞了兩個參數Suspended和Query，其中Suspended用於控制線程的運行，如果Suspend為真，TQueryThread類別的線程在建立後將立即被懸掛，一直到運行了Resume方法，該執行緒才會繼續執行，Query參數用於接受一個已經存在的Query控制項（在窗體中真正的Query控制項）而使它在多執行緒的情況下運行。 Execute是最重要的過程，它是類別TQueryThread的執行部分，所有需要在這個多執行緒類別中執行的語句都必須寫在這個過程裡。
當實際建構自己的多執行緒類別時，並不需要輸入所有的這些程式碼，選擇DELPHI的File選單下的new選項，再選「TThreadObject」項目，DELPHI就會為你建構基本的程式模組。然後我們可以根據需要再做相對應的修改。
進程的執行：
假設我們已經建立了一個窗體FORM1，窗體中有我們將要使用的查詢控制項Query1。那我們在該單元的USES部分加入上面寫的QuerThrd單元。
procedureTForm1． Button1Click（Sender：TObject）；
begin
｛建立一個運作的進程｝
TQueryThread． Create（False，Query1）；
end；
如果這個程序被執行，那麼窗體中的查詢控制項Query1就會自動在多執行緒的環境下執行查詢。注意TQueryThread類別中只有Create而沒有Free，動態建立類別以後又忘記刪除是我們常犯的錯誤之一，不過在這裡由於我們指定了FreeOnTerminate（運行完即刪除）為真，所以當Execute裡的語句執行完後，TQueryThread類別佔據的記憶體控制項將會自動釋放。
然而還有一個問題值得我們注意，由於同一時刻可以有多個執行緒同時運行，那麼我們還必須解決好同步的問題，如果幾個多執行緒程式之間沒有任何關聯，那麼它們之間也不會有任何衝突。但實際上，可能同時運行幾個多線程的資料庫應用程序，由於需要共享相同的資料庫資源，我們還需要為Query1增加一個Tsession控制項。
其實，雖然我們也許沒有親自使用過Session控件，但實際上，在所有的資料庫訪問時DELPHI都會自動建立一個臨時的Session控件，使用完後又動態地刪除掉它。在平常的資料庫程式設計時，用不著我們親自來操作，但在資料庫多執行緒執行的情況下，為了不互相衝突，我們必須為每個資料庫存取都自訂自己的Session控制項。這個步驟非常簡單，我們只需要在窗體中增加一個Session控件，然後給它的屬性“Sessionname”寫一個任意的名字，並再在Query1的“Sessionname”中寫一個相同的名字。這樣我們的資料庫程式就安全了。
另一類需要解決同步問題的是那些對VCL資源進行操作的程序，這類的程序非常多，好在解決的方法也非常簡單。
我們可以看下面這樣一個程式：
unitBncThrd；
interface
uses
WinProcs，Classes，Graphics，ExtCtrls；
type
TBounceThreadΚclass（TThread）
private
FShape：TShape；
FXSpeed：Integer；
FYSpeed：Integer；
procedureMoveShape；
protected
procedureExecute；override；
public
constructorCreate（Suspended：Boolean；Shape：TShape；XSpeed，YSpeed：Integer）；
propertyShape：TShapereadFShape；
end；
implementation
procedureTBouad． MoveShape；
var
MaxHeight，MaxWidth：Integer；
begin
withFShapedo
begin
Left：ΚLeft＋FXSpeed；
Top：ΚTop＋FYSpeed；
if（LeftΙ0）or
（Left＋WidthΛParent．Width）then
FXSpeed：ΚFXSpeed＊－1；
if（TopΙ0）or
（Top＋HeightΛParent．Height）then
FYSpeed：ΚFYSpeed＊－1；
作者Blog： http://blog.csdn.net/zou5655/