Xbase++

HTTPS multipart/form-data POST

See more HTTP Examples

Demonstrates how to send a multipart/form-data POST over HTTPS (using TLS). Xbase++

LOCAL nSuccess
LOCAL oReq
LOCAL cPathToFileOnDisk
LOCAL cFileContents
LOCAL oHttp
LOCAL oResp
LOCAL cHtmlStr

nSuccess := 0

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

//  This example demonstrates how to send a multipart/form-data POST that
//  looks like this:

//  	POST /cgi/XXX.pl HTTP/1.0
//  	Accept: text/html
//  	Connection: Keep-Alive
//  	User-Agent: XXX/8.0.15
//  	Content-type: multipart/form-data, boundary=XXXxyxy
//  	Content-Length: 682
//  
//  	--XXXxyxy
//  	content-disposition: form-data; name="UploadAgent"
//  
//  	InterfaceVersion1.5
//  	--XXXxyxy
//  	content-disposition: form-data; name="user"
//  
//  	userValue
//  	--XXXxyxy
//  	content-disposition: form-data; name="password"
//  
//  	passwordValue
//  	--XXXxyxy
//  	content-disposition: form-data; name="file"
//  
//  	fileValue
//  	--XXXxyxy
//  	content-disposition: form-data; name="data_version"
//  
//  	dataVersion
//  	--XXXxyxy
//  	content-disposition: form-data; name="content2"; filename="XXX"
//  
//  	THE FILE CONTENT GOES HERE...
//  	--XXXxyxy--
//  

//  First, let's build the HTTP request object
oReq := CreateObject("Chilkat.HttpRequest")

oReq:HttpVerb := "POST"
oReq:Path := "/cgi/XXX.pl"

//  The boundary string is automatically generated and added by Chilkat.
//  The value for the boundary string doesn't matter. (As long as it's a unique string that doesn't occur elsewhere in the request.)
oReq:ContentType := "multipart/form-data"

//  Adding the Connection: Keep-Alive is optional.  It only makes sense if the intent is to send
//  additional requests to the same domain (your-namespace-sb.accesscontrol.windows.net) within a reasonable time period.
oReq:AddHeader("Connection", "Keep-Alive")

//  --------------------------------------------------
//  IMPORTANT: Never set the Content-Length header.  
//  Chilkat will automatically compute the correct Content-Length and will add it.
//  --------------------------------------------------

//  If a specific User-Agent header field is needed, it can be added by calling AddHeader.
oReq:AddHeader("User-Agent", "XXX/8.0.15")

//  The "Accept" header, if present, tells the server what Content-Type responses will be accepted.
//  In this case, we're telling the server that we'll only accept "text/html" responses, and therefore
//  the server SHOULD only send a text/html response.  Technically, the Accept header is not required.
oReq:AddHeader("Accept", "text/html")

//  Add the params to the request.  Given that the Content-Type is set to "multipart/form-data", when
//  Chilkat composes the request, it will put each param in it's own MIME sub-part (i.e. in it's own
//  part delimited by the boundary string).
oReq:AddParam("UploadAgent", "InterfaceVersion1.5")
oReq:AddParam("user", "userValue")
oReq:AddParam("password", "passwordValue")
oReq:AddParam("file", "fileValue")
oReq:AddParam("data_version", "dataVersion")

//  The last param is the contents of a file.
//  If it's a file on disk, we can add it like this:
cPathToFileOnDisk := "c:/someDir/someFile.dat"
nSuccess := oReq:AddFileForUpload("content2", cPathToFileOnDisk)
IF (nSuccess == 0)
    ? oReq:LastErrorText
    oReq:destroy()
    RETURN
ENDIF

//  Alternatively, if the contents of the file are in memory, perhaps in a string
//  variable, the file can be added like this instead.
cFileContents := "This is the content of the file being uploaded."
nSuccess := oReq:AddStringForUpload("content2", "XXX", cFileContents, "utf-8")

//  -----------------------------------------------------------
//  IMPORTANT: To duplicate the HTTP request shown above, you'll want to choose 
//  either AddStringForUpload or AddFileForUpload, but not both.  It's possible to upload
//  any number of files by calling AddStringForUpload and/or AddFileForUpload any number
//  of times, once per file to be uploaded.  This of course assumes that the receiving
//  end is programmed to receive multiple files..
//  ------------------------------------------------------------

oHttp := CreateObject("Chilkat.Http")

//  The request is ready... now send it using HTTPS (which is port 443 by default).

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("www.myserver.com", 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oReq:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "HTTP response status: " + Str(oResp:StatusCode)

//  In this case, the response would be HTML because our Accept header
//  told the server to only return HTML.  The HTML is available on the BodyStr
//  property of the response object:
cHtmlStr := oResp:BodyStr
? "Received:"
? cHtmlStr

oReq:destroy()
oHttp:destroy()
oResp:destroy()