易语言线程结束问题

sy0704

线程结束的时候 执行到WaitForSingleObject (dxc .线程句柄, wait_time) ≠ 0基本上每次都会调用强制结束 很少情况是自然结束

  

如果真 (dxc [i].是否结束 ＝ 真)
dxc [i].dm.后台_解除绑定 ()
退出线程 (0)

如果真 (dxc [i].是否暂停)
dxc [i].线程状态 ＝ #线程状态_暂停
dxc [i].dm.后台_暂时开关 (5)
判断循环首 (真)
如果真 (dxc [i].是否暂停 ＝ 假)
dxc [i].线程状态 ＝ #线程状态_正在运行
dxc [i].dm.后台_暂时开关 (1)
跳出循环 ()

如果真 (dxc [i].是否结束 ＝ 真)
dxc [i].dm.后台_解除绑定 ()
退出线程 (0)

程序_延时 (0, 1)
判断循环尾 ()

如果真 (dxc [i].线程状态 ≠ #线程状态_正在运行 )
dxc [i].线程状态 ＝ #线程状态_正在运行
dxc [i].dm.后台_暂时开关 (1)

.版本 2<br /> <br /> .如果真 (dxc <i>.是否结束 ＝ 真)<br />     dxc <i>.dm.后台_解除绑定 ()<br />     退出线程 (0)<br /> .如果真结束<br /> <br /> .如果真 (dxc <i>.是否暂停)<br />     dxc <i>.线程状态 ＝ #线程状态_暂停<br />     dxc <i>.dm.后台_暂时开关 (5)<br />     .判断循环首 (真)<br />         .如果真 (dxc <i>.是否暂停 ＝ 假)<br />             dxc <i>.线程状态 ＝ #线程状态_正在运行<br />             dxc <i>.dm.后台_暂时开关 (1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .如果真 (dxc <i>.是否结束 ＝ 真)<br />             dxc <i>.dm.后台_解除绑定 ()<br />             退出线程 (0)<br />         .如果真结束<br /> <br />         程序_延时 (0, 1)<br />     .判断循环尾 ()<br /> .如果真结束<br /> <br /> .如果真 (dxc <i>.线程状态 ≠ #线程状态_正在运行)<br />     dxc <i>.线程状态 ＝ #线程状态_正在运行<br />     dxc <i>.dm.后台_暂时开关 (1)

.版本 2
.支持库 EThread

wait_time ＝ 30*1000

.如果真 (dxc .线程句柄 ≠ 0)
    .如果真 (WaitForSingleObject (dxc .线程句柄, wait_time) ≠ 0)
        ' 等待线程自然结束失败了,逼不得已我们使用强制结束线程
        日志内容 (i, “主:等待线程失败,强制结束线程”)
        强制结束线程 (dxc .线程句柄)
    .如果真结束
    关闭线程句柄 (dxc .线程句柄)
.如果真结束