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 Upload ActiveX (freeware)

LOCAL loUpload
LOCAL lnSuccess

loUpload = CreateObject('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.
loUpload.Hostname = "www.yourwebserver123.com"
loUpload.Path = "/receiveUpload.asp"

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

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

*  Begin the HTTPS upload in a background thread:

lnSuccess = loUpload.BeginUpload()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loUpload.LastErrorText)
ELSE
    =MESSAGEBOX("Files uploaded!")
ENDIF

*  Wait for the upload to finish.
*  Print the progress as we wait...
DO WHILE (loUpload.UploadInProgress = 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:
    ? loUpload.PercentUploaded + "% " + loUpload.NumBytesSent + "/" + loUpload.TotalUploadSize

    *  Sleep 2/10ths of a second.
    loUpload.SleepMs(200)

ENDDO

*  Did the upload succeed?
IF (loUpload.UploadSuccess = 1) THEN
    =MESSAGEBOX("Files uploaded!")
ELSE
    =MESSAGEBOX(loUpload.LastErrorText)
ENDIF