精易论坛

标题: 精易模块类_线程池1 数组错误 (已附修复好的代码) [打印本页]

作者: 微凉 时间: 2013-1-26 18:26
标题: 精易模块类_线程池1 数组错误 (已附修复好的代码)
本帖最后由微凉于 2013-1-26 18:40 编辑

BUG分析:
1.创建（），置线程数量（）参数定义模糊,取值范围不精确。
2.对数组下标控制不严。
代码完善与修复：
1.删除创建（），原因，在类的_初始化()中直接赋予线程池默认线程数10。
2.完善置线程数量（），原因,严格控制数组下标，让线程池的线程数量为大于0的正整数。
3.完善变量的命名。原代码中，还有些无意义代码删除。
[e]
.版本 2

.程序集线程池类
.程序集变量线程池_线程总数量, 整数型
.程序集变量线程池_句柄列表, 整数型, , "0"
.程序集变量线程停止, 逻辑型

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

置线程数量 (10)

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用

.子程序置线程数量, , 公开, 动态控制线程池的线程数量
.参数线程数量, 整数型, , 默认线程池量为 10

.如果真 (线程数量 ≤ 0)
线程数量＝ 10
.如果真结束
线程池_线程总数量＝线程数量

.子程序投递任务, 整数型, 公开, 往线程池中投递一个任务，返回线程句柄
.参数函数, 子程序指针
.参数参数, 整数型, 可空
.参数超时, 整数型, 可空, 单位:毫秒留空->无限等待
.局部变量线程句柄, 整数型

.如果真 (线程停止)
返回 (0)
.如果真结束

.如果真 (取数组成员数 (线程池_句柄列表) ＞线程池_线程总数量)  ' 如果已经存在的线程句柄多于线程池_线程总数量,那么将等待第一条线程结束
' 以下代码极为坑爹。不过逻辑可以先进先出原则。
线程_等待 (线程池_句柄列表 [1], 超时)
.如果真 (线程停止)
      返回 (0)
.如果真结束

.如果真 (超时 ≠ 0)
      TerminateThread (线程池_句柄列表 [1], 0)
.如果真结束
CloseHandle (线程池_句柄列表 [1])
删除成员 (线程池_句柄列表, 1, )

.如果真结束
线程句柄＝ CreateThread (0, 0, 函数, 参数, 0, 0)
.如果真 (线程句柄 ≠ 0)
加入成员 (线程池_句柄列表, 线程句柄)
.如果真结束

返回 (线程句柄)

.子程序销毁, , 公开, 强制关闭所有线程(不推荐使用)
.局部变量 i, 整数型

线程停止＝真
.计次循环首 (取数组成员数 (线程池_句柄列表), i)
.如果真 (线程池_句柄列表 ≠ 0)
      TerminateThread (线程池_句柄列表 , 0)
      CloseHandle (线程池_句柄列表 )
      线程池_句柄列表＝ 0
.如果真结束

.计次循环尾 ()

.子程序暂停, , 公开, 暂停所有线程
.局部变量 i, 整数型

线程停止＝真
.计次循环首 (取数组成员数 (线程池_句柄列表), i)
.如果真 (线程池_句柄列表 ≠ 0)
      SuspendThread (线程池_句柄列表 )
.如果真结束

.计次循环尾 ()

.子程序恢复, , 公开, 恢复所有线程
.局部变量 i, 整数型

线程停止＝假
.计次循环首 (取数组成员数 (线程池_句柄列表), i)
.如果真 (线程池_句柄列表 ≠ 0)
      ResumeThread (线程池_句柄列表 )
.如果真结束

.计次循环尾 ()

.子程序线程_等待, 逻辑型
.参数线程句柄, 整数型
.参数超时, 整数型, 可空, 留空，则无限等待
.局部变量 ret, 整数型
.局部变量时间, 整数型

.如果真 (超时＝ 0)
超时＝ -1
.如果真结束
时间＝取启动时间 ()
.循环判断首 ()
.如果真 (线程停止)
      返回 (假)
.如果真结束
ret ＝ MsgWaitForMultipleObjects (1, 线程句柄, 假, 超时, 1215)
.如果真 (超时 ≠ -1)
      .如果真 (取启动时间 () －时间 ≥ 超时)
         ret ＝ 258
      .如果真结束

.如果真结束
处理事件 ()
.循环判断尾 (ret ≠ 0 且 ret ≠ 258)
返回 (ret ＝ 0)

[/e]

作者: 素顏じ亦傾國ジ 时间: 2013-1-26 19:40
貌似很牛B的样子，现在对线程池还不是很懂，只能膜拜之。。

作者: liluun 时间: 2013-2-1 19:01
从来没有看见楼主这么好的人！

欢迎光临精易论坛 (https://125.confly.eu.org/)