取ftp文件大小，大于2G的文件返回负数

颩厾

• 模块版本 精易模块V5.5
• 所用系统 win10 64
  

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
FTP	类_FTP

子程序名	返回值类型	公开	备 注
填充文件框

变量名	类 型	静态	数组	备 注
文件名	文本型		0
文件尺寸	长整数型		0
文件属性	整数型		0	1、#只读文件； 2、#隐藏文件；  4、#系统文件； 16、#子目录；32、#存档文件
文件时间	日期时间型		0
数目	整数型
容器1	整数型
名称	文本型
索引	整数型
现行目录	文本型
路径	文本型
临时_尺寸	长整数型

超级列表框1.全部删除 ()
路径 ＝ 取完整路径 () ＋ “/” ＋ 树型框1.取项目文本 (树型框1.现行选中项)
数目 ＝ FTP.目录列表 (路径 ＋ “/*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)
调试输出 (文件尺寸)
' 填充目录
计次循环首 (数目, 容器1)
如果真 (位与 (文件属性 [容器1], #子目录 ) ≠ 0)
名称 ＝ 文件名 [容器1]
如果真 (取文本左边 (名称, 1) ≠ “.”)
索引 ＝ 超级列表框1.插入表项 (, 名称, , , , )
超级列表框1.置标题 (索引, 2, 时间到文本 (文件时间 [容器1], ))
超级列表框1.置标题 (索引, 3, “文件夹”)


计次循环尾 ()
' 填充文件
计次循环首 (数目, 容器1)
如果真 (位与 (文件属性 [容器1], #子目录 ) ＝ 0)
索引 ＝ 超级列表框1.插入表项 (, 文件名 [容器1], 2, , , 2)
临时_尺寸 ＝ 文件尺寸 [容器1]
调试输出 (到长整数 (文件尺寸 [容器1]))
判断 (文件尺寸 [容器1] ＜ 0)  ' 负数
超级列表框1.置标题 (索引, 1, “>2GB”)
判断 (文件尺寸 [容器1] ÷ 1024 ＜ 1)
超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸), 4) ＋ “B”)
判断 (文件尺寸 [容器1] ÷ 1048576 ＜ 1)
超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1024), 4) ＋ “KB”)
判断 (文件尺寸 [容器1] ÷ 1073741824 ＜ 1)
超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1048576), 4) ＋ “MB”)
超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1073741824), 4) ＋ “GB”)

超级列表框1.置标题 (索引, 2, 到文本 (文件时间 [容器1]))

计次循环尾 ()

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

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 FTP, 类_FTP<br /> <br /> <br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 填充文件框<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 文件尺寸, 长整数型, , "0"<br /> .局部变量 文件属性, 整数型, , "0", 1、#只读文件； 2、#隐藏文件；  4、#系统文件； 16、#子目录；32、#存档文件<br /> .局部变量 文件时间, 日期时间型, , "0"<br /> .局部变量 数目, 整数型<br /> .局部变量 容器1, 整数型<br /> .局部变量 名称, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 现行目录, 文本型<br /> .局部变量 路径, 文本型<br /> .局部变量 临时_尺寸, 长整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 路径 ＝ 取完整路径 () ＋ “/” ＋ 树型框1.取项目文本 (树型框1.现行选中项)<br /> 数目 ＝ FTP.目录列表 (路径 ＋ “/*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)<br /> 调试输出 (文件尺寸)<br /> <br /> ' 填充目录<br /> .计次循环首 (数目, 容器1)<br />     .如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)<br />         名称 ＝ 文件名 [容器1]<br />         .如果真 (取文本左边 (名称, 1) ≠ “.”)<br />             索引 ＝ 超级列表框1.插入表项 (, 名称, , , , )<br />             超级列表框1.置标题 (索引, 2, 时间到文本 (文件时间 [容器1], ))<br />             超级列表框1.置标题 (索引, 3, “文件夹”)<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 填充文件<br /> .计次循环首 (数目, 容器1)<br />     .如果真 (位与 (文件属性 [容器1], #子目录) ＝ 0)<br />         索引 ＝ 超级列表框1.插入表项 (, 文件名 [容器1], 2, , , 2)<br />         临时_尺寸 ＝ 文件尺寸 [容器1]<br />         调试输出 (到长整数 (文件尺寸 [容器1]))<br />         .判断开始 (文件尺寸 [容器1] ＜ 0)  ' 负数<br />             超级列表框1.置标题 (索引, 1, “>2GB”)<br />         .判断 (文件尺寸 [容器1] ÷ 1024 ＜ 1)<br />             超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸), 4) ＋ “B”)<br />         .判断 (文件尺寸 [容器1] ÷ 1048576 ＜ 1)<br />             超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1024), 4) ＋ “KB”)<br />         .判断 (文件尺寸 [容器1] ÷ 1073741824 ＜ 1)<br />             超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1048576), 4) ＋ “MB”)<br />         .默认<br />             超级列表框1.置标题 (索引, 1, 取文本左边 (到文本 (临时_尺寸 ÷ 1073741824), 4) ＋ “GB”)<br />         .判断结束<br /> <br />         超级列表框1.置标题 (索引, 2, 到文本 (文件时间 [容器1]))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2016-11-17 15:29):
##问题已解决，在7楼！

颩厾

问题已解决。

原因api返回值为无符号整数型，易语言无此类型，产生溢出。做如下修改可正常输出文件大小：

  

子程序名	返回值类型	公开	备 注
目录列表	整数型		枚举FTP指定目录里的所有文件；返回找到的文件个数；
参数名	类 型	参考	可空	数组	备 注
欲列出的文件类型	文本型				可空；留空取所有文件；或是指定文件类型，如："*.txt"；
欲列出的文件属性	整数型				欲列出的文件属性；
存放文件名的数组	文本型				用于存放文件名的数组；
存放文件属性数组	整数型				用于存放文件属性数组；
存放文件尺寸数组	长整数型				用于存放文件尺寸数组；
存放文件时间数组	日期时间型				用于存放文件时间数组；

变量名	类 型	静态	数组	备 注
hFind	整数型
文件信息	查找的文件信息
局_目录名	文本型
文件大小	长整数型		2
临时字节集	字节集		2

如果真 (欲列出的文件类型 ＝ “”)
欲列出的文件类型 ＝ “*.*”
清除数组 (存放文件名的数组)
清除数组 (存放文件属性数组)
清除数组 (存放文件尺寸数组)
清除数组 (存放文件时间数组)
数组清零 (文件大小)
数组清零 (临时字节集)
如果真 (连接句柄 ＝ 0)
返回 (0)
如果真 (是否为空 (欲列出的文件属性))
欲列出的文件属性 ＝ 183
hFind ＝ FtpFindFirstFileA (连接句柄, 欲列出的文件类型, 文件信息, 0, 0)
如果真 (hFind ＝ 0)
返回 (0)
循环判断首 ()
局_目录名 ＝ 字节数组_到文本 (文件信息.cFileName)
判断 (位与 (文件信息.dwFileAttributes, 欲列出的文件属性) ＝ 0)
到循环尾 ()
判断 (取文本左边 (局_目录名, 1) ＝ “.”)
到循环尾 ()


加入成员 (存放文件名的数组, 局_目录名)
加入成员 (存放文件属性数组, 文件信息.dwFileAttributes)
临时字节集 [1] ＝ 到字节集 (文件信息.nFileSizeLow)
临时字节集 [2] ＝ 到字节集 (文件信息.nFileSizeHigh)
文件大小 [1] ＝ 取字节集数据 (临时字节集 [1], #长整数型, )
文件大小 [2] ＝ 取字节集数据 (临时字节集 [2], #长整数型, )
加入成员 (存放文件尺寸数组, 文件大小 [1] ＋ 文件大小 [2] × 4294967296)
加入成员 (存放文件时间数组, 系统_时间变时间 (文件信息.ftLastWriteTime))
处理事件 ()
循环判断尾 (InternetFindNextFileA (hFind, 文件信息) ≠ 0)
InternetCloseHandle (hFind)
返回 (取数组成员数 (存放文件名的数组))

.版本 2<br /> <br /> .子程序 目录列表, 整数型, 公开, 枚举FTP指定目录里的所有文件；返回找到的文件个数；<br /> .参数 欲列出的文件类型, 文本型, 可空, 可空；留空取所有文件；或是指定文件类型，如："*.txt"；<br /> .参数 欲列出的文件属性, 整数型, 可空, 欲列出的文件属性；<br /> .参数 存放文件名的数组, 文本型, 参考 可空 数组, 用于存放文件名的数组；<br /> .参数 存放文件属性数组, 整数型, 参考 可空 数组, 用于存放文件属性数组；<br /> .参数 存放文件尺寸数组, 长整数型, 参考 可空 数组, 用于存放文件尺寸数组；<br /> .参数 存放文件时间数组, 日期时间型, 参考 可空 数组, 用于存放文件时间数组；<br /> .局部变量 hFind, 整数型<br /> .局部变量 文件信息, 查找的文件信息<br /> .局部变量 局_目录名, 文本型<br /> .局部变量 文件大小, 长整数型, , "2"<br /> .局部变量 临时字节集, 字节集, , "2"<br /> <br /> .如果真 (欲列出的文件类型 ＝ “”)<br />     欲列出的文件类型 ＝ “*.*”<br /> .如果真结束<br /> 清除数组 (存放文件名的数组)<br /> 清除数组 (存放文件属性数组)<br /> 清除数组 (存放文件尺寸数组)<br /> 清除数组 (存放文件时间数组)<br /> 数组清零 (文件大小)<br /> 数组清零 (临时字节集)<br /> .如果真 (连接句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (是否为空 (欲列出的文件属性))<br />     欲列出的文件属性 ＝ 183<br /> .如果真结束<br /> hFind ＝ FtpFindFirstFileA (连接句柄, 欲列出的文件类型, 文件信息, 0, 0)<br /> .如果真 (hFind ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> .循环判断首 ()<br />     局_目录名 ＝ 字节数组_到文本 (文件信息.cFileName)<br />     .判断开始 (位与 (文件信息.dwFileAttributes, 欲列出的文件属性) ＝ 0)<br />         到循环尾 ()<br />     .判断 (取文本左边 (局_目录名, 1) ＝ “.”)<br />         到循环尾 ()<br />     .默认<br /> <br />     .判断结束<br />     加入成员 (存放文件名的数组, 局_目录名)<br />     加入成员 (存放文件属性数组, 文件信息.dwFileAttributes)<br />     临时字节集 [1] ＝ 到字节集 (文件信息.nFileSizeLow)<br />     临时字节集 [2] ＝ 到字节集 (文件信息.nFileSizeHigh)<br />     文件大小 [1] ＝ 取字节集数据 (临时字节集 [1], #长整数型, )<br />     文件大小 [2] ＝ 取字节集数据 (临时字节集 [2], #长整数型, )<br />     加入成员 (存放文件尺寸数组, 文件大小 [1] ＋ 文件大小 [2] × 4294967296)<br />     加入成员 (存放文件时间数组, 系统_时间变时间 (文件信息.ftLastWriteTime))<br />     处理事件 ()<br /> .循环判断尾 (InternetFindNextFileA (hFind, 文件信息) ≠ 0)<br /> InternetCloseHandle (hFind)<br /> 返回 (取数组成员数 (存放文件名的数组))

joity

颩厾 发表于 2016-12-7 14:04
你也可以去下v5.51版本的模块，BUG应该已经修复了

好的。我试试，谢谢提议。我用API基本上弄好了。排完板把源码共享给大家参考

颩厾

joity 发表于 2016-12-2 16:40
想向楼主请教一下，我研究了半年都没搞定。
只要下载功能就行了：
1.带进度条；

将文件取大小方法中：

返回 (大小 [1] ＋ 大小 [2] × 65536)

改成

返回 (大小 [1] ＋ 大小 [2] × 4294967296)

就好了啊

颩厾

joity 发表于 2016-12-2 16:40
想向楼主请教一下，我研究了半年都没搞定。
只要下载功能就行了：
1.带进度条；

文件取大小方法改成 这样就行了

  

子程序名	返回值类型	公开	备 注
文件取大小	长整数型		取出FTP上指定文件的大小；
参数名	类 型	参考	可空	数组	备 注
FTP文件路径	文本型

变量名	类 型	静态	数组	备 注
句柄	整数型
大小	长整数型		2

如果真 (连接句柄 ＝ 0)
返回 (0)
句柄 ＝ FtpOpenFileA (连接句柄, FTP文件路径, 2147483648, 2, 0)
如果真 (句柄 ＝ 0)
返回 (0)
大小 [1] ＝ FtpGetFileSize (句柄, 大小 [2])
InternetCloseHandle (句柄)
返回 (大小 [1] ＋ 大小 [2] × 4294967296)

.版本 2<br /> <br /> .子程序 文件取大小, 长整数型, 公开, 取出FTP上指定文件的大小；<br /> .参数 FTP文件路径, 文本型<br /> .局部变量 句柄, 整数型<br /> .局部变量 大小, 长整数型, , "2"<br /> <br /> .如果真 (连接句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> 句柄 ＝ FtpOpenFileA (连接句柄, FTP文件路径, 2147483648, 2, 0)<br /> .如果真 (句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> 大小 [1] ＝ FtpGetFileSize (句柄, 大小 [2])<br /> InternetCloseHandle (句柄)<br /> 返回 (大小 [1] ＋ 大小 [2] × 4294967296)

颩厾

joity 发表于 2016-12-2 16:40
想向楼主请教一下，我研究了半年都没搞定。
只要下载功能就行了：
1.带进度条；

文件取大小方法改成 这样就行了

  

子程序名	返回值类型	公开	备 注
文件取大小	长整数型		取出FTP上指定文件的大小；
参数名	类 型	参考	可空	数组	备 注
FTP文件路径	文本型

变量名	类 型	静态	数组	备 注
句柄	整数型
大小	长整数型		2

如果真 (连接句柄 ＝ 0)
返回 (0)
句柄 ＝ FtpOpenFileA (连接句柄, FTP文件路径, 2147483648, 2, 0)
如果真 (句柄 ＝ 0)
返回 (0)
大小 [1] ＝ FtpGetFileSize (句柄, 大小 [2])
InternetCloseHandle (句柄)
返回 (大小 [1] ＋ 大小 [2] × 4294967296)

.版本 2<br /> <br /> .子程序 文件取大小, 长整数型, 公开, 取出FTP上指定文件的大小；<br /> .参数 FTP文件路径, 文本型<br /> .局部变量 句柄, 整数型<br /> .局部变量 大小, 长整数型, , "2"<br /> <br /> .如果真 (连接句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> 句柄 ＝ FtpOpenFileA (连接句柄, FTP文件路径, 2147483648, 2, 0)<br /> .如果真 (句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> 大小 [1] ＝ FtpGetFileSize (句柄, 大小 [2])<br /> InternetCloseHandle (句柄)<br /> 返回 (大小 [1] ＋ 大小 [2] × 4294967296)

颩厾

joity 发表于 2016-12-2 16:40
想向楼主请教一下，我研究了半年都没搞定。
只要下载功能就行了：
1.带进度条；

你也可以去下v5.51版本的模块，BUG应该已经修复了

joity

想向楼主请教一下，我研究了半年都没搞定。
只要下载功能就行了：
1.带进度条；
2.带下载速度；
3.能够正常显示和下载大于4G的文件。

cc80j4

爱神的箭卡拉斯科了大家卢萨卡建档立卡静安寺

颩厾

joity 发表于 2016-11-21 19:23
超级列表框显示解决了。FTP.文件取大小   又不行了。

我只改了“目录列表”这个方法。“文件取大小”这个方法你要自己改下，一样的道理

joity

超级列表框显示解决了。FTP.文件取大小   又不行了。