下载传输纯源码

陈嘟嘟

1：没有下载按钮  打开就默认下载了

噢噢

感谢楼主分享！

bycz

谢谢分享，学习

wjswzj0

谢谢分享，学习

BIG牛肉面

rectdbszy

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
下载参数	任务参数
文件总大小	双精度小数型
下载对象	下载对象
是否重启	逻辑型

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

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

下载参数.类型 ＝ #传送常量 .下载
下载参数.默认线程数 ＝ 5
下载参数.线程等待超时 ＝ 1000
下载参数.连接超时 ＝ 5000
下载参数.发送超时 ＝ 5001
下载参数.接收超时 ＝ 10000
下载参数.接收大小 ＝ 10240
下载参数.交互回调函数 ＝ &交互回调函数
时钟1.时钟周期 ＝ 1000
下载参数.文件地址 ＝ 编辑框1.内容
下载参数.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ 组合框1.内容
下载对象.增加新任务 (下载参数)

子程序名	返回值类型	公开	备 注
交互回调函数	整数型
参数名	类 型	参考	可空	数组	备 注
消息类型	整数型
线程信息	整数型
参数信息	整数型
参数信息2	整数型
对象信息	整数型

判断 (消息类型 ＝ #传送常量 .存在同名文件)
返回 ( #传送常量 .结束下载)
判断 (消息类型 ＝ #传送常量 .下载上传开始)
文件总大小 ＝ 参数信息
_启动窗口.标签2.标题 ＝ 到文本 (四舍五入 (文件总大小 ÷ 1024 ÷ 1024, 2)) ＋ “MB”
如果真 (消息类型 ＝ #传送常量 .下载上传结束)
时钟1.时钟周期 ＝ 0
_启动窗口.标签2.可视 ＝ 假
_启动窗口.标签4.可视 ＝ 假
_启动窗口.标签6.可视 ＝ 假
_启动窗口.标签8.可视 ＝ 假
进度条1.位置 ＝ 0

返回 (0)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
下载速度	整数型

下载速度 ＝ 下载对象.取下载速度 ()
判断 (下载速度 ÷ 1024 ≥ 1024)
标签6.标题 ＝ 到文本 (四舍五入 (下载速度 ÷ 1024 ÷ 1024, 2)) ＋ “MB”
标签6.标题 ＝ 到文本 (四舍五入 (下载速度 ÷ 1024, 2)) ＋ “KB”
进度条1.位置 ＝ 下载对象.取已下载长 () ÷ 文件总大小 × 100
标签4.标题 ＝ 到文本 (四舍五入 (下载对象.取已下载长 () ÷ 1024 ÷ 1024, 2)) ＋ “MB”
标签8.标题 ＝ 到文本 (进度条1.位置) ＋ “%”

i支持库列表	支持库注释
downlib	网络传送支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 downlib<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 下载参数, 任务参数<br /> .程序集变量 文件总大小, 双精度小数型<br /> .程序集变量 下载对象, 下载对象<br /> .程序集变量 是否重启, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> <br /> .子程序 _按钮_开始下载_被单击<br /> <br /> 下载参数.类型 ＝ #传送常量.下载<br /> 下载参数.默认线程数 ＝ 5<br /> 下载参数.线程等待超时 ＝ 1000<br /> 下载参数.连接超时 ＝ 5000<br /> 下载参数.发送超时 ＝ 5001<br /> 下载参数.接收超时 ＝ 10000<br /> 下载参数.接收大小 ＝ 10240<br /> 下载参数.交互回调函数 ＝ &交互回调函数<br /> 时钟1.时钟周期 ＝ 1000<br /> 下载参数.文件地址 ＝ 编辑框1.内容<br /> 下载参数.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ 组合框1.内容<br /> 下载对象.增加新任务 (下载参数)<br /> <br /> <br /> .子程序 交互回调函数, 整数型<br /> .参数 消息类型, 整数型<br /> .参数 线程信息, 整数型<br /> .参数 参数信息, 整数型<br /> .参数 参数信息2, 整数型<br /> .参数 对象信息, 整数型<br /> <br /> .判断开始 (消息类型 ＝ #传送常量.存在同名文件)<br />     返回 (#传送常量.结束下载)<br /> .判断 (消息类型 ＝ #传送常量.下载上传开始)<br />     文件总大小 ＝ 参数信息<br />     _启动窗口.标签2.标题 ＝ 到文本 (四舍五入 (文件总大小 ÷ 1024 ÷ 1024, 2)) ＋ “MB”<br /> .默认<br />     .如果真 (消息类型 ＝ #传送常量.下载上传结束)<br />         时钟1.时钟周期 ＝ 0<br />         _启动窗口.标签2.可视 ＝ 假<br />         _启动窗口.标签4.可视 ＝ 假<br />         _启动窗口.标签6.可视 ＝ 假<br />         _启动窗口.标签8.可视 ＝ 假<br />         进度条1.位置 ＝ 0<br />     .如果真结束<br /> <br /> .判断结束<br /> 返回 (0)<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 下载速度, 整数型<br /> <br /> 下载速度 ＝ 下载对象.取下载速度 ()<br /> .判断开始 (下载速度 ÷ 1024 ≥ 1024)<br />     标签6.标题 ＝ 到文本 (四舍五入 (下载速度 ÷ 1024 ÷ 1024, 2)) ＋ “MB”<br /> .默认<br />     标签6.标题 ＝ 到文本 (四舍五入 (下载速度 ÷ 1024, 2)) ＋ “KB”<br /> .判断结束<br /> 进度条1.位置 ＝ 下载对象.取已下载长 () ÷ 文件总大小 × 100<br /> 标签4.标题 ＝ 到文本 (四舍五入 (下载对象.取已下载长 () ÷ 1024 ÷ 1024, 2)) ＋ “MB”<br /> 标签8.标题 ＝ 到文本 (进度条1.位置) ＋ “%”

rectdbszy

现在下迪MP3/MP4太难了，收费，收费，收费，收费，收费，收费，收费，收费

snak2020

谢谢分享，学习

fengyyun

感谢分享！！！！！！！！！！！！！！！！！！

bianyuan456

win10 64位，例子带的下载链接无效，我换了俩，也都不能下载。好奇怪