用户名:  密码:  验证码: 验证码  注册  找回
RSS
无双网
 2018年08月19日 星期日  您现在位于: 首页 → 技术文栏 → 用vb6的ActiveX控件实现异步下载-网站开发(其它相...

用vb6的ActiveX控件实现异步下载

2008年04月18日  无双网  出处:CSDN
 
序:笔者(airon,softWorker)注意到,在VB6中,要实现文件下载,一般用和方法都是使用第三方控件,比如IE控件呀,winscok呀,但在本文中,不用添加任何控件,也不引用任何object,就可实现文件下载,而且程序不支持文件下载进度,捕获下载错误,激活下载完成事件等。

具体方法:
1.新建一VB6工程(默认有一个Form1窗体)
2.选择工程菜单的“添加用户控件”来添加一个用户控件。
3.更改Activex用户控件的名称,更改为 Downloader  (此项可省) 。
4.输入代码:(在用户控件的代码窗口中)

Option Explicit
Event DownloadProgress(CurBytes As Long, MaxBytes As Long, SaveFile As String)
Event DownloadError(SaveFile As String)
Event DownloadComplete(MaxBytes As Long, SaveFile As String)
'Public downStat As Boolean


Public Function CancelAsyncRead() As Boolean
    On Error Resume Next
    UserControl.CancelAsyncRead
End Function
'Private Sub Timer1_Timer()
'    If Not downStat Then
'        Timer1.Enabled = False
'        Exit Sub
'    End If
'    Static Cs As Integer
'    If Cs > 2 Then Cs = 0
'    UserControl.Picture = P1(Cs).Picture
'    Cs = Cs + 1
'    DoEvents
'End Sub
Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
    On Error Resume Next
    Dim f() As Byte, fn As Long
    If AsyncProp.BytesMax <> 0 Then
        fn = FreeFile
        f = AsyncProp.Value
        Open AsyncProp.PropertyName For Binary Access Write As #fn
        Put #fn, , f
        Close #fn
    Else
        RaiseEvent DownloadError(AsyncProp.PropertyName)
    End If
    RaiseEvent DownloadComplete(CLng(AsyncProp.BytesMax), AsyncProp.PropertyName)
    downStat = False
End Sub
Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
    On Error Resume Next
    If AsyncProp.BytesMax <> 0 Then
        RaiseEvent DownloadProgress(CLng(AsyncProp.BytesRead), CLng(AsyncProp.BytesMax), AsyncProp.PropertyName)
        downStat = True: Timer1.Enabled = True
    End If
End Sub
'Private Sub UserControl_Resize()
'    SizeIt
'End Sub
Public Sub BeginDownload(url As String, SaveFile As String)
    On Error GoTo ErrorBeginDownload
    downStat = True
    UserControl.AsyncRead url, vbAsyncTypeByteArray, SaveFile, vbAsyncReadForceUpdate
    Timer1.Enabled = True
    Exit Sub
ErrorBeginDownload:
    downStat = False
    MsgBox Err & "开始下载数据失败!" _
    & vbCrLf & vbCrLf & "错误:" & Err.Description, vbCritical, "错误"
End Sub
'Public Sub SizeIt()
'    On Error GoTo ErrorSizeIt
'    With UserControl
'        .Width = ScaleX(32, vbPixels, vbTwips)
'        .Height = ScaleY(32, vbPixels, vbTwips)
'    End With
'    Exit Sub
'ErrorSizeIt:
'End Sub
'Public Sub kill()
'    downStat = False
'    Dim m As AsyncProperty
'    MsgBox m.Value
'End Sub

-----------------------------------------------------
程序说明:

本文采取VB6中OCX中的 异步获取方法来下载文件。
用到 AsyncRead(异步读取)

文中带注解的部分为下载界面控制,在下载时,会有像 FlashGet一样的有动画图标在动,要添加此功能,请在用户控件上添加三个image,(image上要带图片)
 

-----------------------------------------------------

4.关闭用户控件的代码与设置窗口,回到 Form1
5.这时你会看到在左边的工具栏下多了一用户控件,把它添加到窗体上。命名为 Downloader1
6.在窗体上添加一 command 控钮,命名为 Command1
7.在窗体 Form1的代码窗口输入代码:

Option Explicit
'============================================
'
'   程序编写, airon,softWoker  2004-02-20
'  
vborg@sohu.com  airon888@hotmail.com
'   Http://www.eyes3.net/
'
'============================================
Private Sub Command1_Click()
    Downloader1.BeginDownload url, SaveFile
    '请把 URL 替代为 Http://文件路径
    '请把 savefile 替代为下载到本地文件的路径与名称。
End Sub
   
Private Sub Downloader1_DownloadComplete(MaxBytes As Long, SaveFile As String)
    MsgBox "文件下载完成,保存文件名为:" & SaveFile, vbInformation Or vbOKOnly, "提示:"
End Sub

Private Sub Downloader1_DownloadError(SaveFile As String)
    MsgBox "下载发生错误!", vbExclamation Or vbOKOnly, "错误:"
End Sub

Private Sub Downloader1_DownloadProgress(CurBytes As Long, MaxBytes As Long, SaveFile As String)
    '在这里添加进度第的代码
End Sub

 


 (本文已被浏览 14651 次)
 发布人:asp126
 → 推荐给我的好友
上篇文章:用VB6.0设计简易赛车游戏
下篇文章:保存webbrowser中的HTML内容
发表评论
  → 评论内容 (点击查看)   共0条评论,每页显示5条评论   浏览所有评论
(没有相关评论)
  → 发表我的评论 (点击发表)
热门文章
 全部DLL下载
 添加红月装备的详细教程 (包括装备 武...
 保存webbrowser中的HTML内...
 MSFlexGrid使用技巧一例
 用vb6的ActiveX控件实现异步下...
 PC经典RPG《仙剑奇侠传Ⅰ》for PP...
 用VB6.0设计简易赛车游戏
 能否判断动态数组有没有被分配过
 利用压缩网页来提升网站浏览速度
 删SQL数据!还原新服务器!
最新文章
 [ODBC SQL Server Driv...
 评论:115网盘的何去何从
 我科学家实现百公里量级自由空间量子隐形...
 中国智能手机出货量占全球27%居世界之...
 Gartner:2012 第二季度西欧 P...
 [多图]华山论剑:当今在世的智商最高的...
 三星获出租车服务系统专利 可快速查看驾...
 [多图]15项可能延续到2030年的科...
 分析称苹果三星专利大战输赢已成定论
 Google终获云操作系统专利
 网站留言· 友情链接·与我在线·网站地图联系我们·管理·TOP 
 陕ICP备09004157号  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.016s, 8 queries, 35 Cache,0 Online