(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set upload [new_CkUpload]

# Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
# that will process the HTTP Upload.
CkUpload_put_Hostname $upload "www.mywebserver.com"
CkUpload_put_Path $upload "/receiveUpload.aspx"

# Add one or more files to be uploaded.
CkUpload_AddFileReference $upload "file1" "dude.gif"
CkUpload_AddFileReference $upload "file2" "pigs.xml"
CkUpload_AddFileReference $upload "file3" "sample.doc"

# Set the BandwidthThrottleUp property to throttle to approx 64K/second
CkUpload_put_BandwidthThrottleUp $upload 65536

# Begin the HTTP upload in a background thread:
set success [CkUpload_BeginUpload $upload]
if {$success != 1} then {
    puts [CkUpload_lastErrorText $upload]
} else {
    puts "Upload started..."
}

# Wait for the upload to finish.
# Print the progress as we wait...
while {[CkUpload_get_UploadInProgress $upload] == 1} {
    # 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:
    puts [CkUpload_get_PercentUploaded $upload]% [CkUpload_get_NumBytesSent $upload]/[CkUpload_get_TotalUploadSize $upload]

    # Sleep 2/10ths of a second.
    CkUpload_SleepMs $upload 200

}

# Did the upload succeed?
if {[CkUpload_get_UploadSuccess $upload] == 1} then {
    puts "Files uploaded!"
} else {
    puts [CkUpload_lastErrorText $upload]
}


delete_CkUpload $upload