Asynchronous HTTPS Upload

Demonstrates how to do an HTTPS upload asynchronously in a background thread. The Chilkat Upload software is freeware and may be used in both commercial and non-commercial applications and websites.

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim upload As New Chilkat.Upload()

'  Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
'  that will process the HTTP Upload.
'  You must change these values to your hostname/path.
upload.Hostname = "www.yourwebserver123.com"
upload.Path = "/receiveUpload.asp"

'  To upload via HTTPS, you only need to set the port
'  and "Ssl" property.  All other programming remains the same:
upload.Ssl = true
upload.Port = 443

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

'  Begin the HTTPS upload in a background thread:
Dim success As Boolean
success = upload.BeginUpload()
If (success <> true) Then
    MsgBox(upload.LastErrorText)
Else
    MsgBox("Files uploaded!")
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:
    TextBox1.Text = TextBox1.Text & upload.PercentUploaded _
         & "% " & upload.NumBytesSent & "/" _
         & upload.TotalUploadSize & vbCrLf

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

End While

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