关于大文件分片上传的问题

lsqiang

需要把文件分片并上传，源码我已上传，应该是运行不了的，我只截取了分片的这块。
读入文件  现在要么报内存错误，要么显示长度是0
还是循环上传逻辑好像有点错误。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

子程序名	返回值类型	公开	备 注
向上取整	整数型
参数名	类 型	参考	可空	数组	备 注
x	双精度小数型

如果真 (x ＞ 四舍五入 (x, ))
返回 (四舍五入 (x, ) ＋ 1)
返回 (四舍五入 (x, ))

子程序名	返回值类型	公开	备 注
大文件分片上传
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
上传的文件ID	文本型
n	整数型

变量名	类 型	静态	数组	备 注
文件大小	整数型
文件字节集	字节集
i	整数型
文件分割次数	整数型
发送数据	文本型
返回json	类_json
分片上传URL	文本型
拆分字节集	字节集
上传结果	文本型
PUT结果	文本型
测试文件	文本型
测试大小	整数型
文件号获取	整数型

' 文件号获取 ＝ 读入文件 (文件路径)
' 调试输出 (“文件号：”, 文件号获取)
文件字节集 ＝ 读入文件 (文件路径)
' 文件字节集 ＝ 文件_打开 (文件路径, 1)
调试输出 (“文件路径：”, 文件路径)
文件大小 ＝ 取字节集长度 (文件字节集)
调试输出 (“文件大小：”, 文件大小)
文件分割次数 ＝ 向上取整 (文件大小 ÷ #文件分片大小 )
如果真 (文件大小 ≥ #文件分片大小 )
发送数据 ＝ “{” ＋ #引号 ＋ “preuploadID” ＋ #引号 ＋ “:” ＋ #引号 ＋ 到文本 (上传的文件ID) ＋ #引号 ＋ “,” ＋ #引号 ＋ “sliceNo” ＋ #引号 ＋ “:” ＋ 到文本 (1) ＋ “}”
返回json.清除 ()
上传结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 ( #API_123云盘 ＋ “/upload/v1/file/get_upload_url”, 1, 发送数据, , , 获取HEADER_123 ()))
调试输出 (“分片上传结果”, 上传结果)
返回json.解析 (上传结果)
返回json.解析 (编码_Utf8到Ansi (网页_访问_对象 ( #API_123云盘 ＋ “/upload/v1/file/get_upload_url”, 1, 发送数据, , , 获取HEADER_123 ())))
分片上传URL ＝ “”
如果真 (返回json.取通用属性 (“message”) ＝ “ok”)
分片上传URL ＝ 返回json.取通用属性 (“data.presignedURL”)
PUT结果 ＝ 分片PUT上传 (分片上传URL, 文件字节集)
调试输出 (“PUT结果：”, PUT结果)
超级列表框_上传列表.置标题 (n － 1, 3, “完成100%”)
计次循环首 (文件分割次数, i)
拆分字节集 ＝ 字节集_取指定位置字节集 (文件字节集, (i － 1) × #文件分片大小 ＋ 1, #文件分片大小 )
发送数据 ＝ “{” ＋ #引号 ＋ “preuploadID” ＋ #引号 ＋ “:” ＋ #引号 ＋ 到文本 (上传的文件ID) ＋ #引号 ＋ “,” ＋ #引号 ＋ “sliceNo” ＋ #引号 ＋ “:” ＋ 到文本 (i) ＋ “}”
返回json.清除 ()
上传结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 ( #API_123云盘 ＋ “/upload/v1/file/get_upload_url”, 1, 发送数据, , , 获取HEADER_123 ()))
调试输出 (“分片上传结果”, 上传结果)
返回json.解析 (上传结果)
分片上传URL ＝ “”
如果真 (返回json.取通用属性 (“message”) ＝ “ok”)
分片上传URL ＝ 返回json.取通用属性 (“data.presignedURL”)
PUT结果 ＝ 分片PUT上传 (分片上传URL, 文件字节集)
调试输出 (“PUT结果：”, PUT结果)
分片PUT上传 (分片上传URL, 文件字节集)
超级列表框_上传列表.置标题 (n － 1, 3, “完成” ＋ 到文本 (四舍五入 (i ÷ 文件分割次数, 1)) ＋ “%”)  ' 模拟进度状态
程序_延时 (1, 1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
分片PUT上传	文本型
参数名	类 型	参考	可空	数组	备 注
上传URL	文本型
上传数据	字节集

变量名	类 型	静态	数组	备 注
返回信息	文本型

返回信息 ＝ 编码_Utf8到Ansi (网页_访问_对象 (上传URL, 3, , , , 获取HEADER_123 (), , , , 上传数据))
返回 (返回信息)

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> <br /> .子程序 向上取整, 整数型<br /> .参数 x, 双精度小数型<br /> <br /> .如果真 (x ＞ 四舍五入 (x, ))<br />     返回 (四舍五入 (x, ) ＋ 1)<br /> .如果真结束<br /> 返回 (四舍五入 (x, ))<br /> <br /> <br /> .子程序 大文件分片上传<br /> .参数 文件路径, 文本型<br /> .参数 上传的文件ID, 文本型<br /> .参数 n, 整数型<br /> .局部变量 文件大小, 整数型<br /> .局部变量 文件字节集, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 文件分割次数, 整数型<br /> .局部变量 发送数据, 文本型<br /> .局部变量 返回json, 类_json<br /> .局部变量 分片上传URL, 文本型<br /> .局部变量 拆分字节集, 字节集<br /> .局部变量 上传结果, 文本型<br /> .局部变量 PUT结果, 文本型<br /> .局部变量 测试文件, 文本型<br /> .局部变量 测试大小, 整数型<br /> .局部变量 文件号获取, 整数型<br /> <br /> ' 文件号获取 ＝ 读入文件 (文件路径)<br /> <br /> ' 调试输出 (“文件号：”, 文件号获取)<br /> 文件字节集 ＝ 读入文件 (文件路径)<br /> <br /> ' 文件字节集 ＝ 文件_打开 (文件路径, 1)<br /> <br /> 调试输出 (“文件路径：”, 文件路径)<br /> 文件大小 ＝ 取字节集长度 (文件字节集)<br /> 调试输出 (“文件大小：”, 文件大小)<br /> 文件分割次数 ＝ 向上取整 (文件大小 ÷ #文件分片大小)<br /> <br /> .如果真 (文件大小 ≥ #文件分片大小)<br />     发送数据 ＝ “{” ＋ #引号 ＋ “preuploadID” ＋ #引号 ＋ “:” ＋ #引号 ＋ 到文本 (上传的文件ID) ＋ #引号 ＋ “,” ＋ #引号 ＋ “sliceNo” ＋ #引号 ＋ “:” ＋ 到文本 (1) ＋ “}”<br /> <br />     返回json.清除 ()<br />     上传结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 (#API_123云盘 ＋ “/upload/v1/file/get_upload_url”, 1, 发送数据, , , 获取HEADER_123 ()))<br />     调试输出 (“分片上传结果”, 上传结果)<br />     返回json.解析 (上传结果)<br />     返回json.解析 (编码_Utf8到Ansi (网页_访问_对象 (#API_123云盘 ＋ “/upload/v1/file/get_upload_url”, 1, 发送数据, , , 获取HEADER_123 ())))<br />     分片上传URL ＝ “”<br />     .如果真 (返回json.取通用属性 (“message”) ＝ “ok”)<br />         分片上传URL ＝ 返回json.取通用属性 (“data.presignedURL”)<br />     .如果真结束<br />     PUT结果 ＝ 分片PUT上传 (分片上传URL, 文件字节集)<br />     调试输出 (“PUT结果：”, PUT结果)<br />     超级列表框_上传列表.置标题 (n － 1, 3, “完成100%”)<br /> <br /> .如果真结束<br /> .计次循环首 (文件分割次数, i)<br />     拆分字节集 ＝ 字节集_取指定位置字节集 (文件字节集, (i － 1) × #文件分片大小 ＋ 1, #文件分片大小)<br />     发送数据 ＝ “{” ＋ #引号 ＋ “preuploadID” ＋ #引号 ＋ “:” ＋ #引号 ＋ 到文本 (上传的文件ID) ＋ #引号 ＋ “,” ＋ #引号 ＋ “sliceNo” ＋ #引号 ＋ “:” ＋ 到文本 (i) ＋ “}”<br />     返回json.清除 ()<br />     上传结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 (#API_123云盘 ＋ “/upload/v1/file/get_upload_url”, 1, 发送数据, , , 获取HEADER_123 ()))<br />     调试输出 (“分片上传结果”, 上传结果)<br />     返回json.解析 (上传结果)<br />     分片上传URL ＝ “”<br />     .如果真 (返回json.取通用属性 (“message”) ＝ “ok”)<br />         分片上传URL ＝ 返回json.取通用属性 (“data.presignedURL”)<br />     .如果真结束<br />     PUT结果 ＝ 分片PUT上传 (分片上传URL, 文件字节集)<br />     调试输出 (“PUT结果：”, PUT结果)<br />     分片PUT上传 (分片上传URL, 文件字节集)<br />     超级列表框_上传列表.置标题 (n － 1, 3, “完成” ＋ 到文本 (四舍五入 (i ÷ 文件分割次数, 1)) ＋ “%”)  ' 模拟进度状态<br />     程序_延时 (1, 1)<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 分片PUT上传, 文本型<br /> .参数 上传URL, 文本型<br /> .参数 上传数据, 字节集<br /> .局部变量 返回信息, 文本型<br /> <br /> 返回信息 ＝ 编码_Utf8到Ansi (网页_访问_对象 (上传URL, 3, , , , 获取HEADER_123 (), , , , 上传数据))<br /> 返回 (返回信息)

7ian

用读入文件就已经不适合大文件了，换成打开文件

lsqiang

1111321ADSFAFSDAFSADF