壹個程序至少有壹個主進程,壹個進程至少有壹個線程。
主線程又程為UI線程。
進程和線程的主要差別在於它們是不同的操作系統資源管理方式。進程有獨立的地址空間,壹個進程崩潰後,在保護模式下不會對其它進程產生影響,而線程只是壹個進程中的不同執行路徑。線程有自己的堆棧和局部變量,但線程之間沒有單獨的地址空間,壹個線程死掉就等於整個進程死掉,所以多進程的程序要比多線程的程序健壯,但在進程切換時,耗費資源較大,效率要差壹些。但對於壹些要求同時進行並且又要***享某些變量的並發操作,只能用線程,不能用進程。如果有興趣深入的話,我建議妳們看看《現代操作系統》或者《操作系統的設計與實現》。對就個問題說得比較清楚。
多線程應該是編程工作者的基礎技能, 但這個基礎我從來沒學過,所以僅僅是看上去會壹些,明白了2+2的時候,其實我還不知道1+1。
開始本應該是壹篇洋洋灑灑的文字, 不過我還是提倡先做起來, 在嘗試中去理解.
先試試這個:
procedure TForm1.Button1Click(Sender: TObject); var
i: Integer; begin
for i := 0 to 500000 do
begin
Canvas.TextOut(10, 10, IntToStr(i));
end; end;
上面程序運行時, 我們的窗體基本是 "死" 的, 可以在妳在程序運行期間拖動窗體試試...
Delphi 為我們提供了壹個簡單的辦法(Application.ProcessMessages)來解決這個問題:
procedure TForm1.Button1Click(Sender: TObject); var
i: Integer; begin
for i := 0 to 500000 do
begin
Canvas.TextOut(10, 10, IntToStr(i));
Application.ProcessMessages;
end; end;
這個 Application.ProcessMessages; 壹般用在比較費時的循環中, 它會檢查並先處理消息隊列中的其他消息.
但這算不上多線程, 譬如: 運行中妳拖動窗體, 循環會暫停下來...
在使用多線程以前, 讓我們先簡單修改壹下程序:
function MyFun: Integer; var
i: Integer; begin
for i := 0 to 500000 do
begin
Form1.Canvas.Lock;
Form1.Canvas.TextOut(10, 10, IntToStr(i));
Form1.Canvas.Unlock;
end;
Result := 0; end;
procedure TForm1.Button1Click(Sender: TObject); begin
MyFun; end;
細數上面程序的變化:
1、首先這還不是多線程的, 也會讓窗體假 "死" 壹會;
2、把執行代碼寫在了壹個函數裏, 但這個函數不屬於 TForm1 的方法, 所以使用 Canvas 是必須冠以名稱(Form1);
3、既然是個函數, (不管是否必要)都應該有返回值;
4、使用了 500001 次 Lock 和 Unlock.
Canvas.Lock 好比在說: Canvas(繪圖表面)正忙著呢, 其他想用 Canvas 的等會;
Canvas.Unlock : 用完了, 解鎖!
在 Canvas 中使用 Lock 和 Unlock 是個好習慣, 在不使用多線程的情況下這無所謂, 但保不準哪天程序會擴展為多線程的; 我們現在學習多線程, 當然應該用.
在 Delphi 中使用多線程有兩種方法: 調用 API、使用 TThread 類; 使用 API 的代碼更簡單.
function MyFun(p: Pointer): Integer; stdcall; var
i: Integer; begin
for i := 0 to 500000 do
begin
Form1.Canvas.Lock;
Form1.Canvas.TextOut(10, 10, IntToStr(i));
Form1.Canvas.Unlock;
end;
Result := 0; end;
procedure TForm1.Button1Click(Sender: TObject); var
ID: THandle; begin
CreateThread(nil, 0, @MyFun, nil, 0, ID); end;
代碼分析:
CreateThread 壹個線程後, 算上原來的主線程, 這樣程序就有兩個線程、是標準的多線程了;
CreateThread 第三個參數是函數指針, 新線程建立後將立即執行該函數, 函數執行完畢, 系統將銷毀此線程從而結束多線程的故事.
CreateThread 要使用的函數是系統級別的, 不能是某個類(譬如: TForm1)的方法, 並且有嚴格的格式(參數、返回值)要求, 不管妳暫時是不是需要都必須按格式來;
因為是系統級調用, 還要綴上 stdcall, stdcall 是協調參數順序的, 雖然這裏只有壹個參數沒有順序可言, 但這是使用系統函數的慣例.
CreateThread 還需要壹個 var 參數來接受新建線程的 ID, 盡管暫時沒用, 但這也是格式; 其他參數以後再說吧.
這樣壹個最簡單的多線程程序就出來了, 咱們再用 TThread 類實現壹次
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
procedure TMyThread.Execute; var
i: Integer; begin
FreeOnTerminate := True; {這可以讓線程執行完畢後隨即釋放}
for i := 0 to 500000 do
begin
Form1.Canvas.Lock;
Form1.Canvas.TextOut(10, 10, IntToStr(i));
Form1.Canvas.Unlock;
end; end;
procedure TForm1.Button1Click(Sender: TObject); begin
TMyThread.Create(False); end;
TThread 類有壹個抽象方法(Execute), 因而是個抽象類, 抽象類只能繼承使用, 上面是繼承為 TMyThread.
繼承 TThread 主要就是實現抽象方法 Execute(把我們的代碼寫在裏面), 等我們的 TMyThread 實例化後, 首先就會執行 Execute 方法中的代碼.