PureBasic

multipart/form-data HTTP POST

Demonstrates how to construct and send a multipart/form-data HTTP POST. PureBasic

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

Procedure ChilkatExample()

    success.i = 0

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

    ; Sends the following multipart/form-data POST:

    ; POST /xyz/something HTTP/1.1
    ; Host: domain
    ; Content-Type: multipart/form-data; boundary=------------090708030009010000030901
    ; Content-Length: 2220
    ; 
    ; --------------090708030009010000030901
    ; Content-Disposition: form-data; name="param1"
    ; 
    ; value1
    ; --------------090708030009010000030901
    ; Content-Disposition: form-data; name="param2"
    ; 
    ; value2
    ; --------------090708030009010000030901
    ; Content-Disposition: form-data; name="starfish20"; filename="starfish20.jpg"
    ; Content-Type: image/jpeg
    ; 
    ; JPEG DATA HERE...
    ; --------------090708030009010000030901
    ; Content-Disposition: form-data; name="helloWorld"; filename="helloWorld.pdf"
    ; Content-Type: application/pdf
    ; 
    ; PDF DATA HERE...
    ; --------------090708030009010000030901
    ; Content-Disposition: form-data; name="tinyA"; filename="tinyA.xml"
    ; Content-Type: text/xml
    ; 
    ; XML DATA HERE...
    ; --------------090708030009010000030901--
    ; 

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

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "multipart/form-data")
    CkHttpRequest::setCkPath(req, "/xyz/something")

    CkHttpRequest::ckAddParam(req,"param1","value1")
    CkHttpRequest::ckAddParam(req,"param2","value2")

    ; Add some small files to the request. (Small so we can see what the full request looks like without too much data..)
    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkBinData::ckLoadFile(bd,"qa_data/jpg/starfish20.jpg")
    CkHttpRequest::ckAddBdForUpload(req,"starfish20","starfish20.jpg",bd,"image/jpeg")

    success = CkBinData::ckLoadFile(bd,"qa_data/pdf/helloWorld.pdf")
    CkHttpRequest::ckAddBdForUpload(req,"helloWorld","helloWorld.pdf",bd,"application/pdf")

    success = CkBinData::ckLoadFile(bd,"qa_data/xml/tinyA.xml")
    CkHttpRequest::ckAddBdForUpload(req,"tinyA","tinyA.xml",bd,"text/xml")

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

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

    success = CkHttp::ckHttpSReq(http,"example.com",443,1,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttpRequest::ckDispose(req)
        CkBinData::ckDispose(bd)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

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

    Debug "Received:"
    Debug CkHttpResponse::ckBodyStr(resp)


    CkHttpRequest::ckDispose(req)
    CkBinData::ckDispose(bd)
    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure