易语言http进度模块

2390517751

  

子程序名	返回值类型	公开	备 注
HTTP带进度条下载	整数型		进度下载HTTP指定文件
参数名	类 型	参考	可空	数组	备 注
网址	文本型				要下载的文件远程路径
文件名	文本型				要保存的位置
进度显示	子程序指针				回调函数，参数一为目前下载字节数；参数二为总字节数；参数三为现行下载时间
起始位置	整数型

变量名	类 型	静态	数组	备 注
dwFlags	整数型
strAgent	文本型
hOpen	整数型
dwSize	长整数型
szHead	文本型
szTemp	字节集
hConnect	整数型
dwByteToRead	整数型
dwSizeOfRq	整数型
dwBytes	长整数型
start	整数型
end	整数型
time	整数型

InternetGetConnectedState (dwFlags, 0)
strAgent ＝ “Agent” ＋ 到文本 (取启动时间 ())
如果 (位与 (dwFlags, 4) ＝ 0)
hOpen ＝ InternetOpenA (strAgent, 4, 0, 0, 0)
hOpen ＝ InternetOpenA (strAgent, 0, 0, 0, 0)
如果真 (hOpen ＝ 0)
信息框 (“Internet连接错误!”, 0, )
返回 (-1)
szHead ＝ “Accept: */*” ＋ #换行符 ＋ “Accept-Language: zh-cn” ＋ #换行符 ＋ “Accept-Encoding: gzip, deflate” ＋ #换行符 ＋ “User-Agent: Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .NET CLR 1.1.4322)”
如果真 (是否为空 (起始位置) ＝ 假)
szHead ＝ szHead ＋ #换行符 ＋ “Range:bytes=” ＋ 到文本 (起始位置) ＋ “-”
szTemp ＝ 取空白字节集 (10240)
hConnect ＝ InternetOpenUrlA (hOpen, 网址, szHead, 取文本长度 (szHead), 2214592768, 0)
如果真 (hConnect ＝ 0)
信息框 (“不能打开该URL!”, 0, )
返回 (-1)
dwByteToRead ＝ 0
dwSizeOfRq ＝ 4
dwBytes ＝ 0
如果 (是否为空 (起始位置))
文件号 ＝ 打开文件 (文件名, #重写, )
如果 (文件是否存在 (文件名))
文件号 ＝ 打开文件 (文件名, #改写, )
文件号 ＝ 打开文件 (文件名, #重写, )
移到文件尾 (文件号)
dwBytes ＝ 起始位置
如果真 (文件号 ＝ 0)
信息框 (“不能打开本地的文件!”, 0, )
返回 (-1)
如果真 (HttpQueryInfoA (hConnect, 536870917, dwByteToRead, dwSizeOfRq, 0) ＝ 0)
dwByteToRead ＝ 0
start ＝ 取启动时间 ()
end ＝ 0
time ＝ 10
循环判断首 ()
如果真 (InternetReadFile (hConnect, szTemp, 取字节集长度 (szTemp), dwSize) ＝ 0)
信息框 (“读文件出错!”, 0, )
关闭文件 (文件号)
返回 (-1)
如果 (dwSize ＝ 0)
跳出循环 ()
szTemp ＝ 取字节集左边 (szTemp, dwSize)
写出字节集 (文件号, szTemp)
dwBytes ＝ dwBytes ＋ dwSize
end ＝ 取启动时间 ()
time ＝ end － start
如果真 (time ＝ 0)
time ＝ 10
CallWindowProcA (进度显示, dwByteToRead, dwBytes, time, dwBytes － 起始位置)
循环判断尾 (真)
关闭文件 (文件号)
InternetCloseHandle (hOpen)
返回 (0)

.版本 2<br /> <br /> .子程序 HTTP带进度条下载, 整数型, 公开, 进度下载HTTP指定文件<br /> .参数 网址, 文本型, , 要下载的文件远程路径<br /> .参数 文件名, 文本型, , 要保存的位置<br /> .参数 进度显示, 子程序指针, , 回调函数，参数一为目前下载字节数；参数二为总字节数；参数三为现行下载时间<br /> .参数 起始位置, 整数型, 可空<br /> .局部变量 dwFlags, 整数型<br /> .局部变量 strAgent, 文本型<br /> .局部变量 hOpen, 整数型<br /> .局部变量 dwSize, 长整数型<br /> .局部变量 szHead, 文本型<br /> .局部变量 szTemp, 字节集<br /> .局部变量 hConnect, 整数型<br /> .局部变量 dwByteToRead, 整数型<br /> .局部变量 dwSizeOfRq, 整数型<br /> .局部变量 dwBytes, 长整数型<br /> .局部变量 start, 整数型<br /> .局部变量 end, 整数型<br /> .局部变量 time, 整数型<br /> <br /> InternetGetConnectedState (dwFlags, 0)<br /> strAgent ＝ “Agent” ＋ 到文本 (取启动时间 ())<br /> .如果 (位与 (dwFlags, 4) ＝ 0)<br />     hOpen ＝ InternetOpenA (strAgent, 4, 0, 0, 0)<br /> .否则<br />     hOpen ＝ InternetOpenA (strAgent, 0, 0, 0, 0)<br /> .如果结束<br /> .如果真 (hOpen ＝ 0)<br />     信息框 (“Internet连接错误!”, 0, )<br />     返回 (-1)<br /> .如果真结束<br /> szHead ＝ “Accept: */*” ＋ #换行符 ＋ “Accept-Language: zh-cn” ＋ #换行符 ＋ “Accept-Encoding: gzip, deflate” ＋ #换行符 ＋ “User-Agent: Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .NET CLR 1.1.4322)”<br /> .如果真 (是否为空 (起始位置) ＝ 假)<br />     szHead ＝ szHead ＋ #换行符 ＋ “Range:bytes=” ＋ 到文本 (起始位置) ＋ “-”<br /> .如果真结束<br /> szTemp ＝ 取空白字节集 (10240)<br /> hConnect ＝ InternetOpenUrlA (hOpen, 网址, szHead, 取文本长度 (szHead), 2214592768, 0)<br /> .如果真 (hConnect ＝ 0)<br />     信息框 (“不能打开该URL!”, 0, )<br />     返回 (-1)<br /> .如果真结束<br /> dwByteToRead ＝ 0<br /> dwSizeOfRq ＝ 4<br /> dwBytes ＝ 0<br /> .如果 (是否为空 (起始位置))<br />     文件号 ＝ 打开文件 (文件名, #重写, )<br /> .否则<br />     .如果 (文件是否存在 (文件名))<br />         文件号 ＝ 打开文件 (文件名, #改写, )<br />     .否则<br />         文件号 ＝ 打开文件 (文件名, #重写, )<br />     .如果结束<br />     移到文件尾 (文件号)<br />     dwBytes ＝ 起始位置<br /> .如果结束<br /> .如果真 (文件号 ＝ 0)<br />     信息框 (“不能打开本地的文件!”, 0, )<br />     返回 (-1)<br /> .如果真结束<br /> .如果真 (HttpQueryInfoA (hConnect, 536870917, dwByteToRead, dwSizeOfRq, 0) ＝ 0)<br />     dwByteToRead ＝ 0<br /> .如果真结束<br /> start ＝ 取启动时间 ()<br /> end ＝ 0<br /> time ＝ 10<br /> .循环判断首 ()<br />     .如果真 (InternetReadFile (hConnect, szTemp, 取字节集长度 (szTemp), dwSize) ＝ 0)<br />         信息框 (“读文件出错!”, 0, )<br />         关闭文件 (文件号)<br />         返回 (-1)<br />     .如果真结束<br />     .如果 (dwSize ＝ 0)<br />         跳出循环 ()<br />     .否则<br />         szTemp ＝ 取字节集左边 (szTemp, dwSize)<br />         写出字节集 (文件号, szTemp)<br />     .如果结束<br />     dwBytes ＝ dwBytes ＋ dwSize<br />     end ＝ 取启动时间 ()<br />     time ＝ end － start<br />     .如果真 (time ＝ 0)<br />         time ＝ 10<br />     .如果真结束<br />     CallWindowProcA (进度显示, dwByteToRead, dwBytes, time, dwBytes － 起始位置)<br /> .循环判断尾 (真)<br /> 关闭文件 (文件号)<br /> InternetCloseHandle (hOpen)<br /> 返回 (0)

huangabin123

666666666666666666666666666

lysxjc

InternetGetConnectedState (dwFlags, 0)找不到这个东西

常笑

为什么这种东西这么多

う网淅乄

看起来不错

宇智波·泉奈

非常不错

9876543210

是否支持断点续传啥的