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

andylaudj

我来看看，准备学习中

acx525

长整数``````

没有翅膀de鱼

学习了，谢谢分享！

joity

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

颩厾

问题已解决。

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

福仔

颩厾 发表于 2016-11-14 17:21
长整数型的哇

DWORD FtpGetFileSize(
  HINTERNET hFile,
  LPDWORD lpdwFileSizeHigh
);

试试把这个API的第二个参数改成长整数型的,我看了模块里是整数型,试试长整型能不能显示

颩厾

福仔 发表于 2016-11-14 17:18
超出了整数的容纳范围....

长整数型的哇

福仔

超出了整数的容纳范围....

颩厾

刘海斌 发表于 2016-11-14 17:12
返回的是整数型吧，2GB是2147483648，比整数型的范围大1了......

实际上定义的时候是长整数型的。

刘海斌

返回的是整数型吧，2GB是2147483648，比整数型的范围大1了......