|
|
第二版较上一版有较多不同!!!
使用说明:
①使用 Sub Main 作为启动对象
②在 Sub Main 过程中添加代码
Dim DownloadParamStatus As Boolean
InitDownloadStatus = JXInitDownload
DownloadParamStatus = JXGetDownloadParamStatus
If DownloadParamStatus = False Then
If InitDownloadStatus = False Then
'初始化网络失败执行代码
Else
'初始化网络成功执行代码
End If
Else
If InitDownloadStatus = True Then Call JXDownloadParamProcess
End If
③在程序退出过程函数添加代码
Call JXDestroyDownload
④功能过程/函数
函数:JXStartDownload
功能:开始一个新的下载
参数1:ByVal String Address 下载地址
参数2:ByRef Long Index 下载索引值(不可手工指定)
返回:Boolean 开始下载成功/失败
过程:JXStopDownload
功能:停止一个下载
参数1:ByVal Long Index 下载索引值(由JXStartDownload返回)
过程:JXReleaseDownload
功能:释放一个下载的内存
参数1:ByVal Long Index 下载索引值(由JXStartDownload返回)
函数:JXGetDownloadStatus
功能:获取一个下载的状态
参数1:ByVal Long Index 下载索引值(由JXStartDownload返回)
参数2:ByRef Long Status 返回下载状态
0.正在下载 1.下载失败 2.下载成功
参数2:ByRef Long Current 当前下载数据大小(Status值为0和2时有效)
参数2:ByRef Long Total 总共下载数据大小(Status值为0和2时有效)
返回:Boolean 获取下载状态成功/失败
函数:JXGetDownloadData
功能:获取一个下载的数据(下载成功后才可获取)
参数1:ByVal Long Index 下载索引值(由JXStartDownload返回)
参数2:ByRef Long Length 下载数据大小
参数2:ByRef Byte Data() 下载的数据
返回:Boolean 获取下载数据成功/失败
JXDownload_Module.zip
(5.19 KB, 下载次数: 12157)
|
|
发表于 2012-12-4 00:52:17