Urldownloadtofile带进度条下载文件

易语言 2020-08-08 17:34:18

Urldownloadtofile带进度条下载文件

用ET1.15做下载例子 源码已经修改为模块的形式_可以直接调用。

.如果真 (下载_进度条_允许 = 真)
局_下载_参数3.最小位置 = 0
局_下载_参数3.最大位置 = 1000
局_下载_参数3.位置 = 0
.如果真结束
funcPtr = _取指针IBindStatusCallback (下载)
this = _取指针整数 (funcPtr)
下载_返回 = URLDownloadToFileA (0, 局_下载_参数1, 局_下载_参数2, 0, this)