(PureBasic) HTTPS multipart/form-data POST

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

    ; 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
    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkPath(req, "/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.)
    CkHttpRequest::setCkContentType(req, "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.
    CkHttpRequest::ckAddHeader(req,"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.
    CkHttpRequest::ckAddHeader(req,"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.
    CkHttpRequest::ckAddHeader(req,"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).
    CkHttpRequest::ckAddParam(req,"UploadAgent","InterfaceVersion1.5")
    CkHttpRequest::ckAddParam(req,"user","userValue")
    CkHttpRequest::ckAddParam(req,"password","passwordValue")
    CkHttpRequest::ckAddParam(req,"file","fileValue")
    CkHttpRequest::ckAddParam(req,"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:
    pathToFileOnDisk.s = "c:/someDir/someFile.dat"
    success.i = CkHttpRequest::ckAddFileForUpload(req,"content2",pathToFileOnDisk)
    If success <> 1
        Debug CkHttpRequest::ckLastErrorText(req)
        CkHttpRequest::ckDispose(req)
        ProcedureReturn
    EndIf

    ; Alternatively, if the contents of the file are in memory, perhaps in a string
    ; variable, the file can be added like this instead.
    fileContents.s = "This is the content of the file being uploaded."
    success = CkHttpRequest::ckAddStringForUpload(req,"content2","XXX",fileContents,"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..
    ; ------------------------------------------------------------

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    resp.i = CkHttp::ckSynchronousRequest(http,"www.myserver.com",443,1,req)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttpRequest::ckDispose(req)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug "HTTP response status: " + Str(CkHttpResponse::ckStatusCode(resp))

    ; 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:
    htmlStr.s = CkHttpResponse::ckBodyStr(resp)
    Debug "Received:"
    Debug htmlStr

    CkHttpResponse::ckDispose(resp)



    CkHttpRequest::ckDispose(req)
    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure