(VB.NET) Bandwidth Throttled Asynchronous HTTP Upload

Demonstrates how to do an HTTP upload asynchronously in a background thread with limiting the rate to an approximate number of bytes/second. The only difference between this example and one without bandwidth throttling is that the BandwidthThrottleUp property is set.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim upload As New Chilkat.Upload

' Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
' that will process the HTTP Upload.
upload.Hostname = "www.mywebserver.com"
upload.Path = "/receiveUpload.aspx"

' Add one or more files to be uploaded.
upload.AddFileReference("file1","dude.gif")
upload.AddFileReference("file2","pigs.xml")
upload.AddFileReference("file3","sample.doc")

' Set the BandwidthThrottleUp property to throttle to approx 64K/second
upload.BandwidthThrottleUp = 65536

' Begin the HTTP upload in a background thread:
Dim success As Boolean = upload.BeginUpload()
If (success <> True) Then
    Debug.WriteLine(upload.LastErrorText)
Else
    Debug.WriteLine("Upload started...")
End If


' Wait for the upload to finish.
' Print the progress as we wait...
While (upload.UploadInProgress = True)
    ' We can abort the upload at any point by calling:
    ' upload.AbortUpload();

    ' Display the percentage complete and the number of bytes uploaded so far..
    ' The total upload size will become set after the upload begins:
    Debug.WriteLine(upload.PercentUploaded & "% " & upload.NumBytesSent & "/" & upload.TotalUploadSize)

    ' Sleep 2/10ths of a second.
    upload.SleepMs(200)

End While

' Did the upload succeed?
If (upload.UploadSuccess = True) Then
    Debug.WriteLine("Files uploaded!")
Else
    Debug.WriteLine(upload.LastErrorText)
End If