易语言HTTP读文件模块源码 [db:版本]

易语言HTTP读文件模块源码

系统结构:模块_HTTP读文件,InternetOpen,InternetOpenUrl,HttpQueryInfo,InternetReadFileByte,InternetRead,InternetCloseHandle,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 模块_HTTP读文件
| |
| |
======调用的Dll
| |
| |---[dll]------ InternetOpen
| |
| |---[dll]------ InternetOpenUrl
| |
| |---[dll]------ HttpQueryInfo
| |
| |---[dll]------ InternetReadFileByte
| |
| |---[dll]------ InternetRead
| |
| |---[dll]------ InternetCloseHandle

调用的DLL命令:

.DLL命令 InternetOpen, 整数型, "wininet.dll", "InternetOpenA", , 初始化一个应用程序，以使用 WinINet 函数，成功：返回一个有效的句柄，该句柄将由应用程序传递给接下来的WinINet函数
.参数 sAgent, 文本型, , 应用程序名，可以自定义
.参数 lAccessType, 整数型, , 存取类型，INTERNET_OPEN_TYPE_PRECONFIG =0 使用 IE 中的连接设置，2、INTERNET_OPEN_TYPE_DIRECT =1 直接连接到服务器，3、INTERNET_OPEN_TYPE_PROXY =3 通过代理服务器进行连接
.参数 sProxyName, 整数型, , 指定了当lAccessType类型为INTERNET_OPEN_TYPE_PROXY时，代理服务器的名字，一般设置为 nill
.参数 sProxyBypass, 整数型, , 代理服务器地址
.参数 lFlags, 整数型, , dwFlags 标记，一般设置为 0，可以是：1、INTERNET_FLAG_DONT_CACHE 不在缓存中保存取得的内容2、INTERNET_FLAG_OFFLINE 脱机方式

.DLL命令 InternetOpenUrl, 整数型, "wininet.dll", "InternetOpenUrlA"
.参数 hInet, 整数型, , 由 InternetOpen 返回的句柄
.参数 lpszUrl, 文本型, , 文件 Url 地址，以 http：，ftp：打头的 Url 地址；
.参数 lpszHeaders, 整数型, , 发送到服务器的数据头
.参数 dwHeadersLength, 整数型, , 发送到服务器的数据头长度
.参数 dwflags, 整数型, , 标记，可以是1、INTERNET_FLAG_RELOAD 强制重读数2、INTERNET_FLAG_DONT_CACHE 不保存到缓存据3、INTERNET_FLAG_TRANSFER_ASCII 使用文本数据4、INTERNET_FLAG_TRANSFER_BINARY 使用二进制数据
.参数 dwcontext, 整数型, , 上下文标记，如果使用回调功能时这个值将传送给回调函数

.DLL命令 HttpQueryInfo, 整数型, "wininet.dll", "HttpQueryInfoA", , 取网络头信息
.参数 hHttpRequest, 整数型, , 由 InternetOpenUrl 返回的句柄
.参数 dwInfoLevel, 整数型, , 获取类型
.参数 lpvBuffer, 长整数型, 传址, 数据缓冲区
.参数 lpdwBufferLength, 整数型, 传址, 缓冲大小
.参数 lpdwIndex, 整数型, , 读取首地址

.DLL命令 InternetReadFileByte, 整数型, "wininet.dll", "InternetReadFile"
.参数 hfile, 整数型, , 由 InternetOpenUrl 返回的句柄
.参数 lpbuffer, 字节集, , 数据缓冲区
.参数 lNumBytesToRead, 整数型, , 要读取数据大小
.参数 lNumberOfBytesRead, 整数型, 传址, 实际读取大小

.DLL命令 InternetRead, 整数型, "wininet.dll", "InternetReadFile"
.参数 hfile, 整数型, , 由 InternetOpenUrl 返回的句柄
.参数 lpbuffer, 文本型, , 数据缓冲区
.参数 lNumBytesToRead, 整数型, , 要读取数据大小
.参数 lNumberOfBytesRead, 整数型, 传址, 实际读取大小

.DLL命令 InternetCloseHandle, 整数型, "wininet.dll", "InternetCloseHandle"
.参数 Internet句柄, 整数型, , hInet