在 delphi 里如何实现阻塞模式？ <- 中国开发网

CNDEV.ORG

当前在线

论坛

CBD
- 程序员情感CBD
- 程序员见面交流会
CBD开发区
- Java/J2ME
- .NET/C#
- 数据库
- Delphi/BCB
- Visual C
其它
情感
游戏
- CNDEV-CS/WOW
- 浩宇长空
生活
论坛系统

中国开发网: 论坛: 程序员情感CBD: 贴子 524784

pcplayer：

在 delphi 里如何实现阻塞模式？

[阅读: 514] 2007-06-13 09:10:29

比如我有2个线程，一个线程走到某行代码的时候，调用了某个方法，然后要阻塞在这里，等另外一个执行得比较慢的线程完成了某件事，才继续向下走。

如果实现这个阻塞比较好？或者说，实现这种阻塞，标准的做法应该怎么做？

相关信息:

在 delphi 里如何实现阻塞模式？ (106字) (pcplayer [513] 2007-06-13 09:10)
- thread_join. windows里 waitforsingleobject　或与之类似的那些个系统调用． (空) (bjwf [441] 2007-06-13 09:11)
- vcl忘光了，好像有对函数 (39字) (老玉米 [294] 2007-06-13 09:13)
  - 这个明显不满足他的需求． (空) (bjwf [296] 2007-06-13 09:14)
  - 我也想到 Suspend 但感觉似乎不是标准做法。看起来 Waitforsingleobject 似乎更专业，因为看起来更复杂。 (空) (pcplayer [302] 2007-06-13 09:16)
    - vcl的内部就是封装了 Waitforsingleobject (43字) (老玉米 [357] 2007-06-13 09:19)
      - 给（外行）人以更专业感 (空) (haitao [244] 2007-06-13 09:21)
        那就不要用TThread，全部自己调api (15字) (老玉米 [291] 2007-06-13 09:25)
      - 原来是这样，那看来suspend和resume也挺好． (空) (bjwf [279] 2007-06-13 09:22)
      - 那就是另外一个线程必须知道阻塞的那个线程，才能调用它：ThatThread.Resum。这样就不太好玩。 (21字) (pcplayer [294] 2007-06-13 09:26)
      - 胡扯！ (14字) (好望角 [304] 2007-06-13 10:52)
        不是吗？ (18字) (老玉米 [260] 2007-06-14 01:44)
    - 弄个全局变量，线程1 sleep一小段时间，再检查一下,线程2完事后改一下那个全局变量也行．但不够专业． (空) (bjwf [297] 2007-06-13 09:20)
      - 呵呵！我基本是采用这种土办法 (空) (UnKnow365 [257] 2007-06-13 11:19)
- 标准的做法线程一创建CreateEvent一个event, 然后用WaitForSingleObject等这个event,线程二干完事，用SetEvent． (空) (bjwf [1823] 2007-06-13 09:18)
  - 人家问delphi (20字) (老玉米 [318] 2007-06-13 09:20)
  - 貌似忘记ResetEvent了吧。 (21字) (好望角 [438] 2007-06-13 10:56)
- TCriticalSection or TSimpleEvent (空) (好望角 [498] 2007-06-13 10:30)
  - 设置临界区是一个办法。到那里就被阻塞住了直到另外一个线程释放临界区。 (空) (pcplayer [353] 2007-06-13 13:25)
- 继承Tevent类 (173字) (空空空 [455] 2007-06-13 13:34)
  - 老将出马，一个顶俩！ (空) (pcplayer [297] 2007-06-13 14:02)

欢迎光临本社区，您还没有登录，不能发贴子。请在这里登录

页面内容处理时间: 0.021 - 561512