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

andylaudj · 发表于 2016-11-18 17:45:36

我来看看，准备学习中

acx525 · 发表于 2016-11-17 23:14:21

长整数``````

没有翅膀de鱼 · 发表于 2016-11-17 14:07:04

学习了，谢谢分享！

joity · 发表于 2016-11-16 19:51:39

这问题我也研究了很久没搞定。进来这里学习学习

颩厾 · 发表于 2016-11-15 11:33:37

本帖最后由颩厾于 2016-11-15 11:43 编辑

问题已解决。

原因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 />
返回 (取数组成员数 (存放文件名的数组))