Delphi7_VCL线程的使用（一）

1、TThread类的属性

　　（1）FreeOnTerminate属性

　　该属性用于指定当前的线程终止时是否自动删除线程对象。默认值为true。

　　语法：

 Property FreeOnTerminate:Boolen; 

　　（2）priority属性

　　该属性用设置线程的优先级，线程的优先级是对同一进程的其他优先级而言的。

　　语法：

Property priority:TThreadPriority; 

　　指定线程的优先级为低，代码如下：

var
    SecondProcess:TMyThread; 
begin 
    SecondProcess:= TMyThread.Create(True);        
    SecondProcess.Proroty:= tpLower;
    SecondProcess.Resumer;;
end

　　（3）Return Value属性

　　当线程终止时，用该属性为其他线程传递一个返回值

　　语法：

Property ReturnValue:Integer;

　　（4）Suspended属性

　　该属性用于指明线程是否处于挂起状态

　　语法：

Property Suspended:Boolean;

　　（5）Terminated属性

　　在线程运行时，如果将该属性设置为True，则应将线程终止；

　　语法：

Property Terminated:Boolean;

　　当线程未终止时执行循环，代码如下：

while(not Terminated) and (ClientSocket1.Active)do
    begin
        try
            GetNextRequest(buffer);
            TheStream.Write(buffer,Length(buffer) + 1);
           except
            if not(ExceptObject is EAbort) then
                Synchronize(Handle ThreadException);
           end;
    end;

　　（6）ThreadID属性

　　线程的ID。线程的唯一标识

　　语法：

Property ThreadID:Thandle;

　　（7）Handle属性

　　线程的句柄。

　　语法：

Property Handle:Thandle;

 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2021-07-26