(PureBasic) Adding Cookies to an HTTP Request

Demonstrates how to add one or more cookies to an HTTP 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

    ; 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.)

    resp.i
    domain.s = "www.chilkatsoft.com"
    port.i = 80
    ssl.i = 0
    resp = CkHttp::ckSynchronousRequest(http,domain,port,ssl,req)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        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

    CkHttpResponse::ckDispose(resp)

    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)


    ProcedureReturn
EndProcedure