Xbase++

Set a Multipart Part Body from BinData

Demonstrates Rest.SetMultipartBodyBd, which sets the binary body of the selected multipart part from a BinData.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background. A multipart request is assembled part by part: the part selector chooses the part being built, header fields describe it, and a SetMultipartBody method supplies its content. The request is then sent with a multipart send or full-request method.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nBAutoReconnect
LOCAL oBdBody
LOCAL nBLoaded
LOCAL cResponseText

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

//  The file paths are relative to the application's current working directory.  Absolute paths
//  may also be used.  Supply the paths appropriate to your own environment.

//  Select the multipart part to build, and set its header fields.
oRest:PartSelector := "1"
oRest:AddHeader("Content-Disposition", 'form-data; name="field1"')
oRest:AddHeader("Content-Type", "image/png")

//  Set the binary body of the selected part from a BinData.
oBdBody := CreateObject("Chilkat.BinData")
nBLoaded := oBdBody:LoadFile("qa_data/image.png")
IF (nBLoaded != 1)
    ? "Failed to load the part body file."
    oRest:destroy()
    oBdBody:destroy()
    RETURN
ENDIF

nSuccess := oRest:SetMultipartBodyBd(oBdBody)
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    oBdBody:destroy()
    RETURN
ENDIF

cResponseText := oRest:FullRequestMultipart("POST", "/api/upload")
IF (oRest:LastMethodSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    oBdBody:destroy()
    RETURN
ENDIF

? cResponseText

oRest:destroy()
oBdBody:destroy()