异步多线程停止直接崩掉

jiaoxing

开始线程测试没问题，但是结束线程软件会直接崩掉，有大佬帮忙看着改下吗 精易异步多线程.e (961.78 KB, 下载次数: 15)

2024-5-6 21:23 上传

点击文件名下载附件

oncall12

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程同步句柄	整数型
线程结束标志	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
线程同步句柄 ＝ 创建进入许可证 ()
线程结束标志 ＝ 假

子程序名	返回值类型	公开	备 注
导入数据
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
文件类型	文本型
文件号	整数型
文件内容	文本型
文本数组	文本型		0
n	整数型
插入索引	整数型
文本内容数组	文本型		0

超级列表框1.全部删除 ()
文件类型 ＝ 文件_取类型 (接收到的文件路径)
如果真 (文件类型 ≠ “文本文档”)
信息框 (“请选择txt文件”, 0, , )
返回 ()

文件内容 ＝ 到文本 (读入文件 (接收到的文件路径))
文本数组 ＝ 分割文本 (文件内容, #换行符, )
如果真 (取数组成员数 (文本数组) ＝ 0)
信息框 (“文本内容为空”, 0, , )
返回 ()
计次循环首 (取数组成员数 (文本数组), n)
文本内容数组 ＝ 分割文本 (文本数组 [n], “----”, )
插入索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (插入索引, 0, 到文本 (插入索引 ＋ 1))
超级列表框1.置标题 (插入索引, 1, 文本内容数组 [1])
超级列表框1.置标题 (插入索引, 2, 文本内容数组 [2])
超级列表框1.置状态图片 (插入索引, 1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

导入数据 (接收到的文件路径)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

子程序名	返回值类型	公开	备 注
多线程

变量名	类 型	静态	数组	备 注
i	整数型
线程句柄	整数型

计次循环首 (超级列表框1.取表项数 (), i)
线程句柄 ＝ 线程_启动 (&主线程, i, )
超级列表框1.置标题 (i － 1, 3, 到文本 (线程句柄))
超级列表框1.置标题 (i － 1, 4, “软件开始运行”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
主线程
参数名	类 型	参考	可空	数组	备 注
索引	整数型

变量名	类 型	静态	数组	备 注
账号	文本型
循环数量	整数型

判断循环首 (真)
计次循环首 (到整数 (线程.内容), )
账号 ＝ 超级列表框1.取标题 (索引 － 1, 1)
循环数量 ＝ 循环数量 ＋ 1
进入许可区 (线程同步句柄)
超级列表框1.置标题 (索引 － 1, 2, “【” ＋ 到文本 (循环数量) ＋ “】” ＋ 账号 ＋ 到文本 (取随机数 (111, 9999999)))
退出许可区 (线程同步句柄)
程序_延时 (到整数 (延迟.内容), )
系统_处理事件 ()
如果真 (线程结束标志)
返回 ()

计次循环尾 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
线程结束

变量名	类 型	静态	数组	备 注
i	整数型
线程句柄	文本型
销毁状态	逻辑型

线程结束标志 ＝ 真
计次循环首 (超级列表框1.取表项数 (), i)
线程句柄 ＝ 超级列表框1.取标题 (i － 1, 3)
销毁状态 ＝ 假
判断循环首 (销毁状态 ＝ 假)
如果真 (线程_销毁 (到整数 (线程句柄)) ＝ 真)
销毁状态 ＝ 真
超级列表框1.置标题 (i － 1, 3, “已结束”)
超级列表框1.置标题 (i － 1, 4, “软件运行结束”)

判断循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
edroptarget	拖放支持库
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 edroptarget<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程同步句柄, 整数型<br /> .程序集变量 线程结束标志, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())<br /> 线程同步句柄 ＝ 创建进入许可证 ()<br /> 线程结束标志 ＝ 假<br /> <br /> .子程序 导入数据<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 文件类型, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 插入索引, 整数型<br /> .局部变量 文本内容数组, 文本型, , "0"<br /> <br /> 超级列表框1.全部删除 ()<br /> 文件类型 ＝ 文件_取类型 (接收到的文件路径)<br /> .如果真 (文件类型 ≠ “文本文档”)<br /> 信息框 (“请选择txt文件”, 0, , )<br /> 返回 ()<br /> .如果真结束<br /> <br /> <br /> 文件内容 ＝ 到文本 (读入文件 (接收到的文件路径))<br /> 文本数组 ＝ 分割文本 (文件内容, #换行符, )<br /> <br /> <br /> .如果真 (取数组成员数 (文本数组) ＝ 0)<br /> 信息框 (“文本内容为空”, 0, , )<br /> 返回 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (文本数组), n)<br /> 文本内容数组 ＝ 分割文本 (文本数组 [n], “----”, )<br /> 插入索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (插入索引, 0, 到文本 (插入索引 ＋ 1))<br /> 超级列表框1.置标题 (插入索引, 1, 文本内容数组 [1])<br /> 超级列表框1.置标题 (插入索引, 2, 文本内容数组 [2])<br /> 超级列表框1.置状态图片 (插入索引, 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 导入数据 (接收到的文件路径)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> <br /> .子程序 多线程<br /> .局部变量 i, 整数型<br /> .局部变量 线程句柄, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br /> 线程句柄 ＝ 线程_启动 (&主线程, i, )<br /> 超级列表框1.置标题 (i － 1, 3, 到文本 (线程句柄))<br /> 超级列表框1.置标题 (i － 1, 4, “软件开始运行”)<br /> .计次循环尾 ()<br /> <br /> .子程序 主线程<br /> .参数 索引, 整数型<br /> .局部变量 账号, 文本型<br /> .局部变量 循环数量, 整数型<br /> <br /> .判断循环首 (真)<br /> .计次循环首 (到整数 (线程.内容), )<br /> 账号 ＝ 超级列表框1.取标题 (索引 － 1, 1)<br /> <br /> 循环数量 ＝ 循环数量 ＋ 1<br /> <br /> 进入许可区 (线程同步句柄)<br /> <br /> 超级列表框1.置标题 (索引 － 1, 2, “【” ＋ 到文本 (循环数量) ＋ “】” ＋ 账号 ＋ 到文本 (取随机数 (111, 9999999)))<br /> <br /> 退出许可区 (线程同步句柄)<br /> <br /> 程序_延时 (到整数 (延迟.内容), )<br /> <br /> 系统_处理事件 ()<br /> <br /> .如果真 (线程结束标志)<br /> 返回 ()<br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> .判断循环尾 ()<br /> <br /> .子程序 线程结束<br /> .局部变量 i, 整数型<br /> .局部变量 线程句柄, 文本型<br /> .局部变量 销毁状态, 逻辑型<br /> <br /> 线程结束标志 ＝ 真<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br /> 线程句柄 ＝ 超级列表框1.取标题 (i － 1, 3)<br /> 销毁状态 ＝ 假<br /> .判断循环首 (销毁状态 ＝ 假)<br /> .如果真 (线程_销毁 (到整数 (线程句柄)) ＝ 真)<br /> 销毁状态 ＝ 真<br /> <br /> 超级列表框1.置标题 (i － 1, 3, “已结束”)<br /> 超级列表框1.置标题 (i － 1, 4, “软件运行结束”)<br /> .如果真结束<br /> <br /> .判断循环尾 ()<br /> .计次循环尾 ()

线程_销毁 而是等待线程自然结束，如果线程还在执行某些关键操作，强制销毁它可能会导致程序崩溃或数据不一致。

主线程 我发现了一个无限循环，这意味着它永远不会自然结束，因此 线程_销毁 等待它结束实际上是不可能的。

我添加了一个 线程结束标志  变量，并在 线程结束 子程序中将其设置为真。然后，在 主线程 的循环中，我添加了一个判断，如果线程结束标志为真，则立即返回，停止继续执行循环。这样，当点击按钮2时，线程会停止执行，并且软件不会崩溃，希望帮到你。

jiaoxing

用的是精易模块

风度猫

精易异步多线程.e (961.45 KB, 下载次数: 7)

2024-5-6 21:37 上传

点击文件名下载附件
试下

jiaoxing

风度猫 发表于 2024-5-6 21:37
试下

大佬 试了下拖进去15个号，每个号3线程，停止还是会崩掉，是不是我写的多线程有问题？

风度猫

jiaoxing 发表于 2024-5-6 21:42
大佬 试了下拖进去15个号，每个号3线程，停止还是会崩掉，是不是我写的多线程有问题？ ...

精易异步多线程.e (1.08 MB, 下载次数: 4)

2024-5-6 21:54 上传

点击文件名下载附件
循环加个全局判断试下
另外你代码我看 就是多少个列表多少个线程,不存在每个号3线程的逻辑

jiaoxing

风度猫 发表于 2024-5-6 21:54
循环加个全局判断试下
另外你代码我看 就是多少个列表多少个线程,不存在每个号3线程的逻辑
...

好的哥谢谢了，差不多了，我想写编辑框输入进去数字，每个号就分配几个线程去进行，有例子可以学习吗？我这个按你这么说应该是写错了

风度猫

jiaoxing 发表于 2024-5-6 22:04
好的哥谢谢了，差不多了，我想写编辑框输入进去数字，每个号就分配几个线程去进行，有例子可以学习吗？我 ...

搜   鱼刺多线程   论坛很多例子