| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
VB编程实现软件在线升级
作者：佚名    文章来源：网络    点击数：    更新时间：2006-11-24
　


　　③编写bkDLControl各个事件的代码，以完成具体功能：

Private Sub DL_DLBeginDownload()
　LogItem "开始下载从" & DL.FileURL
End Sub

Private Sub DL_DLCanceled()
　LogItem "取消下载"
End Sub

　　上面两段代码是开始和取消下载时的事件，向lstOut输入状态。

Private Sub DL_DLComplete(Bytes As Long) ’下载完成的事件
　cmdCancel.Enabled = False
　If Bytes > 0& Then ’如果下载的不是零字节，则显示相关信息
　　LogItem "完成" & SizeString(Bytes) & "下载并保存到" & DL.SaveFileName
　　’下面添加实现文件更新的代码
　　……
　Else
　　LogItem "下载失败"
　End If
End Sub

　　上面的代码调用了一个自定义函数SizeString，代码同样在第四步中说明。这段bkDLControl完成下载时激发的事件是我们实现在线升级的关键，下载完成后就可以调用下载的内容完成更新，具体的更新办法有很多种，大家可以充分发挥了。

Private Sub DL_DLConnected(ConnAddr As String)
　LogItem "连接到 " & ConnAddr ’当连接成功时返回IP地址
End Sub

Private Sub DL_DLError(E As bkDLError, Error As String)
　Dim strErrType As String ’下载错误时的事件
　Select Case E
　　Case bkDLEUnavailable
　　　strErrType = "不可下载文件"
　　Case bkDLERedirect
　　　strErrType = "重定向"
　　Case bkDLEZeroLength
　　　strErrType = "没有字节返回"
　　Case bkDLESaveError
　　　strErrType = "文件保存错误"
　　Case bkDLEUnknown
　　　strErrType = "不明错误"
　End Select
　LogItem "错误 - " & strErrType & ": " & Error
End Sub

　　当bkDLControl控件返回零字节时激发上面的出错事件，并在lstOut中显示相关错误信息。

Private Sub DL_DLFileSize(Bytes As Long)
　’当连接后返回文件的大小，单位为字节，我们通过自定义的函数对单位进行必要转换
　LogItem "文件大小为" & SizeString(Bytes) & " (" & CStr(Bytes) & " bytes)"
End Sub

Private Sub DL_DLMIMEType(MIMEType As String)
　LogItem "MIME类型是 " & MIMEType
End Sub

Private Sub DL_DLProgress(Percent As Single, BytesRead As Long, TotalBytes As Long)
　’下载过程中的事件，返回下载百分比和已下载字节数。我们通过下面一行代码在lstOut中显示
　lblProg.Caption = Format(Percent, "0%") & " of " & SizeString(TotalBytes)
End Sub

Private Sub DL_DLRedirect(ConnAddr As String)
　’返回地址如果重定向　
　LogItem Index, "重定向到" & ConnAddr
End Sub

　　上面是bkDLControl的相关代码，是这个在线升级程序中最关键的地方。在其提供的事件中，我们可以有很多的发挥空间，去实现很多的功能。

　　④编写SizeString函数和LogItem过程，完成最后的代码编写。

Private Sub LogItem(strItem As String)
　With lstOut
　　.AddItem "> " & strItem
　　If .NewIndex > .TopIndex + 17 Then
　　　.TopIndex = .NewIndex - 16
　　End If
　End With
End Sub

　　上面的过程用于向lstOut添加下载进度信息，其中使用了一个变量，用于装载相应事件描述。

Private Function SizeString(lBytes As Long) As String
　If lBytes < &H400& Then
　　SizeString = CStr(lBytes) & "b"
　ElseIf lBytes < &H100000 Then
　　SizeString = CStr(lBytes \ 1024) & "k"
　ElseIf lBytes < &H20000000 Then
　　SizeString = Replace$(Format$((lBytes \ 1024) / 1024, "0.0"), ".0", vbNullString) & "M"
　Else
　　SizeString = Replace$(Format$((lBytes \ (1024 ^ 2)) / 1024, "#,##0.0"), ".0", vbNullString) & "G"
　End If
End Function

　　上面的函数把传送来的lBytes根据其大小，转换成合适的单位。

　　到这里，这个演示程序就完成了，按下F5，在下拉框中选择地址或者输入其他下载地址后按开始就可以开始下载了。我们可以看到连接下载信息，实时的已下载进度情况，并用进度条的方式表现（如图3）。


　　有了bkDLControl控件，我们可以很方便地下载更新程序，并在其下载完成激发的事件中写入适当代码，就可以轻松完成程序在线升级，这着实为你的软件添加了方便和亮点！

上一页  [1] [2] 


相关文章