易语言网络读写文件下载

易语言网络读写文件下载例子。

.判断开始 (HttpQueryInfo (通讯句柄, #HTTP_QUERY_CONTENT_LENGTH, 文件信息, 512, 0) ≠ 1)
.如果真 (文件大小 ＝ 0)
调用子程序 (进度回调, , 回调返回, 文件尺寸, 接收尺寸, 读写速度, -1, “获取文件信息失败”)
InternetCloseHandle (通讯句柄)
InternetCloseHandle (网络句柄)
返回 ()
.如果真结束
文件尺寸 ＝ 文件大小
.默认
文件尺寸 ＝ 到数值 (文件信息)
.判断结束
开始时间 ＝ GetTickCount ()