类_FTP 希望能增加进度回调

450556810

类_FTP 希望能增加进度回调，下载和上传都能知道进度

450556810

我稍后会上传进度代码，希望官方能采纳

  

子程序名	返回值类型	公开	备 注
进度下载	逻辑型
参数名	类 型	参考	可空	数组	备 注
网络文件	文本型
本地文件	文本型
下载回调	子程序指针				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 ＝ InternetReadFileA (hOpenUrl, sReadBuffer, 2048, lNumberOfBytesRead)
如果 (lNumberOfBytesRead ＞ 0 且 bool)
重定义数组 (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)
返回 (真)

子程序名	返回值类型	公开	备 注
进度上传	逻辑型
参数名	类 型	参考	可空	数组	备 注
本地文件	文本型
远程文件	文本型
上传回调	子程序指针				3个参数：1=已上传[长整数指针]；2=上传速度[整数型]；3=百分比[整数型]

变量名	类 型	静态	数组	备 注
hFile	整数型
bool	逻辑型
Size	长整数型
文件号
lBlock	整数型
Data	字节型		1024
Written	整数型
lCount	长整数型
StartTime	整数型
TotalReadSize	整数型
TimeConsuming	整数型
lSpeed	整数型
进度	整数型

hFile ＝ FtpOpenFileA (连接句柄, 远程文件, 1073741824, 2, 0)
如果真 (hFile ＝ 0)
返回 (假)
文件号 ＝ 打开文件 (本地文件, #读入, #无限制 )
Size ＝ 取字节集数据 (到字节集 (取文件长度 (文件号)), #长整数型, )
StartTime ＝ GetTickCount ()
变量循环首 (1, Size ＼ 1024, 1, lBlock)
读入数据 (文件号, Data)
bool ＝ InternetWriteFile (hFile, Data, 1024, Written)
如果 (bool 且 Written ＞ 0)
重定义数组 (Data, 假, Written)
lCount ＝ lCount ＋ Written  ' 已下载
TotalReadSize ＝ TotalReadSize ＋ Written
TimeConsuming ＝ GetTickCount () － StartTime
如果真 (TimeConsuming ＞ 0)
lSpeed ＝ TotalReadSize ÷ TimeConsuming  ' 速度
进度 ＝ 取整 (lCount ÷ Size × 100)  ' 百分比
如果真 (到整数 (上传回调) ≠ 0)
程序_Call (到整数 (上传回调), 内存_指针_取长整数指针 (lCount), lSpeed, 进度)

跳出循环 ()
处理事件 ()
变量循环尾 ()
关闭文件 (文件号)
InternetCloseHandle (hFile)
返回 (真)

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

变量名	类 型	静态	数组	备 注
文件号	整数型
文件信息	查找的文件信息
文件大小	长整数型

文件号 ＝ FtpFindFirstFileA (连接句柄, FTP文件路径, 文件信息, 1, 0)
文件大小 ＝ 文件信息.nFileSizeLow ＋ 文件信息.nFileSizeHigh
InternetCloseHandle (文件号)
返回 (文件大小)

.版本 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 ＝ InternetReadFileA (hOpenUrl, sReadBuffer, 2048, lNumberOfBytesRead)<br />     .如果 (lNumberOfBytesRead ＞ 0 且 bool)<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 /> 返回 (真)<br /> <br /> .子程序 进度上传, 逻辑型, 公开<br /> .参数 本地文件, 文本型<br /> .参数 远程文件, 文本型<br /> .参数 上传回调, 子程序指针, 可空, 3个参数：1=已上传[长整数指针]；2=上传速度[整数型]；3=百分比[整数型]<br /> .局部变量 hFile, 整数型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 Size, 长整数型<br /> .局部变量 文件号<br /> .局部变量 lBlock, 整数型<br /> .局部变量 Data, 字节型, , "1024"<br /> .局部变量 Written, 整数型<br /> .局部变量 lCount, 长整数型<br /> .局部变量 StartTime, 整数型<br /> .局部变量 TotalReadSize, 整数型<br /> .局部变量 TimeConsuming, 整数型<br /> .局部变量 lSpeed, 整数型<br /> .局部变量 进度, 整数型<br /> <br /> hFile ＝ FtpOpenFileA (连接句柄, 远程文件, 1073741824, 2, 0)<br /> .如果真 (hFile ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (本地文件, #读入, #无限制)<br /> Size ＝ 取字节集数据 (到字节集 (取文件长度 (文件号)), #长整数型, )<br /> StartTime ＝ GetTickCount ()<br /> .变量循环首 (1, Size ＼ 1024, 1, lBlock)<br />     读入数据 (文件号, Data)<br />     bool ＝ InternetWriteFile (hFile, Data, 1024, Written)<br />     .如果 (bool 且 Written ＞ 0)<br />         重定义数组 (Data, 假, Written)<br />         lCount ＝ lCount ＋ Written  ' 已下载<br />         TotalReadSize ＝ TotalReadSize ＋ Written<br />         TimeConsuming ＝ GetTickCount () － StartTime<br />         .如果真 (TimeConsuming ＞ 0)<br />             lSpeed ＝ TotalReadSize ÷ TimeConsuming  ' 速度<br />         .如果真结束<br />         进度 ＝ 取整 (lCount ÷ Size × 100)  ' 百分比<br />         .如果真 (到整数 (上传回调) ≠ 0)<br />             程序_Call (到整数 (上传回调), 内存_指针_取长整数指针 (lCount), lSpeed, 进度)<br />         .如果真结束<br /> <br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .变量循环尾 ()<br /> 关闭文件 (文件号)<br /> InternetCloseHandle (hFile)<br /> 返回 (真)<br /> .版本 2<br /> <br /> .子程序 取文件大小, 长整数型, 公开, 取出FTP空间中的指定文件大小，失败返回0<br /> .参数 FTP文件路径, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 文件信息, 查找的文件信息<br /> .局部变量 文件大小, 长整数型<br /> <br /> 文件号 ＝ FtpFindFirstFileA (连接句柄, FTP文件路径, 文件信息, 1, 0)<br /> 文件大小 ＝ 文件信息.nFileSizeLow ＋ 文件信息.nFileSizeHigh<br /> InternetCloseHandle (文件号)<br /> 返回 (文件大小)

  

子程序名	返回值类型	公开	备 注
内存_指针_指针到长整数	长整数型		汇编版，将内存指针地址转换为长整数型。
参数名	类 型	参考	可空	数组	备 注
in_内存指针	整数型

置入代码 ({ 139, 69, 8, 133, 192, 116, 5, 139, 80, 4, 139, 0, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
内存_指针_取长整数指针	整数型		取长整数内存子程序地址。相当于 取变量数据地址()
参数名	类 型	参考	可空	数组	备 注
in_长整数变量	长整数型

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 内存_指针_指针到长整数, 长整数型, 公开, 汇编版，将内存指针地址转换为长整数型。<br /> .参数 in_内存指针, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 133, 192, 116, 5, 139, 80, 4, 139, 0, 201, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 内存_指针_取长整数指针, 整数型, 公开, 取长整数内存子程序地址。相当于 取变量数据地址()<br /> .参数 in_长整数变量, 长整数型, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> 返回 (0)

  

DLL命令名	返回值类型	公开	备 注
StrFormatByteSizeA	整数型		数值到格式化字节_
DLL库文件名:
shlwapi.dll
在DLL库中对应命令名:
StrFormatByteSizeA
参数名	类 型	传址	数组	备 注
数值	整数型			dw
文本缓冲区	文本型			szBuf
文本缓冲区大小	整数型			uiBufSize

.版本 2<br /> <br /> .DLL命令 StrFormatByteSizeA, 整数型, "shlwapi.dll", "StrFormatByteSizeA", , 数值到格式化字节_<br />     .参数 数值, 整数型, , dw<br />     .参数 文本缓冲区, 文本型, , szBuf<br />     .参数 文本缓冲区大小, 整数型, 传址, uiBufSize

  

DLL命令名	返回值类型	公开	备 注
InternetWriteFile	逻辑型		Internet写文件
DLL库文件名:
wininet.dll
在DLL库中对应命令名:
InternetWriteFile
参数名	类 型	传址	数组	备 注
hFile	整数型			网络文件号
DataBuff	字节型			数据数组
最大字节数	整数型			一次能写的最大字节数
写入字节数	整数型			每次写入的字节数量

DLL命令名	返回值类型	公开	备 注
InternetReadFileA	逻辑型		Internet读文件FTP
DLL库文件名:
wininet.dll
在DLL库中对应命令名:
InternetReadFile
参数名	类 型	传址	数组	备 注
HTTP请求句柄	整数型
sBuffer	字节型
lNumBytesToRead	整数型
lNumberOfBytesRead	整数型

.版本 2<br /> <br /> .DLL命令 InternetWriteFile, 逻辑型, "wininet.dll", "InternetWriteFile", 公开, Internet写文件<br />     .参数 hFile, 整数型, , 网络文件号<br />     .参数 DataBuff, 字节型, 数组, 数据数组<br />     .参数 最大字节数, 整数型, , 一次能写的最大字节数<br />     .参数 写入字节数, 整数型, 传址, 每次写入的字节数量<br /> .版本 2<br /> <br /> .DLL命令 InternetReadFileA, 逻辑型, "wininet.dll", "InternetReadFile", 公开, Internet读文件FTP<br />     .参数 HTTP请求句柄, 整数型<br />     .参数 sBuffer, 字节型, 数组<br />     .参数 lNumBytesToRead, 整数型<br />     .参数 lNumberOfBytesRead, 整数型, 传址

  

子程序名	返回值类型	公开	备 注
文件_格式化字节	文本型		返回指定格式，比如:1024 返回 1.0KB 。小于2.97G以下用些命令。
参数名	类 型	参考	可空	数组	备 注
文件大小	整数型

变量名	类 型	静态	数组	备 注
文本_临时缓存区	文本型

文本_临时缓存区 ＝ 取空白文本 (100)
StrFormatByteSizeA (文件大小, 文本_临时缓存区, 100)
判断 (文本_临时缓存区 ＝ “0 字节”)
文本_临时缓存区 ＝ “0”
判断 (寻找文本 (文本_临时缓存区, “字节”, , 假) ≠ 0)
文本_临时缓存区 ＝ 子文本替换 (文本_临时缓存区, “字节”, “B”, , , 真)


返回 (文本_临时缓存区)

.版本 2<br /> <br /> .子程序 文件_格式化字节, 文本型, 公开, 返回指定格式，比如:1024 返回 1.0KB 。小于2.97G以下用些命令。<br /> .参数 文件大小, 整数型<br /> .局部变量 文本_临时缓存区, 文本型<br /> <br /> 文本_临时缓存区 ＝ 取空白文本 (100)<br /> StrFormatByteSizeA (文件大小, 文本_临时缓存区, 100)<br /> .判断开始 (文本_临时缓存区 ＝ “0 字节”)<br />     文本_临时缓存区 ＝ “0”<br /> .判断 (寻找文本 (文本_临时缓存区, “字节”, , 假) ≠ 0)<br />     文本_临时缓存区 ＝ 子文本替换 (文本_临时缓存区, “字节”, “B”, , , 真)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (文本_临时缓存区)

附近： FTP进度下载 .zip (1.71 MB, 下载次数: 64)

2018-8-24 12:55 上传

点击文件名下载附件

huowang8888

测试了 有几个问题希望大神可以改进下  测试用的一个5G的 GHO 文件  下载没完成呢 进度条就100%了  下载速度显示的是负数  还有一个问题就是下载的时候一顿一顿的  还希望可以加一个暂停继续的按钮

LDichao

这个得赞一个

cjf19970621

了 有几个问题希望大神可以改进下  测试用的一个5G的 GHO 文件  下载没完成呢 进度条就100%了  下载速度显示的是负数  还有一个问题就是下载的时候一顿一顿的  还希望可以加一