(PureBasic) HTTPS PUT application/x-www-form-urlencoded

Demonstrates two ways of sending an HTTPS PUT application/x-www-form-urlencoded request.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

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

    success.i

    ; The 1st example sends a PUT with the query params in the URL.
    ; The body of the request will be empty.
    url.s = "https://example.com/leads/12345678?uid=XXXX&apikey=YYYYYY&notes=Test_Note"

    ; Sends the following request:

    ; PUT /leads/12345678?uid=XXXX&apikey=YYYYYY&notes=Test_Note HTTP/1.1
    ; Host: example.com
    ; Accept: */*
    ; Accept-Encoding: gzip
    ; Content-Length: 0
    ; 

    resp.i = CkHttp::ckPText(http,"PUT",url,"","","application/x-www-form-urlencoded",0,0)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
    Else

        Debug "Response status code = " + Str(CkHttpResponse::ckStatusCode(resp))
        Debug "Response body: " + CkHttpResponse::ckBodyStr(resp)

        CkHttpResponse::ckDispose(resp)

    EndIf

    ; -----------------------------------------------------------------------
    ; Now we send the same request, but instead the query params are in the HTTP request body.

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

    CkHttpRequest::setCkHttpVerb(req, "PUT")
    CkHttpRequest::setCkPath(req, "/leads/12345678")
    CkHttpRequest::ckAddParam(req,"uid","XXXX")
    CkHttpRequest::ckAddParam(req,"apikey","YYYYYY")
    CkHttpRequest::ckAddParam(req,"notes","Test_Note")

    ; Sends the following request:

    ; POST /leads/12345678 HTTP/1.1
    ; Host: example.com
    ; Content-Type: application/x-www-form-urlencoded
    ; Content-Length: 38
    ; 
    ; uid=XXXX&apikey=YYYYYY&notes=Test_Note

    resp = CkHttp::ckPostUrlEncoded(http,"https://example.com/leads/12345678",req)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        ProcedureReturn
    EndIf

    Debug "Response status code = " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "Response body: " + CkHttpResponse::ckBodyStr(resp)

    CkHttpResponse::ckDispose(resp)



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


    ProcedureReturn
EndProcedure