程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 多線程編程(6)-從 CreateThread 說起[續四]

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

編輯:Delphi

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved