多线程编程(6) - 从 CreateThread 说起[续四]
来源:互联网 发布:非线性控制 知乎 编辑:程序博客网 时间:2024/05/03 00:39
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;interfaceuses 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 endend
转帖:http://www.cnblogs.com/del/archive/2009/02/11/1388700.html
- 多线程编程(6) - 从 CreateThread 说起[续四]
- 多线程编程(6) - 从 CreateThread 说起[续四]
- 多线程编程(5) - 从 CreateThread 说起[续四]
- 多线程编程(3) - 从 CreateThread 说起[续]
- 多线程编程(2) - 从 CreateThread 说起[续]
- 多线程编程(3) - 从 CreateThread 说起[续]
- 多线程编程(6) - 从 CreateThread 说起[续五]
- 多线程编程 - 从 CreateThread 说起
- 多线程编程(4) - 从 CreateThread 说起[续二]
- 多线程编程(5) - 从 CreateThread 说起[续三]
- 多线程编程(7) - 从 CreateThread 说起[续五]
- 多线程编程(3) - 从 CreateThread 说起[续二]
- 多线程编程(4) - 从 CreateThread 说起[续三]
- 多线程编程(4) - 从 CreateThread 说起[续二]
- 多线程编程(5) - 从 CreateThread 说起[续三]
- 多线程编程(7) - 从 CreateThread 说起[续五]
- 多线程编程(2) - 从 CreateThread 说起
- 多线程编程(1)- 从 CreateThread 说起
- win 7下IIS 部署学习笔记
- SQL优化34条
- 用SQL语句添加删除修改字段 其他高级sql语句
- offer
- 谁也挡不住,我去见主席
- 多线程编程(6) - 从 CreateThread 说起[续四]
- Xvid学习
- 洞察BUG 及控制策略
- CCIE運營商筆試與實驗室考試已經更新
- Q -function/error function
- 好久没来这里了,改变很大啊!
- ubuntu下安装wine
- SAP的打油诗
- Android学习笔记6——基本布局