关于WaitForSingleObject()函数的问题!(30分)

leaber · 2003-08-13

[blue]WaitForSingleObject()这个函数是什么作用,看SDK也看不明白!麻烦给解释一下.谢谢!![/blue]

aizb · 2003-08-13

意思就是等待hProcess执行完毕。第二个参数是等待时间，也就是先等待XX时间之后继续 运行。若设为INFINITE则表示一直等待。 要解决等待并刷新，可以     repeat       ret:=WaitforSingleObject(ProcessInfo.hProcess,100);  //等待       Application.ProcessMessages;     until ret<>Wait_Timeout; 即每次只等待很短的时间，然后刷新界面，如果程序没有运行完成，则继续等待，否则 跳出。

爱元元的哥哥 · 2003-08-13

等待一个object从一种状态变成两一种状态

aizb · 2003-08-13

问题：关于多线程占用CPU资源的问题！（难！） ( 积分：100, 回复：17, 阅读：200 ) 分类：多线程 ( 版主：垃圾清洁工, luyear )   来自：黑狼, 时间：2003-3-23 9:19:00, ID：1703826 [显示：小字体 | 大字体]   简单代码如下： procedure tsendthread.execute; begin   while not terminated do   begin     if sign=true then     begin      //some code;     end;   end;   end; sign为判断是否发送数据的标志位!问题出现在sign大部分时间是为false，所以此线程 就如同一个死循环一直在检查sign。 而且我写的程序页面控件比较多切换时页面时响应速度特别慢，我曾经试过降低此线程的 优先级，但是效果还是不好，而我创建这个线程的想法是此线程可以实时监控数据。 虽然，我用timesetevent可以解决这问题，但是我写的程序比较大了，改动起来特别费劲， 所以我想请各位高手帮我解决这个问题，用多线程的方法来解决，多谢了！     来自：zw84611, 时间：2003-3-23 9:36:00, ID：1703834 procedure tsendthread.execute; begin   while not terminated do   begin     if sign=true then     begin      //some code;     end;     sleep(50);  //attention here.   end;   end;     来自：黑狼, 时间：2003-3-23 9:40:00, ID：1703839 我试过了，不过效果也不好。如下： application.progressmessages; sleep(50);     来自：zw84611, 时间：2003-3-23 9:43:00, ID：1703842 你用的是线程，不需要application.progressmessages     来自：黑狼, 时间：2003-3-23 9:49:00, ID：1703853 是的，但是如果程序只执行 while not terminated do  if sign=true then 这两行时不也如同死循环吗？你可以试一试。连程序的关闭按钮也会无效的。     来自：xiaolin0522, 时间：2003-3-23 10:02:00, ID：1703872 不要用变量来实现同步,换用信号量     来自：黑狼, 时间：2003-3-25 10:17:00, ID：1708004 是用waitforsingleobject吗？怎么用，能给出具体代码吗？     来自：bbs-wqt, 时间：2003-3-25 10:20:00, ID：1708019 嗯help！     来自：resun, 时间：2003-3-25 10:43:00, ID：1708107 用sleep()是可以的，时间稍微长一些，效果会好点 用 WaitForSingleobject也可以 var   hMutex:THandle=0;// hMutex:=CreateEvent(nil,false,false,nil); //信号源 在线程中  While not Terminated do   begin//while    WaitForSingleobject(hmutex,infinite);   //其它代码   end; 还需要一个timer定时发信号   setEvent(hMutex);//     来自：thx1180, 时间：2003-3-25 10:49:00, ID：1708139     可以用互斥对象实现线程同步。     先在主线程中创建事件对象： var   hMutex: THandle = 0;   ...   hMutex := CreateMutex(nil, False, nil);     在线程的Execute方法中加入以下代码：     if WaitForSingleObject(hMutex, INFINITE) = WAIT_OBJECT_0 then     //Do Something;     ...     ReleaseMutex(hMutex);     最后记得要释放互斥对象：     CloseHandle(hMutex);     来自：黑狼, 时间：2003-3-25 10:52:00, ID：1708157 但是，我对信号量和互斥对象不怎么明白。 信号量是不是当一个对象被一个线程拥有时，它处于不发信号状态，相反则是发信号状态。 WaitForSingleobject(hmutex,infinite); 这一步它是怎么工作的，因为WaitForSingleobject只有三个返回值wait_object_0, wait_timeout,另一个我忘了。 能给出一个具体的源代码吗？     来自：Milpas, 时间：2003-3-25 10:55:00, ID：1708174 用Sleep把线程挂起一段时间，让OS把CPU时间分配给其它进程或线程     来自：wolaixue, 时间：2003-3-25 11:04:00, ID：1708226 循环中加一句即可: Sleep(0);     来自：qsilence, 时间：2003-3-25 11:08:00, ID：1708252 推荐用TEVENT事件，用WaitForSingleobject等待，不需要进行大花消的循环     来自：yhl1118, 时间：2003-3-25 11:12:00, ID：1708275 我觉得尽量不要在线程用sleep，要用MsgWaitForMultipleObjects, 在线程外用SetEvent来做终止等待的一些处理。     来自：thx1180, 时间：2003-3-25 11:15:00, ID：1708290     当一个互斥对象不再被一个线程所拥有,它就处于发信号状态。此时首先 调用WaitForSingleObject()函数的线程就成为该互斥对象的拥有者，此互斥 对象设为不发信号状态。当线程调用ReleaseMutex()函数并传递一个互斥对象 的句柄作为参数时，这种拥有关系就被解除，互斥对象重新进入发信号状态。 WaitForSingleObject函数的返值：     WAIT_ABANDONED指定的对象是互斥对象，并且拥有这个互斥对象的线程在 没有释放此对象之前就已终止。此时就称互斥对象被抛弃。这种情况下，这个 互斥对象归当前线程所有，并把它设为非发信号状态；     WAIT_OBJECT_0 指定的对象处于发信号状态；     WAIT_TIMEOUT等待的时间已过，对象仍然是非发信号状态；     具体的源代码可以参考《Delphi 5开发人员指南》。     到处有下载，用Google搜索一下。     来自：Headchen, 时间：2003-3-25 13:28:00, ID：1708740 首先要确定你的任务是否一定需要线程来完成，若一定要线程来完成，在线程中不断进行循环 来检测一个变量不是一个好办法，上面的不少同志已经提供了不少思路，我这里提供另外一些思路： 可以在线程里面建立一个消息循环，在调用线程的地方通过postThreadMessage来进行触发就可以。     来自：黑狼, 时间：2003-3-26 15:02:00, ID：1712149 程序我改完了，使用信号量的方法改的效果不错！^_^所以我决定把分数分给提出信号量 方法的兄弟们。     你可以在全文检索中输入这个函数名,可以找到一大堆相关的贴子.

leaber · 2003-08-13

to aizd 按你所说    repeat      ret:=WaitforSingleObject(ProcessInfo.hProcess,100);  //等待      Application.ProcessMessages;    until ret<>Wait_Timeout; 这里所完成的功能就是使当前进程等待相应的时间！请确认。 我其实想明白的也就是在互斥的时候这个函数的作用！！

aizb · 2003-08-13

我后面的转贴已经说得很明确了,WaitforSingleObject可是以让线程等待一定时间,也可以是等待信号量变化,还可以是等待互斥对象.

leaber · 2003-08-15

OK,明白！！

leaber · 2003-08-15

多人接受答案了。

关于WaitForSingleObject()函数的问题!(30分)

leaber

Unregistered / Unconfirmed

aizb

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

aizb

Unregistered / Unconfirmed

leaber

Unregistered / Unconfirmed

aizb

Unregistered / Unconfirmed

leaber

Unregistered / Unconfirmed

leaber

Unregistered / Unconfirmed

Similar threads