DSAPI多功能组件编程应用-网络相关(上)

[DSAPI.DLL下载地址]

 DSAPI多功能组件编程应用-网络相关,网络相关编程有很多很多,这里讲解一下封装在DSAPI中的网络相关的功能,这些都是本人简化到极点的功能了,可以在软件开发过程中节省大量代码编写时间.

先来看几个最简单的:

        '---IP相关
        Console.WriteLine(DSAPI.网络相关.本机内网IP)
        Console.WriteLine(DSAPI.网络相关.本机外网IP和所在地())
        Console.WriteLine(DSAPI.网络相关.本机外网IP所在省)
        Console.WriteLine(DSAPI.网络相关.本机外网IP所在市)
        Console.WriteLine(DSAPI.网络相关.获取域名指向的IP("dskj.meibu.net"))
        '----下载相关
        Console.WriteLine(DSAPI.网络相关.获取文件大小("http://dlsw.baidu.com/sw-search-sp/soft/2e/10849/wrar520sc_setup.1418806135.exe"))
        Console.WriteLine("WinRar大小=" & DSAPI.文件类.获取可读性强的字节大小信息(DSAPI.网络相关.获取文件大小("http://dlsw.baidu.com/sw-search-sp/soft/2e/10849/wrar520sc_setup.1418806135.exe")))

输出结果:

192.168.1.53

112.82.187.65,江苏省常州市 联通

江苏省

常州市

114.226.11.7

1867312

WinRar大小=1.78MB

多线程下载

如此简单的多线程下载,我认为没有什么比这个更适合你用的了.

 Private WithEvents _下载 As DSAPI.网络相关.多线程下载
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim 下载 As New DSAPI.网络相关.多线程下载
        With 下载
            .保存路径 = "c:\1.exe"
            .缓存容量 = 2000000 '当每批次下载达到此长度时写入文件
            .文件网址 = "http://dlsw.baidu.com/sw-search-sp/soft/2e/10849/wrar520sc_setup.1418806135.exe"
            .总下载线程数 = 5
            Console.WriteLine("准备下载的文件大小=" & .文件大小)
            .启动下载()
        End With
        _下载 = 下载
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If _下载 IsNot Nothing Then
            Dim Sb As New System.Text.StringBuilder
            With Sb
                .AppendLine("文件下载地址:" & _下载.文件网址)
                .AppendLine("文件大小:" & DSAPI.文件类.获取可读性强的字节大小信息(_下载.文件大小))
                .AppendLine("下载线程数:" & _下载.总下载线程数)
                .AppendLine("下载速度:" & DSAPI.文件类.获取可读性强的字节大小信息(_下载.下载速度_字节_每秒) & "/S")
                .AppendLine("下载进度:" & _下载.下载进度)
            End With
        End If
    End Sub

    Private Sub _下载_文件下载完成(FilePath As String, SourceName As String) Handles _下载.文件下载完成
        Console.WriteLine(FilePath & "已经下载完成")
    End Sub

    Private Sub _下载_下载出错(FilePath As String, SourceName As String, Exception As Exception) Handles _下载.下载出错
        Console.WriteLine(SourceName & "下载失败")
    End Sub

上述代码中,使用Timer定时器定期获取下载状态,缓存大小默认为2M,下载线程数,建议下载大文件时使用10线程以上,小于10M的文件使用少于3个线程.