(Visual FoxPro) HTTPS Upload File to Web Server

Uploads a file to a web server using HTTPS.

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

LOCAL loReq
LOCAL lnSuccess
LOCAL loHttp
LOCAL lnUseSslTls
LOCAL loResp

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
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 <> 1) THEN
    ? loReq.LastErrorText
    RELEASE loReq
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
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 = loHttp.SynchronousRequest("www.example.com",443,lnUseSslTls,loReq)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loReq
    RELEASE loHttp
    CANCEL
ENDIF

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

RELEASE loResp

RELEASE loReq
RELEASE loHttp