欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

多線(xiàn)程編程(6) - 從 CreateThread 說(shuō)起[續四]

 function CreateThread(
　lpThreadAttributes: Pointer;
　dwStackSize: DWORD;　{堆棧大小}
　lpStartAddress: TFNThreadStartRoutine;
　lpParameter: Pointer;
　dwCreationFlags: DWORD;
　var lpThreadId: DWORD
): THandle; stdcall;
　　CreateThread 的第二個(gè)參數是分配給線(xiàn)程的堆棧大小.
　　這首先這可以讓我們知道: 每個(gè)線(xiàn)程都有自己**的堆棧(也擁有自己的消息隊列).
　　什么是堆棧? 其實(shí)堆是堆、棧是棧, 有時(shí) "棧" 也被叫做 "堆棧".
　　它們都是進(jìn)程中的內存區域, 主要是存取方式不同(棧:先進(jìn)后出; 堆:先進(jìn)先出);
　　"棧"(或叫堆棧)適合存取臨時(shí)而輕便的變量, 主要用來(lái)儲存局部變量; 譬如 for i := 0 to 99 do 中的 i 就只能存于棧中, 你把一個(gè)全局的變量用于 for 循環(huán)計數是不可以的.
　　現在我們知道了線(xiàn)程有自己的 "棧", 并且在建立線(xiàn)程時(shí)可以分配棧的大小.
　　前面所有的例子中, 這個(gè)值都是 0, 這表示使用系統默認的大小, 默認和主線(xiàn)程棧的大小一樣, 如果不夠用會(huì )自動(dòng)增長(cháng);
　　那主線(xiàn)程的棧有多大? 這個(gè)值是可以設定的: Project -> Options -> Delphi Compiler -> Linking(如圖)

　　棧是私有的但堆是公用的, 如果不同的線(xiàn)程都來(lái)使用一個(gè)全局變量有點(diǎn)亂套;
　　為解決這個(gè)問(wèn)題 Delphi 為我們提供了一個(gè)類(lèi)似 var 的 ThreadVar 關(guān)鍵字, 線(xiàn)程在使用 ThreadVar聲明的全局變量時(shí)會(huì )在各自的棧中留一個(gè)副本, 這樣就解決了**. 不過(guò)還是盡量使用局部變量, 或者在繼承 TThread 時(shí)使用類(lèi)的成員變量,因為 ThreadVar 的效率不好, 據說(shuō)比局部變量能慢 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; {支持多線(xiàn)程的全局變量}
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); {然線(xiàn)程掛起 1 秒鐘再繼續}
　end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
　ID: DWORD;
begin
　{借入口函數的參數傳遞了一個(gè)坐標點(diǎn)中的 Y 值, 以讓各線(xiàn)程把結果輸出在不同位置}
　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