关于delphi线程的问题

[DUTEddy]

WaitForSingleObject(event, INFINITE);
Sleep(1000);
Windows.ResetEvent(event);
...
Windows.SetEvent(event);

这是在一个线程的execute里的代码，如果执行到sleep的时候另一个线程也通过了WaitForSingleObject的判断，那么怎么办？有办法把WaitForSingleObject和Windows.ResetEvent(event)搞成原子操作？

[Mr Dang]

这段代码就是使几个线程在这里同步，也就是串行操作你省掉代码的这部分资源。

[看那山瞧那水]

简单就这样， WaitForSingleObject(event, INFINITE); Windows.ResetEvent(event); Sleep(1000);

[DUTEddy]

引用 2 楼 jankercsdn 的回复:

简单就这样， WaitForSingleObject(event, INFINITE); Windows.ResetEvent(event); Sleep(1000);

sleep只是放大了出错的可能，去掉的话那里也是有可能有其他线程进入的吧？

[满面尘，鬓如霜，何处话凄凉]

SingnalObjectAndWait

[满面尘，鬓如霜，何处话凄凉]

楼主的要求是 WaitForSingleObject(event, INFINITE); Sleep(1000); Windows.ResetEvent(event); 执行的时候，另一个线程不能运行。 那么 楼主应该 在WaitForSingleObject(event, INFINITE); Sleep(1000); Windows.ResetEvent(event);后面发送一个通知给另一个线程。 代码类似于： A线程： WaitForSingleObject(event, INFINITE); Sleep(1000); Windows.ResetEvent(event); Windows.setEvent(eventB); 。。。。。。。。 B线程： events:array[0..1] of Thandle events[0]:= xxxEvent; events[1] := eventB; waitformultObjects(events, ......); ...................do more ..............

[SVIP_]

首先你要弄清楚是什么需求

[xumenger]

这个问题是你凭空想的，还是有什么具体的实际场景？

[不得闲]

不明白，这里放一个Sleep有啥意义啊，你WaitForSingleObject(event, INFINITE);，这个的时候就，如果Event 无信号，就已经让出了CPU线程，会一直死等，如果有信号那么其他的线程也是一样的的到 Sleep位置，然后就是随机抢占这个资源了。

[满面尘，鬓如霜，何处话凄凉]

需求不清楚，至少我不知道你要做什么， 没法帮你。。

[弘石]

是不是用同步锁

[DUTEddy]

引用 8 楼 suiyunonghen 的回复:

不明白，这里放一个Sleep有啥意义啊，你WaitForSingleObject(event, INFINITE);，这个的时候就，如果Event 无信号，就已经让出了CPU线程，会一直死等，如果有信号那么其他的线程也是一样的的到 Sleep位置，然后就是随机抢占这个资源了。

这里这个sleep只是让出错的可能性变大了，实际应用时是没有这个sleep的，但是就算没有这个sleep，也有可能有别的线程在这个空当进来的，对吗。

[DUTEddy]

引用 12 楼 cnlife 的回复:

楼主想做什么呢？？线程同步？？？

对的。

[cnlife]

楼主想做什么呢？？线程同步？？？

[弘石]

线程同步锁，SyncObjs单元的TCriticalSection类 加锁enter,解锁leave 如果是进程同步，需要用TMutex