易语言进度下载_例程源码,易语言进度下载模块源码 [db:版本]

易语言进度下载模块源码

系统结构:HTTP下载子程序,FTP下载子程序,进度显示,演示_HTTP进度下载,演示_FTP进度下载,演示_HTTP读在线配置,演示_FTP读在线配置,回调函数,取文件名,读在线配置,取FTP参数,FTP读文本配置,HTTP进度下载,FTP进度下载,文件关闭,InternetGetConnectedState,InternetOpenA,InternetOpenUrlA,HttpQueryInfoA,InternetCloseHandle,InternetReadFile,CallWindowProcA,InternetConnectA,FtpFindFirstFileA,FtpOpenFileA,FtpGetFileA,InternetSetFilePointer,

======窗口程序集_启动窗口
| |
| |------ __启动窗口_创建完毕
| |
| |------ _组合框1_列表项被选择
| |
| |------ _编辑框_地址_内容被改变
| |
| |------ _按钮_下载_被单击
| |
| |------ HTTP下载子程序
| |
| |------ FTP下载子程序
| |
| |------ 进度显示
| |
| |------ _按钮_停止_被单击
======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 演示_HTTP进度下载
| |
| |------ 演示_FTP进度下载
| |
| |------ 演示_HTTP读在线配置
| |
| |------ 演示_FTP读在线配置
| |
| |------ 回调函数
| |
| |------ 取文件名
| |
| |------ 读在线配置
| |
| |------ 取FTP参数
| |
| |------ FTP读文本配置
| |
| |
======进度下载
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ HTTP进度下载
| |
| |------ FTP进度下载
| |
| |------ 文件关闭
| |
| |
======调用的Dll
| |
| |---[dll]------ InternetGetConnectedState
| |
| |---[dll]------ InternetOpenA
| |
| |---[dll]------ InternetOpenUrlA
| |
| |---[dll]------ HttpQueryInfoA
| |
| |---[dll]------ InternetCloseHandle
| |
| |---[dll]------ InternetReadFile
| |
| |---[dll]------ CallWindowProcA
| |
| |---[dll]------ InternetConnectA
| |
| |---[dll]------ FtpFindFirstFileA
| |
| |---[dll]------ FtpOpenFileA
| |
| |---[dll]------ FtpGetFileA
| |
| |---[dll]------ InternetSetFilePointer

调用的DLL命令:

.DLL命令 InternetGetConnectedState, , "Wininet.dll", "InternetGetConnectedState"
.参数 lpdwFlags, 整数型, 传址
.参数 dwReserved, 整数型

.DLL命令 InternetOpenA, 整数型, "Wininet.dll", "InternetOpenA"
.参数 lpszAgent, 文本型
.参数 dwAccessType, 整数型
.参数 lpszProxyName, 整数型
.参数 lpszProxyBypass, 整数型
.参数 dwFlags, 整数型

.DLL命令 InternetOpenUrlA, 整数型, "Wininet.dll", "InternetOpenUrlA"
.参数 hInternet, 整数型
.参数 lpszUrl, 文本型
.参数 lpszHeaders, 文本型
.参数 dwHeadersLength, 整数型
.参数 dwFlags, 整数型
.参数 dwContext, 整数型

.DLL命令 HttpQueryInfoA, 整数型, "Wininet.dll", "HttpQueryInfoA"
.参数 hRequest, 整数型
.参数 dwInfoLevel, 整数型
.参数 lpvBuffer, 整数型, 传址
.参数 lpdwBufferLength, 整数型, 传址
.参数 lpdwIndex, 整数型, 传址

.DLL命令 InternetCloseHandle, , "Wininet.dll", "InternetCloseHandle"
.参数 handle, 整数型

.DLL命令 InternetReadFile, 整数型, "Wininet.dll", "InternetReadFile"
.参数 hFile, 整数型
.参数 lpBuffer, 字节集
.参数 dwNumberOfBytesToRead, 整数型
.参数 lpdwNumberOfBytesRead, 整数型, 传址

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA", , 函数回调
.参数 子程序指针, 子程序指针
.参数 参数1, 整数型
.参数 参数2, 整数型
.参数 参数3, 整数型
.参数 参数4, 整数型

.DLL命令 InternetConnectA, 整数型, "Wininet.dll", , , 连接FTP服务器
.参数 hInternet, 整数型
.参数 lpszServerName, 文本型
.参数 nServerPort, 整数型
.参数 lpszUserName, 文本型
.参数 lpszPassword, 文本型
.参数 dwService, 整数型
.参数 dwFlags, 整数型
.参数 dwContext, 整数型

.DLL命令 FtpFindFirstFileA, 整数型, "wininet.dll", "FtpFindFirstFileA", , FTP寻找第一个文件
.参数 句柄, 整数型
.参数 路径, 文本型
.参数 文件结构, 文件属性
.参数 标记, 整数型
.参数 标记1, 整数型

.DLL命令 FtpOpenFileA, 整数型, "wininet.dll", "FtpOpenFileA", , FTP打开文件
.参数 连接句柄, 整数型
.参数 文件名, 文本型
.参数 模式, 整数型
.参数 传输模式, 整数型
.参数 标记, 整数型

.DLL命令 FtpGetFileA, 逻辑型, "wininet.dll", "FtpGetFileA", , FTP下载文件
.参数 hFtpSession, 整数型
.参数 lpszRemoteFile, 文本型
.参数 lpszNewFile, 文本型
.参数 fFailIfExists, 逻辑型
.参数 dwFlagsAndAttributes, 整数型
.参数 dwFlags, 整数型
.参数 dwContext, 整数型

.DLL命令 InternetSetFilePointer, 整数型, "Wininet.dll", "InternetSetFilePointer", , 设置文件读取位置，一般用于HTTP 1.1 ，对FTP支持不是太好
.参数 连接句柄, 整数型, , hFile
.参数 向后移动, 整数型, , lDistanceToMove
.参数 保留, 整数型, , lpDistanceToMoveHigh
.参数 移动起点, 整数型, , dwMoveMethod
.参数 保留, 整数型, , dwContext