Upload Files with Params

Demonstrates how to upload files with extra form parameters from an application to a web server. Note: There must be something provided on the server-side to consume the upload. It could be an ASP or ASP.NET script, Perl, C++ CGI, PHP, Ruby, etc,. However, uploading via HTTP is not the same as uploading via FTP where the FTP server handles receiving the file and saving to disk.

The C# code behind http://www.chilkatsoft.com/receiveUpload.aspx may be found at this URL: C# to Receive Upload in ASP.NET.

Download Chilkat HTTP ActiveX

LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSsl
LOCAL loResp


loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  Build a HTTP request with the files to be uploaded:
loReq = CreateObject('Chilkat.HttpRequest')
loReq.UseUpload()

*  The URL we'll be posting to is:
*  http://www.chilkatsoft.com/receiveUpload.aspx
*  Therefore, the path part of the URL is:
loReq.Path = "/receiveUpload.aspx"

*  Note: You may test uploads to this URL, but anything over 80K will be aborted on the receiving side.

*  Add some files to the request:
*  The 1st argument is an arbitrary name.  It's the POST form field name.
*  The 2nd argument is the filename currently existing on
*  the local filesystem.  It may include an absolute or relative
*  path, or no path at all if it's in the current working directory.
lnSuccess = loReq.AddFileForUpload("file1","hamlet.xml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loReq.LastErrorText)
    QUIT
ENDIF

lnSuccess = loReq.AddFileForUpload("file2","dude.gif")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loReq.LastErrorText)
    QUIT
ENDIF

*  Additional non-file params may be added to the POST request
*  by calling AddParam:
loReq.AddParam("extraParam1","abc123")
loReq.AddParam("extraParam2","This is the content for my POST param")

*  Send the HTTP POST and get the response.  Note: This is a blocking call.
*  The method does not return until the full HTTP response is received.

lcDomain = "www.chilkatsoft.com"
lnPort = 80
lnSsl = 0

loResp = loHttp.SynchronousRequest(lcDomain,lnPort,lnSsl,loReq)
IF (loResp = NULL ) THEN
    ? loHttp.LastErrorText
ELSE
    *  Display the HTML source of the page returned.
    ? loResp.BodyStr
ENDIF