获取一段MD5用来文件校验的这个模块怎么用API写

孤独症患者こ

我感觉他这个就挺好 而且大文件处理也很快 800MB的文件 也1秒不到就处理到了MD5 虽然跟实际MD5有差别 但是就是为了对比文件是否修改过而已 大文件md5.7z (968 Bytes, 下载次数: 6)

2024-8-27 20:12 上传

点击文件名下载附件

小夏2022

  

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

调试输出 (取数据摘要 (读入文件 (接收到的文件路径)))

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

拖放对象1.注册拖放控件 (取窗口句柄 ())

i支持库列表	支持库注释
spec	特殊功能支持库
dp1	数据操作支持库一
edroptarget	拖放支持库

.版本 2<br /> .支持库 spec<br /> .支持库 dp1<br /> .支持库 edroptarget<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 调试输出 (取数据摘要 (读入文件 (接收到的文件路径)))<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (取窗口句柄 ())

正常没必要检查这么大的文件


补充内容 (2024-8-27 20:25):
这个300mb也就不到两秒，正常的非压缩文件没必要做这么大

孤独症患者こ

小夏2022 发表于 2024-8-27 20:22
[e=1].版本 2
.支持库 spec
.支持库 dp1

不行 因为文件太多 大概有100多个 大于500MB的有10多个 经常会报错

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文件号	整数型
文件名	文本型

文件号 ＝ 打开文件 (文件名, 1, )
调试输出 (取数据摘要 (读入字节集 (文件号, 1000)))
关闭文件 (文件号)

i支持库列表	支持库注释
spec	特殊功能支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 dp1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件号, 整数型<br /> .局部变量 文件名, 文本型<br /> <br /> 文件号 ＝ 打开文件 (文件名, 1, )<br /> 调试输出 (取数据摘要 (读入字节集 (文件号, 1000)))<br /> 关闭文件 (文件号)

lufanjingyi

有大文件的取md5

7ian

华庭大哥

快速字节集.从文件读 (视频路径)

补充内容 (2024-8-27 20:57):
.版本 2
.支持库 commobj
.支持库 dp1

快速字节集.从文件读 (视频路径)
MD5 ＝ 取数据摘要 (快速字节集.取字节集 (, ))

帅气与大侠

支持大文件带进度
源码下载： GetMd5.e (8.62 KB, 下载次数: 3)

2024-8-27 21:27 上传

点击文件名下载附件
源码预览：

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

_临时子程序 ()
返回 (0)

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
md5	文本型

md5 ＝ GetFileMd5 (取特定目录 (3) ＋ “123.txt”)
调试输出 (md5)
md5 ＝ GetStringMd5 (“ai yo hai bu cuo o!”)
调试输出 (md5)

子程序名	返回值类型	公开	备 注
GetFileMd5	文本型		获取文件MD5，支持大文件，带进度回调。失败返回空。
参数名	类 型	参考	可空	数组	备 注
filePath	文本型				文件路径
callback	整数型				回调函数有2个长整型参数，文件总大小，已处理大小。无返回值，如果不需要回调填写0即可

变量名	类 型	静态	数组	备 注
hFile	整数型
fileSize	长整数型
dataSize	整数型
data	文本型
pData	整数型
pMd5	整数型
retDataSize	整数型
curSize	长整数型

pData ＝ 0
pMd5 ＝ 0
hFile ＝ CreateFileA (filePath, 2147483648, 0, 0, 3, 134217728, 0)
如果真 (hFile ≠ -1 且 GetFileSizeEx (hFile, fileSize) ≠ 0)
dataSize ＝ 1024 × 1024 × 2
data ＝ 取空白文本 (dataSize ＋ 8 ＋ 16 ＋ 64 ＋ 16)
pData ＝ 取变量数据地址 (data)
pMd5 ＝ pData ＋ dataSize
MD5_Init (pMd5)
计次循环首 (ceil (fileSize ÷ dataSize), )
ReadFile (hFile, pData, dataSize, retDataSize, 0)
MD5_Update (pMd5, pData, retDataSize)
如果真 (callback ＞ 0)
curSize ＝ curSize ＋ retDataSize
调用子程序 (callback, , , fileSize, curSize)

计次循环尾 ()
MD5_Final (pMd5)
CloseHandle (hFile)
' 收尾神秘代码，如果MD5要返回大写的第16个字节{39}改成{7}
置入代码 ({ 139, 117, 248, 131, 198, 88, 185, 16, 0, 0, 0, 139, 125, 252, 182, 39, 176, 0, 133, 201, 116, 50, 138, 22, 192, 234, 4, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 138, 22, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 132, 192, 116, 3, 136, 7, 71, 70, 73, 235, 202, 139, 69, 16, 57, 248, 116, 5, 198, 7, 0, 137, 248 })

返回 (data)

子程序名	返回值类型	公开	备 注
GetStringMd5	文本型		获取文本MD5。失败返回空。
参数名	类 型	参考	可空	数组	备 注
str	文本型

变量名	类 型	静态	数组	备 注
fileSize	整数型
md5	文本型
pMd5	整数型
pData	整数型

pMd5 ＝ 0
pData ＝ 0
fileSize ＝ 取文本长度 (str)
如果真 (fileSize ＞ 0)
md5 ＝ 取空白文本 (8 ＋ 16 ＋ 64 ＋ 16)
pMd5 ＝ 取变量数据地址 (md5)
pData ＝ 取变量数据地址 (str)
MD5_Init (pMd5)
MD5_Update (pMd5, pData, fileSize)
MD5_Final (pMd5)
pData ＝ pMd5
' 收尾神秘代码
置入代码 ({ 139, 117, 248, 131, 198, 88, 185, 16, 0, 0, 0, 139, 125, 252, 182, 39, 176, 0, 133, 201, 116, 50, 138, 22, 192, 234, 4, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 138, 22, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 132, 192, 116, 3, 136, 7, 71, 70, 73, 235, 202, 139, 69, 16, 57, 248, 116, 5, 198, 7, 0, 137, 248 })

返回 (md5)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> _临时子程序 ()<br /> 返回 (0)<br /> <br /> .子程序 _临时子程序<br /> .局部变量 md5, 文本型<br /> <br /> <br /> md5 ＝ GetFileMd5 (取特定目录 (3) ＋ “123.txt”)<br /> 调试输出 (md5)<br /> md5 ＝ GetStringMd5 (“ai yo hai bu cuo o!”)<br /> 调试输出 (md5)<br /> <br /> .子程序 GetFileMd5, 文本型, , 获取文件MD5，支持大文件，带进度回调。失败返回空。<br /> .参数 filePath, 文本型, , 文件路径<br /> .参数 callback, 整数型, 可空, 回调函数有2个长整型参数，文件总大小，已处理大小。无返回值，如果不需要回调填写0即可<br /> .局部变量 hFile, 整数型<br /> .局部变量 fileSize, 长整数型<br /> .局部变量 dataSize, 整数型<br /> .局部变量 data, 文本型<br /> .局部变量 pData, 整数型<br /> .局部变量 pMd5, 整数型<br /> .局部变量 retDataSize, 整数型<br /> .局部变量 curSize, 长整数型<br /> <br /> pData ＝ 0<br /> pMd5 ＝ 0<br /> hFile ＝ CreateFileA (filePath, 2147483648, 0, 0, 3, 134217728, 0)<br /> .如果真 (hFile ≠ -1 且 GetFileSizeEx (hFile, fileSize) ≠ 0)<br />     dataSize ＝ 1024 × 1024 × 2<br />     data ＝ 取空白文本 (dataSize ＋ 8 ＋ 16 ＋ 64 ＋ 16)<br />     pData ＝ 取变量数据地址 (data)<br />     pMd5 ＝ pData ＋ dataSize<br />     MD5_Init (pMd5)<br />     .计次循环首 (ceil (fileSize ÷ dataSize), )<br />         ReadFile (hFile, pData, dataSize, retDataSize, 0)<br />         MD5_Update (pMd5, pData, retDataSize)<br />         .如果真 (callback ＞ 0)<br />             curSize ＝ curSize ＋ retDataSize<br />             调用子程序 (callback, , , fileSize, curSize)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     MD5_Final (pMd5)<br />     CloseHandle (hFile)<br /> <br />     ' 收尾神秘代码，如果MD5要返回大写的第16个字节{39}改成{7}<br />     置入代码 ({ 139, 117, 248, 131, 198, 88, 185, 16, 0, 0, 0, 139, 125, 252, 182, 39, 176, 0, 133, 201, 116, 50, 138, 22, 192, 234, 4, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 138, 22, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 132, 192, 116, 3, 136, 7, 71, 70, 73, 235, 202, 139, 69, 16, 57, 248, 116, 5, 198, 7, 0, 137, 248 })<br /> .如果真结束<br /> <br /> 返回 (data)<br /> <br /> .子程序 GetStringMd5, 文本型, , 获取文本MD5。失败返回空。<br /> .参数 str, 文本型<br /> .局部变量 fileSize, 整数型<br /> .局部变量 md5, 文本型<br /> .局部变量 pMd5, 整数型<br /> .局部变量 pData, 整数型<br /> <br /> pMd5 ＝ 0<br /> pData ＝ 0<br /> fileSize ＝ 取文本长度 (str)<br /> .如果真 (fileSize ＞ 0)<br />     md5 ＝ 取空白文本 (8 ＋ 16 ＋ 64 ＋ 16)<br />     pMd5 ＝ 取变量数据地址 (md5)<br /> <br />     pData ＝ 取变量数据地址 (str)<br />     MD5_Init (pMd5)<br />     MD5_Update (pMd5, pData, fileSize)<br />     MD5_Final (pMd5)<br />     pData ＝ pMd5<br /> <br />     ' 收尾神秘代码<br />     置入代码 ({ 139, 117, 248, 131, 198, 88, 185, 16, 0, 0, 0, 139, 125, 252, 182, 39, 176, 0, 133, 201, 116, 50, 138, 22, 192, 234, 4, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 138, 22, 128, 226, 15, 128, 194, 48, 128, 250, 57, 118, 2, 0, 242, 136, 23, 71, 132, 192, 116, 3, 136, 7, 71, 70, 73, 235, 202, 139, 69, 16, 57, 248, 116, 5, 198, 7, 0, 137, 248 })<br /> .如果真结束<br /> <br /> 返回 (md5)

孤独症患者こ

帅气与大侠 发表于 2024-8-27 21:29
支持大文件带进度
源码下载：
源码预览：

GetFileMd5
这个多个文件就会获取一样的MD5了

孤独症患者こ

kirbysxh 发表于 2024-8-27 20:56
快速字节集.从文件读 (视频路径)

补充内容 (2024-8-27 20:57):

这个我之前也试过 每次校验个2-3回就会出错了 所以我现在如果能跟模块这种 的700MB 100多个文件 用时大概10秒左右