Xbase++

Send a Staged Multipart REST Request

Demonstrates Rest.SendReqMultipart, which sends a multipart request using the parts configured on the object, then reads the response in separate steps.

Background. The staged request model separates sending from reading: a SendReq method transmits the request, ReadResponseHeader reads the status line and headers, and a ReadResp method reads the body. This gives fine control over large or streamed messages compared with the single-call full-request methods.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nBAutoReconnect
LOCAL nStatusCode
LOCAL cResponseBody

nSuccess := 0

oRest := CreateObject("Chilkat.Rest")
nBTls := 1
nBAutoReconnect := 1
nSuccess := oRest:Connect("example.com", 443, nBTls, nBAutoReconnect)
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

//  Configure one multipart part before sending.
oRest:PartSelector := "1"
oRest:AddHeader("Content-Type", "text/plain")
oRest:AddHeader("Content-Disposition", 'form-data; name="field1"')
nSuccess := oRest:SetMultipartBodyString("value1")
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

//  Send the multipart request using the configured parts.
nSuccess := oRest:SendReqMultipart("POST", "/api/upload")
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

//  After sending, read the response status line and header fields.  The return value is the HTTP
//  status code, or -1 if no response was received.
nStatusCode := oRest:ReadResponseHeader()
IF (nStatusCode < 0)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

? "Response status code: " + Str(nStatusCode)

//  Read the response body as text.
cResponseBody := oRest:ReadRespBodyString()
IF (oRest:LastMethodSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

? cResponseBody

oRest:destroy()