Asynchronous HTTP Upload

Demonstrates how to do an HTTP 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.

The C# code to receive the upload at http://www.chilkatsoft.com/receiveUpload.aspx may be seen here: C# ASP.NET Code to Receive Upload

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.
loUpload.Hostname = "www.chilkatsoft.com"
loUpload.Path = "/receiveUpload.aspx"

*  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 HTTP 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