线程许可冲突问题求解答

血魔

.版本 2
.支持库 EThread

.子程序 子功能
.局部变量 a, 整数型
.局部变量 b, 整数型

进入许可区 (许可证)
.计次循环首 (2000, a)
    b ＝ b ＋ 1  ' ' 比如在这卡住了、、没有退出许可区  用了异常模块、不会蹦
.计次循环尾 ()
' 怎么退出这个许可、
' 因为我遇到了异常模块、这里导致了、进入了许可、蹦了这个子程序、但是没退出去许可、导致后边的都卡住了
退出许可区 (许可证)

bttp0059

进入许可区 (许可证)时候必须是单线程  你想啊,你让一个人进了一个门 并且里面工作了2000次才能出来 那后面的人还进不进了?  所以进入许可区只用在更改UI上 比如标题改变了

血魔

bttp0059 发表于 2026-3-2 22:10
进入许可区 (许可证)时候必须是单线程  你想啊,你让一个人进了一个门 并且里面工作了2000次才能出来 那后面 ...

问题在于这个线程内蹦了、用了、异常模块、程序还可以运行、但是许可没出去、线程无需管，就是这个线程崩了，但是他没退出许可、我想知道怎么退出许可

金叶

血魔 发表于 2026-3-2 22:19
问题在于这个线程内蹦了、用了、异常模块、程序还可以运行、但是许可没出去、线程无需管，就是这个线程崩 ...

那应该不是许可蹦了   应该是你写的代码蹦了

bttp0059

按理说哪怕进入许可区  \也不应该卡死  但卡死的话 就是太快咯  加个处理事件试试

bttp0059

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 钥匙, 整数型

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型


进入许可区 (钥匙)
.计次循环首 (2000, a)
    b ＝ b ＋ 1
    处理事件 ()
    调试输出 (b)
.计次循环尾 ()
退出许可区 (钥匙)




.子程序 __启动窗口_将被销毁

删除进入许可证 (钥匙)

.子程序 __启动窗口_创建完毕

钥匙 ＝ 创建进入许可证 ()


补充内容 (2026-3-2 22:44):
按你的写法不卡啊

meng9934

加锁本来就是要等到执行完了才能再执行下一轮。真到万不得已，可以使用TryEnterCriticalSection，返回假时操作退出许可区，可放行线程。