(PureBasic) Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    CkHttp::ckSetRequestHeader(http,"X-CSRF-Token","Fetch")

    b.i = CkHttp::ckHasRequestHeader(http,"X-CSRF-Token")
    If b = 1
        Debug "X-CSRF-Token: Yes"
    Else
        Debug "X-CSRF-Token: No"
    EndIf

    b = CkHttp::ckHasRequestHeader(http,"X-Something")
    If b = 1
        Debug "X-Something: Yes"
    Else
        Debug "X-Something: No"
    EndIf

    ; The Accept and Accept-Encoding headers are default headers automatically added,
    ; unless the application chooses to remove by calling RemoveRequestHeader for each.
    b = CkHttp::ckHasRequestHeader(http,"Accept")
    If b = 1
        Debug "Accept: Yes"
    Else
        Debug "Accept: No"
    EndIf

    ; Output:

    ; X-CSRF-Token: Yes
    ; X-Something: No
    ; Accept: Yes


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure