(Visual FoxPro) HTTPS Upload File to Web Server

Uploads a file to a web server using HTTPS.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loReq
LOCAL loHttp
LOCAL lnUseSslTls
LOCAL loResp

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* The ContentType, HttpVerb, and Path properties should
* always be explicitly set.
loReq = CreateObject('Chilkat.HttpRequest')
loReq.HttpVerb = "POST"
loReq.Path = "/receiveMyUpload.aspx"
loReq.ContentType = "multipart/form-data"

loReq.AddStringForUpload("fileA","fileA.txt","This is the contents of file A","utf-8")
lnSuccess = loReq.AddFileForUpload("starfish.jpg","qa_data/jpg/starfish.jpg")
IF (lnSuccess = 0) THEN
    ? loReq.LastErrorText
    RELEASE loReq
    CANCEL
ENDIF

loHttp = CreateObject('Chilkat.Http')

* ----------------------------------------------------------------------------
* IMPORTANT:
* HTTP uploads require a counterpart implementation on the server, written in any desired language
* such as C#, Classic ASP, PHP, etc., which consumes the upload being sent.
* See: ASP.NET Receive Upload
* ----------------------------------------------------------------------------

* Do the upload.
lnUseSslTls = 1
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSReq("www.example.com",443,lnUseSslTls,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loReq
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

? "response status code = " + STR(loResp.StatusCode)
? "response body:"
? loResp.BodyStr

RELEASE loReq
RELEASE loHttp
RELEASE loResp