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个线程.