(VB.NET) HTTP Download with Progress Event Callbacks

Downloads a file via HTTP or HTTPS and uses event callbacks to monitor progress.

Chilkat .NET Downloads Chilkat .NET Assemblies Chilkat for .NET Core Chilkat for Mono

' AbortCheck callback method.
Private Sub http_OnAbortCheck(sender As Object, args As Chilkat.AbortCheckEventArgs) Handles http.OnAbortCheck

        
End Sub

' PercentDone callback method.
Private Sub http_OnPercentDone(sender As Object, args As Chilkat.PercentDoneEventArgs) Handles http.OnPercentDone

    Dim percentDone As Integer = args.PercentDone
        Debug.WriteLine("Percent Done: " & percentDone)
    ' Explicitly abort at 25% or greater.
    ' Remove this to allow for the HTTP download to run to completion.
    If (percentDone > 25) Then
        args.Abort = True
    End If
End Sub

' ProgressInfo callback method.
Private Sub http_OnProgressInfo(sender As Object, args As Chilkat.ProgressInfoEventArgs) Handles http.OnProgressInfo

    Dim name As String = args.Name
    Dim value As String = args.Value
        Debug.WriteLine(name & ": " & value)
End Sub

private Sub ChilkatExample()

    ' This example assumes the Chilkat API to have been previously unlocked.
    ' See Global Unlock Sample for sample code.








    Dim WithEvents http As New Chilkat.Http

    ' Set a heartbeat in milliseconds 
    http.HeartbeatMs = 200

    ' Download a file...
    Dim localFilePath As String = "qa_output/Python-3.4.4.tar.xz"
    Dim success As Boolean = http.Download("https://www.python.org/ftp/python/3.4.4/Python-3.4.4.tar.xz",localFilePath)
    If (success <> True) Then
        Debug.WriteLine(http.LastErrorText)
        Exit Sub
    End If


    Debug.WriteLine("OK!")

End Sub