PureBasic

HTTPS PUT application/x-www-form-urlencoded

See more HTTP Examples

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

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

Procedure ChilkatExample()

    success.i = 0

    ; 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

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

    success = CkHttp::ckHttpStr(http,"PUT",url,"","","application/x-www-form-urlencoded",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

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

    ; -----------------------------------------------------------------------
    ; 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_Notereq.HttpVerb = "POST";
    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "application/x-www-form-urlencoded")

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

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


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


    ProcedureReturn
EndProcedure