多線程編程(6) - 從 CreateThread 說起[續四]

function CreateThread(
　lpThreadAttributes: Pointer;
　dwStackSize: DWord;　{堆棧大小}
　lpStartAddress: TFNThreadStartRoutine;
　lpParameter: Pointer;
　dwCreationFlags: DWord;
　var lpThreadId: DWord
): THandle; stdcall;

　　CreateThread 的第二個參數是分配給線程的堆棧大小.

　　這首先這可以讓我們知道: 每個線程都有自己獨立的堆棧(也擁有自己的消息隊列).

　　什麼是堆棧? 其實堆是堆、棧是棧, 有時 "棧" 也被叫做 "堆棧".

　　它們都是進程中的內存區域, 主要是存取方式不同(棧:先進後出; 堆:先進先出);

　　"棧"(或叫堆棧)適合存取臨時而輕便的變量, 主要用來儲存局部變量; 譬如 for i := 0 to 99 do 中的 i 就只能存於棧中, 你把一個全局的變量用於 for 循環計數是不可以的.

　　現在我們知道了線程有自己的 "棧", 並且在建立線程時可以分配棧的大小.

　　前面所有的例子中, 這個值都是 0, 這表示使用系統默認的大小, 默認和主線程棧的大小一樣, 如果不夠用會自動增長;

　　那主線程的棧有多大? 這個值是可以設定的: Project -> Options -> Delphi Compiler -> Linking(如圖)

　　棧是私有的但堆是公用的, 如果不同的線程都來使用一個全局變量有點亂套;

　　為解決這個問題 Delphi 為我們提供了一個類似 var 的 ThreadVar 關鍵字, 線程在使用 ThreadVar 聲明的全局變量時會在各自的棧中留一個副本, 這樣就解決了沖突. 不過還是盡量使用局部變量, 或者在繼承 TThread 時使用類的成員變量, 因為 ThreadVar 的效率不好, 據說比局部變量能慢 10 倍.

在下面的例子就測試了用 var 和 ThreadVar 定義變量的不同.

　　使用 var 效果圖:

　　使用 ThreadVar 效果圖:

　　代碼文件:

unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;
type
　TForm1 = class(TForm)
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
//var num: Integer;　　 {全局變量}
threadvar num: Integer; {支持多線程的全局變量}
function MyThreadFun(p: Pointer): DWord; stdcall;
var
　py: Integer;
begin
　py := Integer(p);
　while True do
　begin
　　Inc(num);
　　with Form1.Canvas do begin
　　　Lock;
　　　TextOut(20, py, IntToStr(num));
　　　Unlock;
　　end;
　　Sleep(1000); {然線程掛起 1 秒鐘再繼續}
　end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
　ID: DWord;
begin
　{借入口函數的參數傳遞了一個坐標點中的 Y 值, 以讓各線程把結果輸出在不同位置}
　CreateThread(nil, 0, @MyThreadFun, Ptr(20), 0, ID);
　CreateThread(nil, 0, @MyThreadFun, Ptr(40), 0, ID);
　CreateThread(nil, 0, @MyThreadFun, Ptr(60), 0, ID);
end;
end.

窗體文件:

object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClIEntHeight = 106
　ClIEntWidth = 180
　Color = clBtnFace
　Font.Charset = DEFAULT_CHARSET
　Font.Color = clWindowText
　Font.Height = -11
　Font.Name = 'Tahoma'
　Font.Style = []
　OldCreateOrder = False
　PixelsPerInch = 96
　TextHeight = 13
　object Button1: TButton
　　Left = 80
　　Top = 40
　　Width = 75
　　Height = 25
　　Caption = 'Button1'
　　TabOrder = 0
　　OnClick = Button1Click
　end
end