[类_FTP] 进度下载中回调参数进度有BUG

钥匙key

  

子程序名	返回值类型	公开	备 注
进度下载	逻辑型
参数名	类 型	参考	可空	数组	备 注
网络文件	文本型
本地文件	文本型
下载回调	子程序指针				3个参数；1＝已下载，长整数型指针。2=速度，整数型。3＝百分比，整数型。

变量名	类 型	静态	数组	备 注
hOpen
hOpenUrl
bool	逻辑型
sReadBuffer	字节型		0
lNumberOfBytesRead
lCount	长整数型
hHttpQueryInfo
sBuffer	文本型
FileSize
handle
StartTime
TotalReadSize
TimeConsuming	整数型
lSpeed	整数型
进度				单位：百分比。

FileSize ＝ 文件取大小 (网络文件)
如果真 (FileSize ＝ 0)
返回 (假)
hOpenUrl ＝ FtpOpenFileA (连接句柄, 网络文件, -2147483648, 2, 0)
如果真 (hOpenUrl ＝ 0)
返回 (假)
handle ＝ 打开文件 (本地文件, 6, 1)
StartTime ＝ GetTickCount ()
循环判断首 ()
重定义数组 (sReadBuffer, 假, 2048)
bool ＝ InternetReadFile_Byte (hOpenUrl, sReadBuffer, 2048, lNumberOfBytesRead)
如果 (lNumberOfBytesRead ＞ 0 且 bool)
重定义数组 (sReadBuffer, 真, lNumberOfBytesRead)
' sReadBuffer ＝ 取空白字节集 (lNumberOfBytesRead)
lCount ＝ lCount ＋ lNumberOfBytesRead  ' 已下载
写出数据 (handle, sReadBuffer)
TotalReadSize ＝ TotalReadSize ＋ lNumberOfBytesRead
TimeConsuming ＝ GetTickCount () － StartTime
如果真 (TimeConsuming ＞ 0)
lSpeed ＝ TotalReadSize ÷ TimeConsuming  ' 速度
进度 ＝ 取整 (lCount ÷ FileSize × 100)  ' 百分比
如果真 (是否为空 (下载回调) ＝ 假 或 到整数 (下载回调) ≠ 0)
程序_Call (到整数 (下载回调), 取指针地址_长整数型 (lCount), lSpeed, 进度, , )
处理事件 ()
跳出循环 ()
处理事件 ()
循环判断尾 (lNumberOfBytesRead ≠ 0)
关闭文件 (handle)
InternetCloseHandle (hOpen)
InternetCloseHandle (hOpenUrl)
返回 (真)

.版本 2<br /> <br /> .子程序 进度下载, 逻辑型, 公开<br /> .参数 网络文件, 文本型<br /> .参数 本地文件, 文本型<br /> .参数 下载回调, 子程序指针, 可空, 3个参数；1＝已下载，长整数型指针。2=速度，整数型。3＝百分比，整数型。<br /> .局部变量 hOpen<br /> .局部变量 hOpenUrl<br /> .局部变量 bool, 逻辑型<br /> .局部变量 sReadBuffer, 字节型, , "0"<br /> .局部变量 lNumberOfBytesRead<br /> .局部变量 lCount, 长整数型<br /> .局部变量 hHttpQueryInfo<br /> .局部变量 sBuffer, 文本型<br /> .局部变量 FileSize<br /> .局部变量 handle<br /> .局部变量 StartTime<br /> .局部变量 TotalReadSize<br /> .局部变量 TimeConsuming, 整数型<br /> .局部变量 lSpeed, 整数型<br /> .局部变量 进度, , , , 单位：百分比。<br /> <br /> FileSize ＝ 文件取大小 (网络文件)<br /> .如果真 (FileSize ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> hOpenUrl ＝ FtpOpenFileA (连接句柄, 网络文件, -2147483648, 2, 0)<br /> .如果真 (hOpenUrl ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> handle ＝ 打开文件 (本地文件, 6, 1)<br /> StartTime ＝ GetTickCount ()<br /> .循环判断首 ()<br />     重定义数组 (sReadBuffer, 假, 2048)<br />     bool ＝ InternetReadFile_Byte (hOpenUrl, sReadBuffer, 2048, lNumberOfBytesRead)<br />     .如果 (lNumberOfBytesRead ＞ 0 且 bool)<br />         重定义数组 (sReadBuffer, 真, lNumberOfBytesRead)<br />         ' sReadBuffer ＝ 取空白字节集 (lNumberOfBytesRead)<br />         lCount ＝ lCount ＋ lNumberOfBytesRead  ' 已下载<br />         写出数据 (handle, sReadBuffer)<br />         TotalReadSize ＝ TotalReadSize ＋ lNumberOfBytesRead<br />         TimeConsuming ＝ GetTickCount () － StartTime<br />         .如果真 (TimeConsuming ＞ 0)<br />             lSpeed ＝ TotalReadSize ÷ TimeConsuming  ' 速度<br />         .如果真结束<br />         进度 ＝ 取整 (lCount ÷ FileSize × 100)  ' 百分比<br />         .如果真 (是否为空 (下载回调) ＝ 假 或 到整数 (下载回调) ≠ 0)<br />             程序_Call (到整数 (下载回调), 取指针地址_长整数型 (lCount), lSpeed, 进度, , )<br />         .如果真结束<br />         处理事件 ()<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .循环判断尾 (lNumberOfBytesRead ≠ 0)<br /> 关闭文件 (handle)<br /> InternetCloseHandle (hOpen)<br /> InternetCloseHandle (hOpenUrl)<br /> 返回 (真)

文件取大小 (网络文件) 返回参数为长整数.
接收参数[FileSize]为整数.数据精度丢失.
导致后续计算进度存在可能为负的情况

小书臣

1111111111111111111111111

yuzhong

11111111111111111111

110006600

楼主，修复了分享一下，谢谢！

灵灵熊

已下载回调好像也有BUG，下载字节不对

转换好了

久付云

致敬大佬！小白坐等修复！

coconut

致敬大佬！小白坐等修复！