简单的http下载

justone

调用了论坛内某位大佬的模块。
当时逛论坛的时候看到的大佬分享的模块。现在忘记地址了

刚好有个小软件不想增加体积，就想起来这个模块然后拿来改了一下用于下载运行所需的dll之类的

这个http模块很好用的呢 哈哈哈哈，分享给小白朋友们，大佬就别喷别喷



HTTP下载.zip (49.57 KB, 下载次数: 408)

2023-6-5 07:32 上传

点击文件名下载附件

312508236

这模块真香啊，轻量又实用

justone

2310762810 发表于 2026-1-16 14:41
你好作者，我使用了你的下载器源码，发现了一点问题，每个下载地址都会有回调并且附带回调标识，所以不需要 ...

谢谢您的补充，说实话哈，当时我达到我的要求后我就没管了，还是您比较细心

lassgo

这模块真香啊，轻量又实用，楼主记得给大佬补个链接哈～

2310762810

你好作者，我使用了你的下载器源码，发现了一点问题，每个下载地址都会有回调并且附带回调标识，所以不需要用循环来寻找超级列表框中的标识是否一致，像我图中这样改效率会高很多

  

子程序名	返回值类型	公开	备 注
下载回调
参数名	类 型	参考	可空	数组	备 注
下载标识	整数型				下载线程的标识
下载状态	整数型				下载线程的状态
文件总大小	长整数型				B
已下载大小	长整数型				B
剩余大小	长整数型				B
下载进度	小数型
平均速度	小数型				KB/S
下载用时	整数型				ms
下载路径	文本型

超级列表框_组件下载.置标题 (下载标识, 2, 数值到格式文本 (文件总大小 ÷ 1024 ÷ 1024, 2, 假) ＋ “MB”)
超级列表框_组件下载.置标题 (下载标识, 3, 数值到格式文本 (已下载大小 ÷ 1024 ÷ 1024, 2, 假) ＋ “MB”)
超级列表框_组件下载.置标题 (下载标识, 4, 到文本 (平均速度) ＋ “KB/S”)
如果真 (下载状态 ＝ 1)
超级列表框_组件下载.置标题 (下载标识, 5, “开始下载”)
如果真 (下载状态 ＝ 2)
超级列表框_组件下载.置标题 (下载标识, 5, “下载中”)
如果真 (下载状态 ＝ 3)
超级列表框_组件下载.置标题 (下载标识, 5, “下载完成”)
集_完成下载个数 ＝ 集_完成下载个数 ＋ 1
输出调试文本 (集_完成下载个数)
如果真 (集_总下载个数 ＝ 集_完成下载个数)
信息框 (“组件全部下载完毕,请重新运行”, 0, , )
结束 ()

如果真 (下载状态 ＝ -1)
超级列表框_组件下载.置标题 (下载标识, 5, “下载错误”)
HTTP下载_停止 (下载标识)
信息框 (“发现 ” ＋ 超级列表框_组件下载.取标题 (下载标识, 1) ＋ “ 组件下载错误”, 0, , )
删除文件 (取运行目录 () ＋ “\” ＋ 超级列表框_组件下载.取标题 (下载标识, 1))

.版本 2<br /> <br /> .子程序 下载回调<br /> .参数 下载标识, 整数型, , 下载线程的标识<br /> .参数 下载状态, 整数型, , 下载线程的状态<br /> .参数 文件总大小, 长整数型, , B<br /> .参数 已下载大小, 长整数型, , B<br /> .参数 剩余大小, 长整数型, , B<br /> .参数 下载进度, 小数型<br /> .参数 平均速度, 小数型, , KB/S<br /> .参数 下载用时, 整数型, , ms<br /> .参数 下载路径, 文本型<br /> <br /> <br /> 超级列表框_组件下载.置标题 (下载标识, 2, 数值到格式文本 (文件总大小 ÷ 1024 ÷ 1024, 2, 假) ＋ “MB”)<br /> 超级列表框_组件下载.置标题 (下载标识, 3, 数值到格式文本 (已下载大小 ÷ 1024 ÷ 1024, 2, 假) ＋ “MB”)<br /> 超级列表框_组件下载.置标题 (下载标识, 4, 到文本 (平均速度) ＋ “KB/S”)<br /> .如果真 (下载状态 ＝ 1)<br />     超级列表框_组件下载.置标题 (下载标识, 5, “开始下载”)<br /> .如果真结束<br /> .如果真 (下载状态 ＝ 2)<br />     超级列表框_组件下载.置标题 (下载标识, 5, “下载中”)<br /> .如果真结束<br /> .如果真 (下载状态 ＝ 3)<br />     超级列表框_组件下载.置标题 (下载标识, 5, “下载完成”)<br />     集_完成下载个数 ＝ 集_完成下载个数 ＋ 1<br />     输出调试文本 (集_完成下载个数)<br />     .如果真 (集_总下载个数 ＝ 集_完成下载个数)<br />         信息框 (“组件全部下载完毕,请重新运行”, 0, , )<br />         结束 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (下载状态 ＝ -1)<br />     超级列表框_组件下载.置标题 (下载标识, 5, “下载错误”)<br />     HTTP下载_停止 (下载标识)<br />     信息框 (“发现 ” ＋ 超级列表框_组件下载.取标题 (下载标识, 1) ＋ “ 组件下载错误”, 0, , )<br />     删除文件 (取运行目录 () ＋ “\” ＋ 超级列表框_组件下载.取标题 (下载标识, 1))<br /> .如果真结束

2310762810

感谢分享，很给力！~

963485005

兼容性怎么样

jaicke123

感谢分享

cf衙役

开源精神必须支持~

1300886755

感谢分享