delphi与多线程编程之多线程同步之 CriticalSection

functionCreateThread(

lpThreadAttributes:Pointer;

dwStackSize:DWORD;

lpStartAddress:TFNThreadStartRoutine;{入口函数的指针}

lpParameter:Pointer;

dwCreationFlags:DWORD;

varlpThreadId:DWORD

):THandle;stdcall;

--------------------------------------------------------------------------------

到了入口函数了,学到这个地方,我查了一个入口函数的标准定义,这个函数的标准返回值应该是DWORD,不过这函数在Delphi的System单元定义的是:TThreadFunc=function(Parameter:Pointer):Integer;我以后会尽量使用DWORD做入口函数的返回值.这个返回值有什么用呢?

等线程退出后,我们用GetExitCodeThread函数获取的退出码就是这个返回值!

如果线程没有退出,GetExitCodeThread获取的退出码将是一个常量STILL_ACTIVE(259);这样我们就可以通过退出码来判断线程是否已退出.

还有一个问题:前面也提到过,线程函数不能是某个类的方法!假如我们非要线程去执行类中的一个方法能否实现呢?

尽管可以用Addr(类名.方法名)或MethodAddress('published区的方法名')获取类中方法的地址,但都不能当做线程的入口函数,原因可能是因为类中的方法的地址是在实例化为对象时动态分配的.

后来换了个思路,其实很简单:在线程函数中再调用方法不就得了,估计TThread也应该是这样.

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

--------------------------------------------------------------------------------

代码文件:

--------------------------------------------------------------------------------

unitUnit1;

interface

uses

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

Dialogs,StdCtrls;

type

TForm1=class(TForm)

Button1:TButton;

Button2:TButton;

procedureButton1Click(Sender:TObject);

procedureButton2Click(Sender:TObject);

private