尽管可以用 Addr(类名.方法名) 或 MethodAddress('published 区的方法名') 获取类中方法的地址, 但都不能当做线程的入口函数, 原因可能是因为类中的方法的地址是在实例化为对象时动态分配的. 后来换了个思路, 其实很简单: 在线程函数中再调用方法不就得了, 估计 TThread 也应该是这样.

下面的例子就尝试了用线程调用 TForm1 类中的方法, 并测试了退出码的相关问题.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

delphi多线程 delphi线程详细教程简单到复杂

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 是我随意给的数

delphi多线程 delphi线程详细教程简单到复杂

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);

delphi多线程 delphi线程详细教程简单到复杂

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 循环计数是不可以的.

delphi多线程 delphi线程详细教程简单到复杂

现在我们知道了线程有自己的 "栈", 并且在建立线程时可以分配栈的大小.

前面所有的例子中, 这个值都是 0, 这表示使用系统默认的大小, 默认和主线程栈的大小一样, 如果不够用会自动增长;

那主线程的栈有多大? 这个值是可以设定的: Project -> Options -> linker -> memory size(如图)

栈是私有的但堆是公用的, 如果不同的线程都来使用一个全局变量有点乱套;