多线程对比MD5

o风雨o

  一直搞不明白多线程，单线程计次循环是处理完一个再处理下一个，多线程我理解就是要处理100个东西分成2个线程就是一个线程处理50个，100个线程各处理一个，但是那个线程处理那个东西，那个线程处理的东西又怎么跟我需要对比的东西去对比，完全没搞懂。

我这个东西其实就是先取服务器多个文件MD5，然后再取本地的多个文件MD5，然后对比出不同MD5的

单线程处理太慢，想搞个多线程的，实在是搞不明白多线程

求写一个多线程列子，最好就是不用模块，简单容易看懂的，学习一下

谢谢各位大佬

测试.e (10.7 KB, 下载次数: 7)

昨天 18:46 上传

点击文件名下载附件

hongqingfeng

想多线程玩得好，这个要你电脑cpu性能怎么样，单线程就最稳定的

汉族

模块是 解决编写的繁琐命令。多线程  其实 就是 在线程里面继续启用线程

qq73s5456

  

窗口程序集名	保 留	保 留	备 注
改多线程
变量名	类 型	数组	备 注
线程数	整数型
文件MD5	文件信息	0

子程序名	返回值类型	公开	备 注
读取文件列表

变量名	类 型	静态	数组	备 注
a	文本型		0	文件数组
i	整数型
计时	整数型
分割	文本型		0
fmax	整数型

计时 ＝ 取启动时间 ()
' //枚举目录
文件_枚举_升级版 (_启动窗口.目录路径.内容, “*”, a, 0, 真, 真)
' //得到文件数组
fmax ＝ 取数组成员数 (a)
重定义数组 (文件MD5, 假, fmax)
' //把要处理的数据填充到 结构体内
计次循环首 (fmax, i)
' 调试输出 (i, a [i])
文件MD5 [i].ID ＝ i
文件MD5 [i].file ＝ a [i]
文件MD5 [i].md5 ＝ “”
文件MD5 [i].flag ＝ 0  ' //初始标识  未处理
计次循环尾 ()
计时 ＝ 取启动时间 () － 计时
_启动窗口.操作记录.加入文本 ( #换行符 ＋ “需要处理：” ＋ 到文本 (fmax) ＋ “个文件。” ＋ #换行符 )
' //按设定 开启多线程处理  比如开启 20个线程 或者按 总数量 倍增 线程数
判断 (fmax ≤ 10)
线程数 ＝ 10
判断 (fmax ≤ 50)
线程数 ＝ 20
判断 (fmax ≤ 100)
线程数 ＝ 40
判断 (fmax ≤ 1000)
线程数 ＝ 100
' //超级多的话  就多开点
线程数 ＝ 100
_启动窗口.操作记录.加入文本 ( #换行符 ＋ “开启线程数：” ＋ 到文本 (线程数) ＋ “个” ＋ #换行符 )
' //循环启动多线程
计次循环首 (线程数, i)
启动线程 (&读取文件MD5, i, )  ' 把 i 当成线程标识传进去 ， 可有可无
延时 (100)  ' //随便加个延迟
计次循环尾 ()
' //
计次循环首 (fmax, i)
判断 (文件MD5 [fmax].flag ＝ 0)  ' //判断最后一个文件是否处理完，
延时 (500)  ' // 等待全部处理完成



跳出循环 ()

计次循环尾 ()
_启动窗口.操作记录.加入文本 ( #换行符 ＋ “处理完毕：” ＋ 到文本 (fmax) ＋ “个文件。” ＋ #换行符 )
_启动窗口.操作记录.加入文本 ( #换行符 ＋ “处理耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒。” ＋ #换行符 ＋ #换行符 )
_启动窗口.目录路径.内容 ＝ “”

子程序名	返回值类型	公开	备 注
读取文件MD5			读取文件MD5 的工作线程
参数名	类 型	参考	可空	数组	备 注
tid	整数型				线程标识， 可有可无

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

' //工作线程内 进行循环
' //得到文件数组
fmax ＝ 取数组成员数 (文件MD5)
计次循环首 (fmax, i)
' //判断文件是否已经在处理了， 在处理就跳过，
判断 (文件MD5 [i].flag ＞ 0)
到循环尾 ()


' //没有处理的  进行处理 先标识 开始处理
文件MD5 [i].flag ＝ 1
_启动窗口.操作记录.加入文本 ( #换行符 ＋ “线程【” ＋ 到文本 (tid) ＋ “】：正在处理第” ＋ 到文本 (i) ＋ “个文件。” ＋ #换行符 )
' //取文件的MD5
文件MD5 [i].md5 ＝ 取数据摘要 (读入文件 (文件MD5 [i].file))  ' //这个读取MD5的命令，最好找别的替换， 不然大文件会分配内存失败
' //
延时 (10)  ' //随便加个延迟
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 dp1<br /> <br /> .程序集 改多线程<br /> .程序集变量 线程数, 整数型<br /> .程序集变量 文件MD5, 文件信息, , "0"<br /> <br /> .子程序 读取文件列表<br /> .局部变量 a, 文本型, , "0", 文件数组<br /> .局部变量 i, 整数型<br /> .局部变量 计时, 整数型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 fmax, 整数型<br /> <br /> 计时 ＝ 取启动时间 ()<br /> ' //枚举目录<br /> 文件_枚举_升级版 (_启动窗口.目录路径.内容, “*”, a, 0, 真, 真)<br /> ' //得到文件数组<br /> fmax ＝ 取数组成员数 (a)<br /> 重定义数组 (文件MD5, 假, fmax)<br /> <br /> ' //把要处理的数据填充到 结构体内<br /> .计次循环首 (fmax, i)<br /> <br />     ' 调试输出 (i, a <i>)<br />     文件MD5 <i>.ID ＝ i<br />     文件MD5 <i>.file ＝ a <i><br />     文件MD5 <i>.md5 ＝ “”<br />     文件MD5 <i>.flag ＝ 0  ' //初始标识  未处理<br /> .计次循环尾 ()<br /> 计时 ＝ 取启动时间 () － 计时<br /> _启动窗口.操作记录.加入文本 (#换行符 ＋ “需要处理：” ＋ 到文本 (fmax) ＋ “个文件。” ＋ #换行符)<br /> ' //按设定 开启多线程处理  比如开启 20个线程 或者按 总数量 倍增 线程数<br /> .判断开始 (fmax ≤ 10)<br />     线程数 ＝ 10<br /> .判断 (fmax ≤ 50)<br />     线程数 ＝ 20<br /> .判断 (fmax ≤ 100)<br />     线程数 ＝ 40<br /> .判断 (fmax ≤ 1000)<br />     线程数 ＝ 100<br /> .默认<br />     ' //超级多的话  就多开点<br />     线程数 ＝ 100<br /> <br /> .判断结束<br /> _启动窗口.操作记录.加入文本 (#换行符 ＋ “开启线程数：” ＋ 到文本 (线程数) ＋ “个” ＋ #换行符)<br /> ' //循环启动多线程<br /> .计次循环首 (线程数, i)<br />     启动线程 (&读取文件MD5, i, )  ' 把 i 当成线程标识传进去 ， 可有可无<br />     延时 (100)  ' //随便加个延迟<br /> .计次循环尾 ()<br /> <br /> ' //<br /> .计次循环首 (fmax, i)<br />     .判断开始 (文件MD5 [fmax].flag ＝ 0)  ' //判断最后一个文件是否处理完，<br />         延时 (500)  ' // 等待全部处理完成<br /> <br />     .默认<br /> <br />         跳出循环 ()<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> _启动窗口.操作记录.加入文本 (#换行符 ＋ “处理完毕：” ＋ 到文本 (fmax) ＋ “个文件。” ＋ #换行符)<br /> _启动窗口.操作记录.加入文本 (#换行符 ＋ “处理耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒。” ＋ #换行符 ＋ #换行符)<br /> _启动窗口.目录路径.内容 ＝ “”<br /> <br /> <br /> .子程序 读取文件MD5, , , 读取文件MD5 的工作线程<br /> .参数 tid, 整数型, , 线程标识， 可有可无<br /> .局部变量 fmax, 整数型<br /> .局部变量 i, 整数型<br /> <br /> ' //工作线程内 进行循环<br /> ' //得到文件数组<br /> fmax ＝ 取数组成员数 (文件MD5)<br /> .计次循环首 (fmax, i)<br />     ' //判断文件是否已经在处理了， 在处理就跳过，<br />     .判断开始 (文件MD5 <i>.flag ＞ 0)<br />         到循环尾 ()<br />     .默认<br /> <br />     .判断结束<br />     ' //没有处理的  进行处理 先标识 开始处理<br />     文件MD5 <i>.flag ＝ 1<br />     _启动窗口.操作记录.加入文本 (#换行符 ＋ “线程【” ＋ 到文本 (tid) ＋ “】：正在处理第” ＋ 到文本 (i) ＋ “个文件。” ＋ #换行符)<br />     ' //取文件的MD5<br />     文件MD5 <i>.md5 ＝ 取数据摘要 (读入文件 (文件MD5 <i>.file))  ' //这个读取MD5的命令，最好找别的替换， 不然大文件会分配内存失败<br />     ' //<br />     延时 (10)  ' //随便加个延迟<br /> .计次循环尾 ()

测试.e (16.16 KB, 下载次数: 18)

昨天 20:12 上传

点击文件名下载附件

o风雨o

qq73s5456 发表于 2024-10-29 20:12
[e=2].版本 2
.支持库 EThread
.支持库 dp1

谢谢大佬，能看懂80%，但是重点在本地MD5跟远程MD5对比，您这里只是多线程取了服务器文件MD5，这个时候MD5排序是乱的，怎么去本地再取同样的文件名MD5，然后多线程去对比，最后得出MD5不同的文件，感觉很绕，或者本地没有这个的文件，目的就是检测本地的文件是否缺少或者MD5跟服务器的不一样，然后进行更新用的

qq73s5456

o风雨o 发表于 2024-10-29 22:55
谢谢大佬，能看懂80%，但是重点在本地MD5跟远程MD5对比，您这里只是多线程取了服务器文件MD5，这个时候MD ...

对比也是同样的呀， 一个读取服务器， 一个读取本地， 就得到两组相同的数据， 循环对比数组不就完成了？

o风雨o

qq73s5456 发表于 2024-10-29 23:04
对比也是同样的呀， 一个读取服务器， 一个读取本地， 就得到两组相同的数据， 循环对比数组不就完成了？ ...

但是两个MD5数组的排序是乱的的，计次的时候怎么数组1取到MD51，数组2读到的是MD2，这样对比肯定不相同呀，

qq73s5456

测试.e (26.29 KB, 下载次数: 3)

昨天 23:43 上传

点击文件名下载附件