请教线程的唤醒问题！
procedure TTestThread.Execute ;
begin
FLock.Enter ;
hEvent:=CreateEvent(nil,True,False,nil);
if intRun=1 then SetEvent(hEvent) else resetEvent(hEvent);
if WaitForSingleobject(hEvent,INFINITE)=WAIT_OBJECT_0 then Synchronize(ShowMsg);
intRun:=0;
FLock.Leave ;
end;
procedure TTestThread.ShowMsg ;
begin
Form1.Memo1.Lines.Add(FData);
end;
intRun,hEvent均是TTestThread的私有成员
线程初始时处于不发信号的状态并加入线程池中
通过
TTestThread(ThreadPooler.FActiveList.Items[i]).intRun:=1;
来设置线程池内线程的发信号状态
问题1：照理该线程处于发信号状态时TTestThread.Execute因
改继续往下走啊，也就是MEMO1上显示FDATA，而该段程序却并
非如此，不知为何。
问题2：可以通过再次CREATE执行EXECUTE，但这样的效率很低
，速度慢了很多，请问有什么办法可以不通过再次CREATE而执
行EXECUTE（此时处于发信号状态），线程创建时是inherited
Create(false), 所以也不能用resume.
问题点数：0、回复次数：3Top
1 楼pencil_xx（TureApple）回复于 2003-08-03 16:17:07 得分 0
在这里
waitforsingleobject(hevent,infinite)
你是否把创建事件的HANDLE
与线程的HANDLE
弄混了.
这个hevent
是不是应该由
createthread来得到!个人意见:)
Top
2 楼pencil_xx（TureApple）回复于 2003-08-03 16:29:59 得分 0
对不起我刚才查了一些资料.
在
crateevent的时候.
第三个参数如果设置为True则初始为有信号那么线程可直接执行?Top
3 楼westfly（左眼）回复于 2003-08-04 06:18:35 得分 0
procedure TTestThread.Execute ;
begin
while not Terminated do
begin
if WaitForSingleObject(FEvent.Handle, INFINITE) = WAIT_OBJECT_0 then
try
FLock.Enter;
//dosomething
finally
FLock.Leave;
end;
end;
end;Top
