多线程gdi+处理图片颜色叠加，源码优化

咸鱼666

为什么这个多线程相比循环运行慢特别多，比如有400个文件，循环时间是24.8秒，多线程要60秒
单独处理一个文件是60毫秒，
测试发现，多线程处理每个文件的时间一直在增长，就好像是单线程？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_线程池Ex_颜色替换	鱼刺类_线程池Ex
集_文本数组_png_颜色叠加	文本型	0

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

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_文件数组	文本型		0
i	整数型
局_颜色值	整数型
启动时间

Gdiplus初始化 ()
启动时间 ＝ 取启动时间 ()
局_文本 ＝ “F:\2”
' 文件_枚举 (局_文本, “*.png”, 局_文件数组, 真, , 假)
. ' 计次循环首 (取数组成员数 (局_文件数组), i)
' Png_颜色替换 (局_文件数组 [i], , “333333”)
. ' 计次循环尾 ()
调试输出 (取启动时间 () － 启动时间)
启动时间 ＝ 取启动时间 ()
Png_颜色替换_批量 (局_文本, “ffffff”)
调试输出 (取启动时间 () － 启动时间)
结束 ()

子程序名	返回值类型	公开	备 注
Png_颜色替换	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_图片	文本型
参_生成后Png	文本型
参_颜色值	文本型				6位颜色代码

变量名	类 型	静态	数组	备 注
局_颜色值	文本型
局_生成后文件	文本型
GP位图	GP位图
局_图像宽度	整数型
局_图像高度	整数型
x	整数型
y	整数型
局_点颜色	整数型
局_透明度	字节型
局_点颜色_新	整数型
局_备份文件	文本型
局_字节集	字节集
启动时间	整数型

启动时间 ＝ 取启动时间 ()
如果真 (文件是否存在 (参_图片) ＝ 假)
返回 (假)
如果真 (文件_取扩展名 (参_图片) ≠ “.png”)
返回 (假)
局_生成后文件 ＝ 参_生成后Png
图片_取参数YZC (参_图片, 局_图像宽度, 局_图像高度, 局_字节集, )
如果真 (是否为空 (参_生成后Png) ＝ 真 或 参_生成后Png ＝ “”)
局_生成后文件 ＝ 参_图片

局_颜色值 ＝ 参_颜色值
如果真 (取文本长度 (局_颜色值) ＝ 8)
局_颜色值 ＝ 取文本右边 (局_颜色值, 6)

GP位图.创建自字节集 (局_字节集, )
GP位图.置分辨率 (72, 72)
计次循环首 (局_图像宽度, x)
计次循环首 (局_图像高度, y)
局_点颜色 ＝ GP位图.取某点颜色 (x － 1, y － 1)
ARGB到RGB (局_点颜色, 局_透明度)
局_点颜色_新 ＝ RGB到ARGB (网页_取十进制颜色值 (参_颜色值), 局_透明度)
GP位图.置某点颜色 (x － 1, y － 1, 局_点颜色_新)
y ＝ y ＋ 1
计次循环尾 ()
x ＝ x ＋ 1
计次循环尾 ()
GP位图.保存到文件 (局_生成后文件, #图像格式_PNG, )
GP位图.销毁 ()
_延迟 (10)
' 调试输出 (取启动时间 () － 启动时间)
返回 (真)

子程序名	返回值类型	公开	备 注
图片_取参数YZC			可通过文件或者字节集方式
参数名	类 型	参考	可空	数组	备 注
参_文件	文本型
宽度	整数型
高度	整数型
参考_字节集	字节集
返回文件大小	长整数型

变量名	类 型	静态	数组	备 注
GP图像	GP图像

如果 (参_文件 ＝ “”)
GP图像.创建自字节集 (参考_字节集, )
GP图像.创建自文件 (参_文件, )
GP图像.置分辨率 (72, 72)
宽度 ＝ GP图像.取宽度 ()
高度 ＝ GP图像.取高度 ()
参考_字节集 ＝ GP图像.保存到字节集 (, )
返回文件大小 ＝ 文件_取实际大小 (参_文件)
GP图像.销毁 ()

子程序名	返回值类型	公开	备 注
Png_颜色替换_批量
参数名	类 型	参考	可空	数组	备 注
参_目录	文本型
参_颜色值	文本型				6位颜色代码

变量名	类 型	静态	数组	备 注
局_文件数组	文本型		0
局_颜色值	文本型
局_计次	整数型
局_任务数量	整数型
局_线程数量	整数型
局_目录	文本型

文件_枚举 (参_目录, “*.png”, 局_文件数组, 真, , )
局_颜色值 ＝ 参_颜色值
局_计次 ＝ 1
局_任务数量 ＝ 取数组成员数 (局_文件数组)
局_线程数量 ＝ 50
重定义数组 (集_文本数组_png_颜色叠加, 假, 局_任务数量)
如果 (集_线程池Ex_颜色替换.创建 (局_线程数量, 局_线程数量, , 真, ))
判断循环首 (局_计次 ≤ 局_任务数量)
如果真 (集_线程池Ex_颜色替换.取_空闲线程数 () ＞ 0)
集_文本数组_png_颜色叠加 [局_计次] ＝ 局_目录 ＋ 局_文件数组 [局_计次] ＋ “&&” ＋ 参_颜色值
如果真 (集_线程池Ex_颜色替换.投递任务 (&线程池_Png_颜色替换, 局_计次, ))
如果真 (集_线程池Ex_颜色替换.等待任务动态 (, ))  ' 等待
局_计次 ＝ 局_计次 ＋ 1


_延迟 (1)
判断循环尾 ()
判断循环首 (集_线程池Ex_颜色替换.取_是否空闲 () ＝ 假)
如果真 (集_线程池Ex_颜色替换.取_状态 () ＝ #线程池_未启动 )
返回 ()
_延迟 (10)
判断循环尾 ()
如果真 (集_线程池Ex_颜色替换.取_状态 () ＝ #线程池_正在工作 )
集_线程池Ex_颜色替换.销毁 (, , )
判断循环首 (集_线程池Ex_颜色替换.取_状态 () ≠ #线程池_未启动 )
_延迟 (10)
判断循环尾 ()
信息框 (“创建线程失败”, 0, , )

子程序名	返回值类型	公开	备 注
线程池_Png_颜色替换
参数名	类 型	参考	可空	数组	备 注
局_计次	整数型

变量名	类 型	静态	数组	备 注
i	整数型
局_文件	文本型
局_颜色值	文本型
局_文本数组	文本型		0

如果真 (集_线程池Ex_颜色替换.事件_暂停 ())
局_文本数组 ＝ 分割文本 (集_文本数组_png_颜色叠加 [局_计次], “&&”, )
局_文件 ＝ 局_文本数组 [1]
局_颜色值 ＝ 局_文本数组 [2]
Png_颜色替换 (局_文件, , 局_颜色值)
集_线程池Ex_颜色替换.触发任务动态 ()
返回 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

Gdiplus关闭 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_线程池Ex_颜色替换, 鱼刺类_线程池Ex<br /> .程序集变量 集_文本数组_png_颜色叠加, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_文件数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_颜色值, 整数型<br /> .局部变量 启动时间<br /> <br /> Gdiplus初始化 ()<br /> 启动时间 ＝ 取启动时间 ()<br /> <br /> 局_文本 ＝ “F:\2”<br /> ' 文件_枚举 (局_文本, “*.png”, 局_文件数组, 真, , 假)<br /> .' 计次循环首 (取数组成员数 (局_文件数组), i)<br />     ' Png_颜色替换 (局_文件数组 <i>, , “333333”)<br /> .' 计次循环尾 ()<br /> <br /> 调试输出 (取启动时间 () － 启动时间)<br /> <br /> 启动时间 ＝ 取启动时间 ()<br /> Png_颜色替换_批量 (局_文本, “ffffff”)<br /> 调试输出 (取启动时间 () － 启动时间)<br /> 结束 ()<br /> <br /> <br /> <br /> <br /> .子程序 Png_颜色替换, 逻辑型, 公开,  <br /> .参数 参_图片, 文本型<br /> .参数 参_生成后Png, 文本型, 可空<br /> .参数 参_颜色值, 文本型, , 6位颜色代码<br /> .局部变量 局_颜色值, 文本型<br /> .局部变量 局_生成后文件, 文本型<br /> .局部变量 GP位图, GP位图<br /> .局部变量 局_图像宽度, 整数型<br /> .局部变量 局_图像高度, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 局_点颜色, 整数型<br /> .局部变量 局_透明度, 字节型<br /> .局部变量 局_点颜色_新, 整数型<br /> .局部变量 局_备份文件, 文本型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 启动时间, 整数型<br /> <br /> 启动时间 ＝ 取启动时间 ()<br /> .如果真 (文件是否存在 (参_图片) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文件_取扩展名 (参_图片) ≠ “.png”)<br />     返回 (假)<br /> .如果真结束<br /> 局_生成后文件 ＝ 参_生成后Png<br /> 图片_取参数YZC (参_图片, 局_图像宽度, 局_图像高度, 局_字节集, )<br /> .如果真 (是否为空 (参_生成后Png) ＝ 真 或 参_生成后Png ＝ “”)<br />     局_生成后文件 ＝ 参_图片<br /> .如果真结束<br /> <br /> 局_颜色值 ＝ 参_颜色值<br /> .如果真 (取文本长度 (局_颜色值) ＝ 8)<br />     局_颜色值 ＝ 取文本右边 (局_颜色值, 6)<br /> .如果真结束<br /> <br /> GP位图.创建自字节集 (局_字节集, )<br /> GP位图.置分辨率 (72, 72)<br /> .计次循环首 (局_图像宽度, x)<br />     .计次循环首 (局_图像高度, y)<br />         局_点颜色 ＝ GP位图.取某点颜色 (x － 1, y － 1)<br />         ARGB到RGB (局_点颜色, 局_透明度)<br />         局_点颜色_新 ＝ RGB到ARGB (网页_取十进制颜色值 (参_颜色值), 局_透明度)<br />         GP位图.置某点颜色 (x － 1, y － 1, 局_点颜色_新)<br />         y ＝ y ＋ 1<br />     .计次循环尾 ()<br />     x ＝ x ＋ 1<br /> .计次循环尾 ()<br /> <br /> GP位图.保存到文件 (局_生成后文件, #图像格式_PNG, )<br /> GP位图.销毁 ()<br /> _延迟 (10)<br /> ' 调试输出 (取启动时间 () － 启动时间)<br /> 返回 (真)<br /> <br /> <br /> .子程序 图片_取参数YZC, , 公开, 可通过文件或者字节集方式<br /> .参数 参_文件, 文本型, 可空<br /> .参数 宽度, 整数型, 参考 可空<br /> .参数 高度, 整数型, 参考 可空<br /> .参数 参考_字节集, 字节集, 参考 可空<br /> .参数 返回文件大小, 长整数型, 参考 可空<br /> .局部变量 GP图像, GP图像<br /> <br /> .如果 (参_文件 ＝ “”)<br />     GP图像.创建自字节集 (参考_字节集, )<br /> .否则<br />     GP图像.创建自文件 (参_文件, )<br /> .如果结束<br /> GP图像.置分辨率 (72, 72)<br /> 宽度 ＝ GP图像.取宽度 ()<br /> 高度 ＝ GP图像.取高度 ()<br /> 参考_字节集 ＝ GP图像.保存到字节集 (, )<br /> 返回文件大小 ＝ 文件_取实际大小 (参_文件)<br /> GP图像.销毁 ()<br /> <br /> .子程序 Png_颜色替换_批量, , 公开,   <br /> .参数 参_目录, 文本型, 可空<br /> .参数 参_颜色值, 文本型, , 6位颜色代码<br /> .局部变量 局_文件数组, 文本型, , "0"<br /> .局部变量 局_颜色值, 文本型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_任务数量, 整数型<br /> .局部变量 局_线程数量, 整数型<br /> .局部变量 局_目录, 文本型<br /> <br /> 文件_枚举 (参_目录, “*.png”, 局_文件数组, 真, , )<br /> 局_颜色值 ＝ 参_颜色值<br /> 局_计次 ＝ 1<br /> 局_任务数量 ＝ 取数组成员数 (局_文件数组)<br /> 局_线程数量 ＝ 50<br /> 重定义数组 (集_文本数组_png_颜色叠加, 假, 局_任务数量)<br /> .如果 (集_线程池Ex_颜色替换.创建 (局_线程数量, 局_线程数量, , 真, ))<br />     .判断循环首 (局_计次 ≤ 局_任务数量)<br />         .如果真 (集_线程池Ex_颜色替换.取_空闲线程数 () ＞ 0)<br />             集_文本数组_png_颜色叠加 [局_计次] ＝ 局_目录 ＋ 局_文件数组 [局_计次] ＋ “&&” ＋ 参_颜色值<br />             .如果真 (集_线程池Ex_颜色替换.投递任务 (&线程池_Png_颜色替换, 局_计次, ))<br />                 .如果真 (集_线程池Ex_颜色替换.等待任务动态 (, ))  ' 等待<br />                     局_计次 ＝ 局_计次 ＋ 1<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br />         _延迟 (1)<br />     .判断循环尾 ()<br />     .判断循环首 (集_线程池Ex_颜色替换.取_是否空闲 () ＝ 假)<br />         .如果真 (集_线程池Ex_颜色替换.取_状态 () ＝ #线程池_未启动)<br />             返回 ()<br />         .如果真结束<br />         _延迟 (10)<br />     .判断循环尾 ()<br />     .如果真 (集_线程池Ex_颜色替换.取_状态 () ＝ #线程池_正在工作)<br />         集_线程池Ex_颜色替换.销毁 (, , )<br />     .如果真结束<br />     .判断循环首 (集_线程池Ex_颜色替换.取_状态 () ≠ #线程池_未启动)<br />         _延迟 (10)<br />     .判断循环尾 ()<br /> .否则<br />     信息框 (“创建线程失败”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 线程池_Png_颜色替换<br /> .参数 局_计次, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 局_文件, 文本型<br /> .局部变量 局_颜色值, 文本型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> <br /> .如果真 (集_线程池Ex_颜色替换.事件_暂停 ())<br />     局_文本数组 ＝ 分割文本 (集_文本数组_png_颜色叠加 [局_计次], “&&”, )<br />     局_文件 ＝ 局_文本数组 [1]<br />     局_颜色值 ＝ 局_文本数组 [2]<br />     Png_颜色替换 (局_文件, , 局_颜色值)<br />     集_线程池Ex_颜色替换.触发任务动态 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> Gdiplus关闭 ()

咸鱼666

经测试，发现不是多线程或者计次的问题，是gdi内存溢出？占用的时间越来越大
有解决方案吗

荖貢

ww7512665 发表于 2020-2-15 23:34
经测试，发现不是多线程或者计次的问题，是gdi内存溢出？占用的时间越来越大
有解决方案吗

如果是内存溢出 ,那就不要用太多的线程

咸鱼666

ww7512665 发表于 2020-2-15 23:34
经测试，发现不是多线程或者计次的问题，是gdi内存溢出？占用的时间越来越大
有解决方案吗

好像还是多线程的问题

2045109515

66666666666666666666666666

2045109515

6666666666666666666666