Xojo Plugin

Bandwidth Throttled Asynchronous HTTP Upload

See more Upload Examples

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. Xojo Plugin

Dim success As Boolean
success = False

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:
success = upload.BeginUpload()
If (success <> True) Then
    System.DebugLog(upload.LastErrorText)
Else
    System.DebugLog("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:
    System.DebugLog(Str(upload.PercentUploaded) + "% " + Str(upload.NumBytesSent) + "/" + Str(upload.TotalUploadSize))

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

Wend

// Did the upload succeed?
If (upload.UploadSuccess = True) Then
    System.DebugLog("Files uploaded!")
Else
    System.DebugLog(upload.LastErrorText)
End If