[类_FTP] 进度下载中回调参数进度有BUG - 精易论坛

子程序名	返回值类型	公开	备注
进度下载	逻辑型
参数名	类型	参考	可空	数组	备注
网络文件	文本型
本地文件	文本型
下载回调	子程序指针				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 />
返回 (真)