procedure FormProc; {准备给线程使用的方法} end; var
Form1: TForm1;
implementation
{$R *.dfm} var
hThread: THandle;
{线程入口函数}
function MyThreadFun(p: Pointer): DWORD; stdcall; begin
Form1.FormProc; {调用 TForm1 类的方法}
Result := 99; {这个返回值将成为线程的退出代码, 99 字} end;
{TForm1 的方法, 本例中是给线程的入口函数调用的} procedure TForm1.FormProc; var
i: Integer; begin
for i := 0 to 200000 do begin
是我随意给的数 with Form1.Canvas do begin Lock;
TextOut(10, 10, IntToStr(i)); Unlock; end; end; end;
{建立并执行线程}
procedure TForm1.Button1Click(Sender: TObject); var
ID: DWORD; begin
hThread := CreateThread(nil, 0, @MyThreadFun, nil, end;
{获取线程的退出代码, 并判断线程是否退出} procedure TForm1.Button2Click(Sender: TObject); var
ExitCode: DWORD; begin
GetExitCodeThread(hThread, ExitCode);
if hThread = 0 then begin
Text := '线程还未启动'; Exit; end;
0, ID);
if ExitCode = STILL_ACTIVE then
Text := Format('线程退出代码是: %d, 表示线程还未退出', [ExitCode]) else
Text := Format('线程已退出, 退出代码是: %d', [ExitCode]); end; end.
㈤、堆栈大小
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 -> linker -> memory size(如图)
栈是私有的但堆是公用的, 如果不同的线程都来使用一个全局变量有点乱套;
为解决这个问题 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;