(PureBasic) Adding Cookies to an HTTP Request

Demonstrates how to add one or more cookies to an HTTP request.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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 Cookie header field has this format:
    ; Cookie: name1=value1 [; name2=value2] ...

    ; Build an HTTP POST request:
    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::ckSetFromUrl(req,"http://www.chilkatsoft.com/echoPost.asp")
    CkHttpRequest::setCkHttpVerb(req, "POST")

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

    ; To add cookies to any HTTP request sent by a Chilkat HTTP method
    ; that uses an HTTP request object, add the cookies to the
    ; request object by calling AddHeader.  

    ; Add two cookies:
    CkHttpRequest::ckAddHeader(req,"Cookie","user=" + Chr(34) + "mary" + Chr(34) + "; city=" + Chr(34) + "Chicago" + Chr(34))

    ; Send the HTTP POST.  
    ; (The cookies are sent as part of the HTTP header.)

    domain.s = "www.chilkatsoft.com"
    port.i = 80
    ssl.i = 0
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpSReq(http,domain,port,ssl,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    ; Display the HTML body of the response.
    If CkHttpResponse::ckStatusCode(resp) = 200
        ; Show the last HTTP request header sent, which should include
        ; our cookies...
        Debug CkHttp::ckLastHeader(http)
    Else
        Debug "HTTP Response Status = " + Str(CkHttpResponse::ckStatusCode(resp))
    EndIf

    Debug "---------------------"

    ; Some Chilkat HTTP methods do not use an HTTP request object. 
    ; For these methods, such as for QuickGetStr, cookies (or any HTTP request header) 
    ; are added by calling SetRequestHeader.  
    CkHttp::ckSetRequestHeader(http,"Cookie","user=" + Chr(34) + "mary" + Chr(34) + "; city=" + Chr(34) + "Chicago" + Chr(34))

    html.s = CkHttp::ckQuickGetStr(http,"http://www.w3.org/")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
    Else
        ; Show the last HTTP request header sent, which should include
        ; our cookies...
        Debug CkHttp::ckLastHeader(http)
    EndIf



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


    ProcedureReturn
EndProcedure