HTTP Upload using a Proxy Server

HTTP Upload using a proxy server. For more information about HTTP Upload, see this blog post: HTTP Upload Overview

Download Chilkat Upload ActiveX

LOCAL loUpload
LOCAL lnSuccess

loUpload = CreateObject('Chilkat.Upload')

*  You may send test uploads to this URL:
*  http://www.chilkatsoft.com/cgi-bin/ConsumeUpload.exe
* 
*  A test HTML page is located at:
*  http://www.chilkatsoft.com/upload.html

*  Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
*  that will process the HTTP Upload.
loUpload.Hostname = "www.chilkatsoft.com"
loUpload.Path = "/cgi-bin/ConsumeUpload.exe"

*  Specify an HTTP proxy server:
loUpload.ProxyDomain = "localhost"
loUpload.ProxyPort = 808

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

*  Do the upload.  The method returns when the upload
*  is completed.
*  This component also includes asynchronous upload capability,
*  which is demonstrated in another example.

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