Lianja

HTTPS Upload File to Web Server

See more HTTP Examples

Uploads a file to a web server using HTTPS. Lianja

llSuccess = .F.

// 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("CkHttpRequest")
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")
llSuccess = loReq.AddFileForUpload("starfish.jpg","qa_data/jpg/starfish.jpg")
if (llSuccess = .F.) then
    ? loReq.LastErrorText
    release loReq
    return
endif

loHttp = createobject("CkHttp")

// ----------------------------------------------------------------------------
// 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.
llUseSslTls = .T.
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpSReq("www.example.com",443,llUseSslTls,loReq,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loReq
    release loHttp
    release loResp
    return
endif

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


release loReq
release loHttp
release loResp