DELPHI线程类挂起的问题

 

 

DELPHI线程类挂起的问题

                                                                                           ——赵海杰

对于用过Delphi的TThread类的兄弟应该很了解，在Tthread中有个Suspended属性，如果Suspended属性为True时，则表示线程是挂起状态，为False则表示线程是运行状态。但是有些人常会发现：如果频繁的挂起和唤醒线程时，就会出现，线程已经挂起而Suspended为False的现象。

问题发现：

如果我们想写一个程序，其中想判断一个线程是否是挂起状态，是则唤醒去处理一件事情，否则调用别的线程。每个线程做完事情后都会自动挂起。代码实现如下：

控制线程：

If thread. Suspended = true then

Begin

   // 是空闲状态，唤醒，

   Thread.resume;

End

Else

Begin

   // 不是，等待。

   wait();

End;

// 线程处理函数

procedure thread.Execute ;

begin

while terminated = false do

begin

   dowork;

    // 做完后挂起。

   suspend;

end;

end;

 

如果控制线程事情很多，对线程调起很频繁，时间不长，线程就会挂起，而Suspended属性一直为false,整个系统就可能停掉。

问题分析：

我们可以先看一下Tthread线程的挂起和唤醒函数，Delphi中有源代码。只看windows的。

$IFDEF MSWINDOWS}

procedure TThread.Suspend;

begin

 FSuspended := True;

 CheckThreadError(Integer(SuspendThread(FHandle)) >= 0);

end;

 

procedure TThread.Resume;

var