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