Xbase++
REST Send multipart/form-data

Demonstrates how to send a multipart/form-data HTTP request.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL oSbHtml
LOCAL oJpgBytes
LOCAL cResponseBody

nSuccess := 0

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

oRest := CreateObject("Chilkat.Rest")

//  Connect to the destination web server.
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("www.somewebserver.com", nPort, nBTls, nBAutoReconnect)

//  This example will send the following multipart/form-data request.
//  The Content-Length is automatically computed and added by Chilkat.
//  It will be different than what is shown here.
//  The boundary string is also generated by Chilkat and will be different
//  than shown below.

//  	POST /some_path HTTP/1.1
//  	Content-Type: multipart/form-data; boundary=---------------------------735323031399963166993862150
//  	Content-Length: 834
//  
//  	-----------------------------735323031399963166993862150
//  	Content-Disposition: form-data; name="text1"
//  
//  	text 123 abc
//  	-----------------------------735323031399963166993862150
//  	Content-Disposition: form-data; name="text2"
//  
//  	xyz
//  	-----------------------------735323031399963166993862150
//  	Content-Disposition: form-data; name="file1"; filename="a.txt"
//  	Content-Type: text/plain
//  
//  	Content of a.txt.
//  
//  	-----------------------------735323031399963166993862150
//  	Content-Disposition: form-data; name="file2"; filename="a.html"
//  	Content-Type: text/html
//  
//  	<!DOCTYPE html><title>Content of a.html.</title>
//  
//  	-----------------------------735323031399963166993862150
//  	Content-Disposition: form-data; name="file3"; filename="starfish.jpg"
//  	Content-Type: image/jpeg
//  
//  	binary data goes here
//  	-----------------------------735323031399963166993862150--

//  Set the Content-Type for the topmost MIME part.
oRest:AddHeader("Content-Type", "multipart/form-data")

//  Specify each part of the request.
oRest:PartSelector := "1"
oRest:AddHeader("Content-Disposition", 'form-data; name="text1"')
oRest:SetMultipartBodyString("text 123 abc")

oRest:PartSelector := "2"
oRest:AddHeader("Content-Disposition", 'form-data; name="text2"')
oRest:SetMultipartBodyString("xyz")

oRest:PartSelector := "3"
oRest:AddHeader("Content-Disposition", 'form-data; name="file1"; filename="a.txt"')
oRest:AddHeader("Content-Type", "text/plain")
oRest:SetMultipartBodyString("Content of a.txt.")

oRest:PartSelector := "4"
oRest:AddHeader("Content-Disposition", 'form-data; name="file2"; filename="a.html"')
oRest:AddHeader("Content-Type", "text/html")
oSbHtml := CreateObject("Chilkat.StringBuilder")
oSbHtml:LoadFile("qa_data/html/a.html", "utf-8")
oRest:SetMultipartBodySb(oSbHtml)

oRest:PartSelector := "5"
oRest:AddHeader("Content-Disposition", 'form-data; name="file3"; filename="starfish.jpg"')
oRest:AddHeader("Content-Type", "image/jpeg")
oJpgBytes := CreateObject("Chilkat.BinData")
oJpgBytes:LoadFile("qa_data/jpg/starfish.jpg")
oRest:SetMultipartBodyBd(oJpgBytes)

cResponseBody := oRest:FullRequestMultipart("POST", "/some_path")
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    oSbHtml:destroy()
    oJpgBytes:destroy()
    RETURN
ENDIF

//  ...
//  ...

//  Clear the REST object for any subsequent requests..
oRest:ClearAllHeaders()
oRest:ClearAllParts()
oRest:PartSelector := ""

oRest:destroy()
oSbHtml:destroy()
oJpgBytes:destroy()