(PureBasic) HTTP POST x-www-form-urlencoded

Demonstrates how to send a simple x-www-form-urlencoded POST.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

    jsonStr.s = "{ some json ... }"

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

    ;  This query parameter just happens to be named "json" and contains JSON text.
    CkHttpRequest::ckAddParam(req,"json",jsonStr)

    ;  We can optionally add more query parameters.
    CkHttpRequest::ckAddParam(req,"abc","123")
    CkHttpRequest::ckAddParam(req,"xml","<abc>123</abc>")

    ;  Note: Just because we passed a query param named "json" or "xml" means nothing special.  It's still just
    ;  a name=value query parameter..

    resp.i = CkHttp::ckPostUrlEncoded(http,"http://example.net/cirrus/connect/report",req)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        ProcedureReturn
    EndIf

    If CkHttpResponse::ckStatusCode(resp) <> 200
        Debug "Hey, I didn't receive the expected response status code!"
        Debug "status code = " + Str(CkHttpResponse::ckStatusCode(resp))
    EndIf

    ;  Could be error text if the status code wasn't what we expected, or could be the response
    ;  body you're seeking..
    responseBody.s = CkHttpResponse::ckBodyStr(resp)
    Debug responseBody

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

    filepath.s = "some file path"
    success.i = CkFileAccess::ckWriteEntireTextFile(fac,filepath,responseBody,"utf-8",0)
    If success <> 1
        Debug CkFileAccess::ckLastErrorText(fac)
    EndIf



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


    ProcedureReturn
EndProcedure