多线程内存一直在增加是泄露？

fengyewl

投递任务 目前一直在循环 投递   需要一直循环去投递任务   
如何让已经完成的空闲线程继续循环启动？




补充内容 (2025-10-24 14:48):
代码在楼下  怎么一按回车键  就发布了 都不能编辑！！！！！！！！！！！！！！

fengyewl

2个问题   的一个投递任务 多线程内存一直在增加  ，没有去释放。
1.投递任务 目前一直在循环 投递   需要一直循环去投递任务   
2.如何让已经完成的空闲线程继续循环启动？

2025年10月24日14时45分50秒 >> 线程池 空闲等待任务。
2025年10月24日14时45分52秒 >> 线程池等待线程数:0,空闲线程数:0,工作线程数:100
2025年10月24日14时45分52秒 >> 线程池 正在工作中。
2025年10月24日14时45分54秒 >> 线程池等待线程数:0,空闲线程数:0,工作线程数:100



2025年10月24日14时45分24秒 >> 线程池等待线程数:0,空闲线程数:80,工作线程数:20
2025年10月24日14时45分24秒 >> 线程池 正在工作中。
2025年10月24日14时45分26秒 >> 线程池等待线程数:0,空闲线程数:80,工作线程数:20
2025年10月24日14时45分26秒 >> 线程池 正在工作中。
2025年10月24日14时45分28秒 >> 线程池等待线程数:0,空闲线程数:80,工作线程数:20
2025年10月24日14时45分28秒 >> 线程池 正在工作中。



空闲线程数:80  一直在等待中，如果 还没返回 就浪费资源了。


线程池主程序 - 副本.e (14.02 KB, 下载次数: 1)

2025-10-24 14:47 上传

点击文件名下载附件

补充内容 (2025-10-24 14:56):
https://bbs.ijingyi.com/thread-14865907-1-2.html  这个开源大赛源码

frankiy

请参考这个demo里，实际执行线程的循环方式。
多线程demo.e (919.39 KB, 下载次数: 18)

2025-10-24 14:48 上传

点击文件名下载附件

frankiy

fengyewl 发表于 2025-10-24 14:48
2个问题   的一个投递任务 多线程内存一直在增加  ，没有去释放。
1.投递任务 目前一直在循环 投递   需要 ...

没法看，版本还是支持库不一致，打开全是问号。

qcby

frankiy 发表于 2025-10-24 14:48
请参考这个demo里，实际执行线程的循环方式。

加了许可证 本质上不还是单线程吗不得被阻塞排队执行

fengyewl

frankiy 发表于 2025-10-24 14:52
没法看，版本还是支持库不一致，打开全是问号。

https://bbs.ijingyi.com/thread-14865907-1-2.html   就是用他的测试的   常用功能支持库V3.00智能指针版 1.rar (279.58 KB, 下载次数: 0)

2025-10-24 14:55 上传

点击文件名下载附件

frankiy

qcby 发表于 2025-10-24 14:53
加了许可证 本质上不还是单线程吗不得被阻塞排队执行

请教如何写多线程不需要用到许可证。请你给个例子。

fengyewl

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池	常用_线程池
log类	log

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

变量名	类 型	静态	数组	备 注
hwnd	整数型

hwnd ＝ 标签_反馈.取窗口句柄 ()
log类.初始化 (hwnd)

子程序名	返回值类型	公开	备 注
_标签_反馈_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
a	整数型
b	整数型

变量名	类 型	静态	数组	备 注
str	文本型
res	整数型

判断 (a ＝ 1)
常用_无限传参还原 (b, str)
编辑框_日志.加入文本 (str)
判断 (a ＝ 2)
常用_无限传参还原 (b, str, res)
str ＝ 取文本 (“%s >> %s[%d]”, 时间到文本 (取现行时间 (), 1), str, res) ＋ #换行符
编辑框_日志.加入文本 (str)

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

变量名	类 型	静态	数组	备 注
mix	整数型
max	整数型
re	逻辑型

mix ＝ 到整数 (编辑框mix2.内容)
max ＝ 到整数 (编辑框max2.内容)
调试输出 (mix, max)
re ＝ 线程池.创建 (&任务_多文本参, &回调函数, mix, max)
log类.printf (“线程池创建结果:” ＋ 到文本 (re))
时钟1.时钟周期 ＝ 2000

子程序名	返回值类型	公开	备 注
任务_多文本参	整数型
参数名	类 型	参考	可空	数组	备 注
a	文本型
b	文本型
c	文本型
d	文本型
i	文本型

变量名	类 型	静态	数组	备 注
str	文本型
res	整数型
prt	整数型

常用_完美延时 (1000)
str ＝ 取文本 (“任务_多文本参回调结果[%d][%d][%d][%d],”, a, b, c, d)
res ＝ 到整数 (i)
prt ＝ 常用_无限传参 (str, res)
常用_完美延时 (取随机数 (5000, 33000))
' 延迟 (取随机数 (5000, 33000))  ' 模拟工作耗时
返回 (prt)

子程序名	返回值类型	公开	备 注
回调函数
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

log类.printf_int (参数一)

子程序名	返回值类型	公开	备 注
_按钮投递任务_被单击

变量名	类 型	静态	数组	备 注
a	文本型
b	文本型
c	文本型
d	文本型
re	逻辑型
i	整数型

调试输出 (“开始循环任务”)
a ＝ “我是文本a”
b ＝ “我是文本b”
c ＝ “我是文本c”
d ＝ “我是文本d”  ' .....可以无限多个
计次循环首 (100, i)
re ＝ 线程池.投任务多文本参 (a, b, c, d, 到文本 (i))
如果真 (re ＝ 假)
log类.printf (“请先创建线程池”)
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮线程池暂停_被单击

线程池.暂停 ()

子程序名	返回值类型	公开	备 注
_按钮线程池恢复_被单击

线程池.恢复 ()

子程序名	返回值类型	公开	备 注
_按钮线程池清空任务_被单击

线程池.清空任务 ()

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

变量名	类 型	静态	数组	备 注
re	逻辑型

re ＝ 线程池.销毁 ()  ' （清空任务池，销毁，成功返回 真）
log类.printf (取文本 (“线程池销毁[%s]”, 到文本 (re)))
' 线程池3.销毁 (0, 10000)  ' 。0=正常销毁（清空任务池，等待当前任务执行后返回 真），最长等待10000，返回真，销毁成功，返回假，该线程池为销毁状态。等待线程工作完成可再次调用销毁。
' 线程池3.销毁 (1, )' 1=强制销毁（强制销毁线程池。立即返回 真  注意：此方式执行后强制销毁线程池，强烈不建议使用，会造成内存泄露。）。

子程序名	返回值类型	公开	备 注
_按钮线程池取状态_被单击

变量名	类 型	静态	数组	备 注
re	整数型
say	文本型

re ＝ 线程池.取状态 ()
判断 (re ＝ 0)
say ＝ “线程池 未创建或已销毁。”
判断 (re ＝ 1)
say ＝ “线程池 正在工作中。”
判断 (re ＝ 2)
say ＝ “线程池 空闲等待任务。”
判断 (re ＝ 3)
say ＝ “线程池 繁忙有任务正在排队。”
判断 (re ＝ 4)
say ＝ “线程池 正在销毁。”


log类.printf (say)

子程序名	返回值类型	公开	备 注
_按钮刷新取线程数_被单击

变量名	类 型	静态	数组	备 注
str	文本型
等待线程数	整数型
空闲线程数	整数型
工作线程数	整数型

等待线程数 ＝ 线程池.取等待任务数 ()
空闲线程数 ＝ 线程池.取空闲线程数 ()
工作线程数 ＝ 线程池.取工作线程数 ()
str ＝ “线程池等待线程数:” ＋ 到文本 (等待线程数)
str ＝ str ＋ “,” ＋ “空闲线程数:” ＋ 到文本 (空闲线程数)
str ＝ str ＋ “,” ＋ “工作线程数:” ＋ 到文本 (工作线程数)
log类.printf (str)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
re	整数型
say	文本型

re ＝ 线程池.取状态 ()
判断 (re ＝ 0)
say ＝ “线程池 未创建或已销毁。”
判断 (re ＝ 1)
say ＝ “线程池 正在工作中。”
_按钮刷新取线程数_被单击 ()
判断 (re ＝ 2)
say ＝ “线程池 空闲等待任务。”
_按钮投递任务_被单击 ()
判断 (re ＝ 3)
say ＝ “线程池 繁忙有任务正在排队。”
判断 (re ＝ 4)
say ＝ “线程池 正在销毁。”


log类.printf (say)

i支持库列表	支持库注释
CommonSupport	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 CommonSupport<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池, 常用_线程池<br /> .程序集变量 log类, log<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 hwnd, 整数型<br /> <br /> hwnd ＝ 标签_反馈.取窗口句柄 ()<br /> log类.初始化 (hwnd)<br /> <br /> <br /> .子程序 _标签_反馈_反馈事件, 整数型<br /> .参数 a, 整数型<br /> .参数 b, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 res, 整数型<br /> <br /> .判断开始 (a ＝ 1)<br />     常用_无限传参还原 (b, str)<br />     编辑框_日志.加入文本 (str)<br /> .判断 (a ＝ 2)<br />     常用_无限传参还原 (b, str, res)<br />     str ＝ 取文本 (“%s >> %s[%d]”, 时间到文本 (取现行时间 (), 1), str, res) ＋ #换行符<br />     编辑框_日志.加入文本 (str)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮创建_被单击<br /> .局部变量 mix, 整数型<br /> .局部变量 max, 整数型<br /> .局部变量 re, 逻辑型<br /> <br /> mix ＝ 到整数 (编辑框mix2.内容)<br /> max ＝ 到整数 (编辑框max2.内容)<br /> 调试输出 (mix, max)<br /> re ＝ 线程池.创建 (&任务_多文本参, &回调函数, mix, max)<br /> log类.printf (“线程池创建结果:” ＋ 到文本 (re))<br /> 时钟1.时钟周期 ＝ 2000<br /> <br /> .子程序 任务_多文本参, 整数型<br /> .参数 a, 文本型<br /> .参数 b, 文本型<br /> .参数 c, 文本型<br /> .参数 d, 文本型<br /> .参数 i, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 res, 整数型<br /> .局部变量 prt, 整数型<br /> <br /> <br /> 常用_完美延时 (1000)<br /> str ＝ 取文本 (“任务_多文本参回调结果[%d][%d][%d][%d],”, a, b, c, d)<br /> res ＝ 到整数 (i)<br /> prt ＝ 常用_无限传参 (str, res)<br /> 常用_完美延时 (取随机数 (5000, 33000))<br /> ' 延迟 (取随机数 (5000, 33000))  ' 模拟工作耗时<br /> 返回 (prt)<br /> <br /> .子程序 回调函数<br /> .参数 参数一, 整数型<br /> <br /> log类.printf_int (参数一)<br /> <br /> .子程序 _按钮投递任务_被单击<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型<br /> .局部变量 c, 文本型<br /> .局部变量 d, 文本型<br /> .局部变量 re, 逻辑型<br /> .局部变量 i, 整数型<br /> <br /> 调试输出 (“开始循环任务”)<br /> a ＝ “我是文本a”<br /> b ＝ “我是文本b”<br /> c ＝ “我是文本c”<br /> d ＝ “我是文本d”  ' .....可以无限多个<br /> .计次循环首 (100, i)<br />     re ＝ 线程池.投任务多文本参 (a, b, c, d, 到文本 (i))<br /> <br />     .如果真 (re ＝ 假)<br />         log类.printf (“请先创建线程池”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮线程池暂停_被单击<br /> <br /> 线程池.暂停 ()<br /> <br /> <br /> .子程序 _按钮线程池恢复_被单击<br /> <br /> 线程池.恢复 ()<br /> <br /> .子程序 _按钮线程池清空任务_被单击<br /> <br /> 线程池.清空任务 ()<br /> <br /> .子程序 _按钮销毁_被单击<br /> .局部变量 re, 逻辑型<br /> <br /> re ＝ 线程池.销毁 ()  ' （清空任务池，销毁，成功返回 真）<br /> log类.printf (取文本 (“线程池销毁[%s]”, 到文本 (re)))<br /> ' 线程池3.销毁 (0, 10000)  ' 。0=正常销毁（清空任务池，等待当前任务执行后返回 真），最长等待10000，返回真，销毁成功，返回假，该线程池为销毁状态。等待线程工作完成可再次调用销毁。<br /> ' 线程池3.销毁 (1, )' 1=强制销毁（强制销毁线程池。立即返回 真  注意：此方式执行后强制销毁线程池，强烈不建议使用，会造成内存泄露。）。<br /> <br /> <br /> .子程序 _按钮线程池取状态_被单击<br /> .局部变量 re, 整数型<br /> .局部变量 say, 文本型<br /> <br /> re ＝ 线程池.取状态 ()<br /> .判断开始 (re ＝ 0)<br />     say ＝ “线程池 未创建或已销毁。”<br /> .判断 (re ＝ 1)<br />     say ＝ “线程池 正在工作中。”<br /> .判断 (re ＝ 2)<br />     say ＝ “线程池 空闲等待任务。”<br /> .判断 (re ＝ 3)<br />     say ＝ “线程池 繁忙有任务正在排队。”<br /> .判断 (re ＝ 4)<br />     say ＝ “线程池 正在销毁。”<br /> .默认<br /> <br /> .判断结束<br /> log类.printf (say)<br /> <br /> <br /> .子程序 _按钮刷新取线程数_被单击<br /> .局部变量 str, 文本型<br /> .局部变量 等待线程数, 整数型<br /> .局部变量 空闲线程数, 整数型<br /> .局部变量 工作线程数, 整数型<br /> <br /> <br /> 等待线程数 ＝ 线程池.取等待任务数 ()<br /> 空闲线程数 ＝ 线程池.取空闲线程数 ()<br /> 工作线程数 ＝ 线程池.取工作线程数 ()<br /> str ＝ “线程池等待线程数:” ＋ 到文本 (等待线程数)<br /> str ＝ str ＋ “,” ＋ “空闲线程数:” ＋ 到文本 (空闲线程数)<br /> str ＝ str ＋ “,” ＋ “工作线程数:” ＋ 到文本 (工作线程数)<br /> log类.printf (str)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 re, 整数型<br /> .局部变量 say, 文本型<br /> <br /> re ＝ 线程池.取状态 ()<br /> .判断开始 (re ＝ 0)<br />     say ＝ “线程池 未创建或已销毁。”<br /> .判断 (re ＝ 1)<br />     say ＝ “线程池 正在工作中。”<br />     _按钮刷新取线程数_被单击 ()<br /> .判断 (re ＝ 2)<br />     say ＝ “线程池 空闲等待任务。”<br />     _按钮投递任务_被单击 ()<br /> .判断 (re ＝ 3)<br />     say ＝ “线程池 繁忙有任务正在排队。”<br /> <br /> .判断 (re ＝ 4)<br />     say ＝ “线程池 正在销毁。”<br /> .默认<br /> <br /> .判断结束<br /> log类.printf (say)<br />

fengyewl

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池	常用_线程池
log类	log

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

变量名	类 型	静态	数组	备 注
hwnd	整数型

hwnd ＝ 标签_反馈.取窗口句柄 ()
log类.初始化 (hwnd)

子程序名	返回值类型	公开	备 注
_标签_反馈_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
a	整数型
b	整数型

变量名	类 型	静态	数组	备 注
str	文本型
res	整数型

判断 (a ＝ 1)
常用_无限传参还原 (b, str)
编辑框_日志.加入文本 (str)
判断 (a ＝ 2)
常用_无限传参还原 (b, str, res)
str ＝ 取文本 (“%s >> %s[%d]”, 时间到文本 (取现行时间 (), 1), str, res) ＋ #换行符
编辑框_日志.加入文本 (str)

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

变量名	类 型	静态	数组	备 注
mix	整数型
max	整数型
re	逻辑型

mix ＝ 到整数 (编辑框mix2.内容)
max ＝ 到整数 (编辑框max2.内容)
调试输出 (mix, max)
re ＝ 线程池.创建 (&任务_多文本参, &回调函数, mix, max)
log类.printf (“线程池创建结果:” ＋ 到文本 (re))
时钟1.时钟周期 ＝ 2000

子程序名	返回值类型	公开	备 注
任务_多文本参	整数型
参数名	类 型	参考	可空	数组	备 注
a	文本型
b	文本型
c	文本型
d	文本型
i	文本型

变量名	类 型	静态	数组	备 注
str	文本型
res	整数型
prt	整数型

常用_完美延时 (1000)
str ＝ 取文本 (“任务_多文本参回调结果[%d][%d][%d][%d],”, a, b, c, d)
res ＝ 到整数 (i)
prt ＝ 常用_无限传参 (str, res)
常用_完美延时 (取随机数 (5000, 33000))
' 延迟 (取随机数 (5000, 33000))  ' 模拟工作耗时
返回 (prt)

子程序名	返回值类型	公开	备 注
回调函数
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

log类.printf_int (参数一)

子程序名	返回值类型	公开	备 注
_按钮投递任务_被单击

变量名	类 型	静态	数组	备 注
a	文本型
b	文本型
c	文本型
d	文本型
re	逻辑型
i	整数型

调试输出 (“开始循环任务”)
a ＝ “我是文本a”
b ＝ “我是文本b”
c ＝ “我是文本c”
d ＝ “我是文本d”  ' .....可以无限多个
计次循环首 (100, i)
re ＝ 线程池.投任务多文本参 (a, b, c, d, 到文本 (i))
如果真 (re ＝ 假)
log类.printf (“请先创建线程池”)
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮线程池暂停_被单击

线程池.暂停 ()

子程序名	返回值类型	公开	备 注
_按钮线程池恢复_被单击

线程池.恢复 ()

子程序名	返回值类型	公开	备 注
_按钮线程池清空任务_被单击

线程池.清空任务 ()

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

变量名	类 型	静态	数组	备 注
re	逻辑型

re ＝ 线程池.销毁 ()  ' （清空任务池，销毁，成功返回 真）
log类.printf (取文本 (“线程池销毁[%s]”, 到文本 (re)))
' 线程池3.销毁 (0, 10000)  ' 。0=正常销毁（清空任务池，等待当前任务执行后返回 真），最长等待10000，返回真，销毁成功，返回假，该线程池为销毁状态。等待线程工作完成可再次调用销毁。
' 线程池3.销毁 (1, )' 1=强制销毁（强制销毁线程池。立即返回 真  注意：此方式执行后强制销毁线程池，强烈不建议使用，会造成内存泄露。）。

子程序名	返回值类型	公开	备 注
_按钮线程池取状态_被单击

变量名	类 型	静态	数组	备 注
re	整数型
say	文本型

re ＝ 线程池.取状态 ()
判断 (re ＝ 0)
say ＝ “线程池 未创建或已销毁。”
判断 (re ＝ 1)
say ＝ “线程池 正在工作中。”
判断 (re ＝ 2)
say ＝ “线程池 空闲等待任务。”
判断 (re ＝ 3)
say ＝ “线程池 繁忙有任务正在排队。”
判断 (re ＝ 4)
say ＝ “线程池 正在销毁。”


log类.printf (say)

子程序名	返回值类型	公开	备 注
_按钮刷新取线程数_被单击

变量名	类 型	静态	数组	备 注
str	文本型
等待线程数	整数型
空闲线程数	整数型
工作线程数	整数型

等待线程数 ＝ 线程池.取等待任务数 ()
空闲线程数 ＝ 线程池.取空闲线程数 ()
工作线程数 ＝ 线程池.取工作线程数 ()
str ＝ “线程池等待线程数:” ＋ 到文本 (等待线程数)
str ＝ str ＋ “,” ＋ “空闲线程数:” ＋ 到文本 (空闲线程数)
str ＝ str ＋ “,” ＋ “工作线程数:” ＋ 到文本 (工作线程数)
log类.printf (str)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
re	整数型
say	文本型

re ＝ 线程池.取状态 ()
判断 (re ＝ 0)
say ＝ “线程池 未创建或已销毁。”
判断 (re ＝ 1)
say ＝ “线程池 正在工作中。”
_按钮刷新取线程数_被单击 ()
判断 (re ＝ 2)
say ＝ “线程池 空闲等待任务。”
_按钮投递任务_被单击 ()
判断 (re ＝ 3)
say ＝ “线程池 繁忙有任务正在排队。”
判断 (re ＝ 4)
say ＝ “线程池 正在销毁。”


log类.printf (say)

i支持库列表	支持库注释
CommonSupport	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 CommonSupport<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池, 常用_线程池<br /> .程序集变量 log类, log<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 hwnd, 整数型<br /> <br /> hwnd ＝ 标签_反馈.取窗口句柄 ()<br /> log类.初始化 (hwnd)<br /> <br /> <br /> .子程序 _标签_反馈_反馈事件, 整数型<br /> .参数 a, 整数型<br /> .参数 b, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 res, 整数型<br /> <br /> .判断开始 (a ＝ 1)<br />     常用_无限传参还原 (b, str)<br />     编辑框_日志.加入文本 (str)<br /> .判断 (a ＝ 2)<br />     常用_无限传参还原 (b, str, res)<br />     str ＝ 取文本 (“%s >> %s[%d]”, 时间到文本 (取现行时间 (), 1), str, res) ＋ #换行符<br />     编辑框_日志.加入文本 (str)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮创建_被单击<br /> .局部变量 mix, 整数型<br /> .局部变量 max, 整数型<br /> .局部变量 re, 逻辑型<br /> <br /> mix ＝ 到整数 (编辑框mix2.内容)<br /> max ＝ 到整数 (编辑框max2.内容)<br /> 调试输出 (mix, max)<br /> re ＝ 线程池.创建 (&任务_多文本参, &回调函数, mix, max)<br /> log类.printf (“线程池创建结果:” ＋ 到文本 (re))<br /> 时钟1.时钟周期 ＝ 2000<br /> <br /> .子程序 任务_多文本参, 整数型<br /> .参数 a, 文本型<br /> .参数 b, 文本型<br /> .参数 c, 文本型<br /> .参数 d, 文本型<br /> .参数 i, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 res, 整数型<br /> .局部变量 prt, 整数型<br /> <br /> <br /> 常用_完美延时 (1000)<br /> str ＝ 取文本 (“任务_多文本参回调结果[%d][%d][%d][%d],”, a, b, c, d)<br /> res ＝ 到整数 (i)<br /> prt ＝ 常用_无限传参 (str, res)<br /> 常用_完美延时 (取随机数 (5000, 33000))<br /> ' 延迟 (取随机数 (5000, 33000))  ' 模拟工作耗时<br /> 返回 (prt)<br /> <br /> .子程序 回调函数<br /> .参数 参数一, 整数型<br /> <br /> log类.printf_int (参数一)<br /> <br /> .子程序 _按钮投递任务_被单击<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型<br /> .局部变量 c, 文本型<br /> .局部变量 d, 文本型<br /> .局部变量 re, 逻辑型<br /> .局部变量 i, 整数型<br /> <br /> 调试输出 (“开始循环任务”)<br /> a ＝ “我是文本a”<br /> b ＝ “我是文本b”<br /> c ＝ “我是文本c”<br /> d ＝ “我是文本d”  ' .....可以无限多个<br /> .计次循环首 (100, i)<br />     re ＝ 线程池.投任务多文本参 (a, b, c, d, 到文本 (i))<br /> <br />     .如果真 (re ＝ 假)<br />         log类.printf (“请先创建线程池”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮线程池暂停_被单击<br /> <br /> 线程池.暂停 ()<br /> <br /> <br /> .子程序 _按钮线程池恢复_被单击<br /> <br /> 线程池.恢复 ()<br /> <br /> .子程序 _按钮线程池清空任务_被单击<br /> <br /> 线程池.清空任务 ()<br /> <br /> .子程序 _按钮销毁_被单击<br /> .局部变量 re, 逻辑型<br /> <br /> re ＝ 线程池.销毁 ()  ' （清空任务池，销毁，成功返回 真）<br /> log类.printf (取文本 (“线程池销毁[%s]”, 到文本 (re)))<br /> ' 线程池3.销毁 (0, 10000)  ' 。0=正常销毁（清空任务池，等待当前任务执行后返回 真），最长等待10000，返回真，销毁成功，返回假，该线程池为销毁状态。等待线程工作完成可再次调用销毁。<br /> ' 线程池3.销毁 (1, )' 1=强制销毁（强制销毁线程池。立即返回 真  注意：此方式执行后强制销毁线程池，强烈不建议使用，会造成内存泄露。）。<br /> <br /> <br /> .子程序 _按钮线程池取状态_被单击<br /> .局部变量 re, 整数型<br /> .局部变量 say, 文本型<br /> <br /> re ＝ 线程池.取状态 ()<br /> .判断开始 (re ＝ 0)<br />     say ＝ “线程池 未创建或已销毁。”<br /> .判断 (re ＝ 1)<br />     say ＝ “线程池 正在工作中。”<br /> .判断 (re ＝ 2)<br />     say ＝ “线程池 空闲等待任务。”<br /> .判断 (re ＝ 3)<br />     say ＝ “线程池 繁忙有任务正在排队。”<br /> .判断 (re ＝ 4)<br />     say ＝ “线程池 正在销毁。”<br /> .默认<br /> <br /> .判断结束<br /> log类.printf (say)<br /> <br /> <br /> .子程序 _按钮刷新取线程数_被单击<br /> .局部变量 str, 文本型<br /> .局部变量 等待线程数, 整数型<br /> .局部变量 空闲线程数, 整数型<br /> .局部变量 工作线程数, 整数型<br /> <br /> <br /> 等待线程数 ＝ 线程池.取等待任务数 ()<br /> 空闲线程数 ＝ 线程池.取空闲线程数 ()<br /> 工作线程数 ＝ 线程池.取工作线程数 ()<br /> str ＝ “线程池等待线程数:” ＋ 到文本 (等待线程数)<br /> str ＝ str ＋ “,” ＋ “空闲线程数:” ＋ 到文本 (空闲线程数)<br /> str ＝ str ＋ “,” ＋ “工作线程数:” ＋ 到文本 (工作线程数)<br /> log类.printf (str)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 re, 整数型<br /> .局部变量 say, 文本型<br /> <br /> re ＝ 线程池.取状态 ()<br /> .判断开始 (re ＝ 0)<br />     say ＝ “线程池 未创建或已销毁。”<br /> .判断 (re ＝ 1)<br />     say ＝ “线程池 正在工作中。”<br />     _按钮刷新取线程数_被单击 ()<br /> .判断 (re ＝ 2)<br />     say ＝ “线程池 空闲等待任务。”<br />     _按钮投递任务_被单击 ()<br /> .判断 (re ＝ 3)<br />     say ＝ “线程池 繁忙有任务正在排队。”<br /> <br /> .判断 (re ＝ 4)<br />     say ＝ “线程池 正在销毁。”<br /> .默认<br /> <br /> .判断结束<br /> log类.printf (say)

信仰_

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池	鱼刺类_线程池
是否停止	逻辑型

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

启动线程 (&线程控制区, , )

子程序名	返回值类型	公开	备 注
线程控制区

变量名	类 型	静态	数组	备 注
任务数	整数型
投递数	整数型

如果真 (取反 (线程池.创建 (8, , , )))
信息框 (“线程池创建失败”, 0, , )
返回 ()

任务数 ＝ 100
循环判断首 ()
如果真 (任务数 ≤ 投递数)
跳出循环 ()

循环判断首 ()
如果真 (线程池.取_是否有空闲 ())
投递数 ＝ 投递数 ＋ 1
线程池.投递任务 (&执行任务, 投递数, )
跳出循环 ()
延时 (10)
处理事件 ()
循环判断尾 (真)
延时 (10)
处理事件 ()
循环判断尾 (真)
循环判断首 ()
如果真 (线程池.取_是否完全空闲 ())
跳出循环 ()

循环判断尾 (真)
调试输出 (“所有线程运行完毕”)

子程序名	返回值类型	公开	备 注
执行任务
参数名	类 型	参考	可空	数组	备 注
参数	整数型

调试输出 (参数)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池, 鱼刺类_线程池<br /> .程序集变量 是否停止, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&线程控制区, , )<br /> <br /> .子程序 线程控制区<br /> .局部变量 任务数, 整数型<br /> .局部变量 投递数, 整数型<br /> <br /> .如果真 (取反 (线程池.创建 (8, , , )))<br />     信息框 (“线程池创建失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 任务数 ＝ 100<br /> <br /> .循环判断首 ()<br />     .如果真 (任务数 ≤ 投递数)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .循环判断首 ()<br />         .如果真 (线程池.取_是否有空闲 ())<br />             投递数 ＝ 投递数 ＋ 1<br />             线程池.投递任务 (&执行任务, 投递数, )<br />             跳出循环 ()<br />         .如果真结束<br />         延时 (10)<br />         处理事件 ()<br />     .循环判断尾 (真)<br />     延时 (10)<br />     处理事件 ()<br /> .循环判断尾 (真)<br /> <br /> .循环判断首 ()<br />     .如果真 (线程池.取_是否完全空闲 ())<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (真)<br /> 调试输出 (“所有线程运行完毕”)<br /> <br /> .子程序 执行任务<br /> .参数 参数, 整数型<br /> <br /> 调试输出 (参数)

投递前先循环判断是否有空闲，有的话再投递