多線程編程(6) - 從 CreateThread 說起[續(xù)四]
function CreateThread(
lpThreadAttributes: Pointer;
dwStackSize: DWORD; {堆棧大小}
lpStartAddress: TFNThreadStartRoutine;
lpParameter: Pointer;
dwCreationFlags: DWORD;
var lpThreadId: DWORD
): THandle; stdcall;
CreateThread 的第二個參數(shù)是分配給線程的堆棧大小.
這首先這可以讓我們知道: 每個線程都有自己**的堆棧(也擁有自己的消息隊(duì)列).
什么是堆棧? 其實(shí)堆是堆、棧是棧, 有時 "棧" 也被叫做 "堆棧".
它們都是進(jìn)程中的內(nèi)存區(qū)域, 主要是存取方式不同(棧:先進(jìn)后出; 堆:先進(jìn)先出);
"棧"(或叫堆棧)適合存取臨時而輕便的變量, 主要用來儲存局部變量; 譬如 for i := 0 to 99 do 中的 i 就只能存于棧中, 你把一個全局的變量用于 for 循環(huán)計(jì)數(shù)是不可以的.
現(xiàn)在我們知道了線程有自己的 "棧", 并且在建立線程時可以分配棧的大小.
前面所有的例子中, 這個值都是 0, 這表示使用系統(tǒng)默認(rèn)的大小, 默認(rèn)和主線程棧的大小一樣, 如果不夠用會自動增長;
那主線程的棧有多大? 這個值是可以設(shè)定的: Project -> Options -> Delphi Compiler -> Linking(如圖)
棧是私有的但堆是公用的, 如果不同的線程都來使用一個全局變量有點(diǎn)亂套;
為解決這個問題 Delphi 為我們提供了一個類似 var 的 ThreadVar 關(guān)鍵字, 線程在使用 ThreadVar聲明的全局變量時會在各自的棧中留一個副本, 這樣就解決了**. 不過還是盡量使用局部變量, 或者在繼承 TThread 時使用類的成員變量,因?yàn)?ThreadVar 的效率不好, 據(jù)說比局部變量能慢 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 秒鐘再繼續(xù)}
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ID: DWORD;
begin
{借入口函數(shù)的參數(shù)傳遞了一個坐標(biāo)點(diǎn)中的 Y 值, 以讓各線程把結(jié)果輸出在不同位置}
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
