(DataFlex) Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Boolean b

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    Send ComSetRequestHeader To hoHttp "X-CSRF-Token" "Fetch"

    Get ComHasRequestHeader Of hoHttp "X-CSRF-Token" To b
    If (b = True) Begin
        Showln "X-CSRF-Token: Yes"
    End
    Else Begin
        Showln "X-CSRF-Token: No"
    End

    Get ComHasRequestHeader Of hoHttp "X-Something" To b
    If (b = True) Begin
        Showln "X-Something: Yes"
    End
    Else Begin
        Showln "X-Something: No"
    End

    // The Accept and Accept-Encoding headers are default headers automatically added,
    // unless the application chooses to remove by calling RemoveRequestHeader for each.
    Get ComHasRequestHeader Of hoHttp "Accept" To b
    If (b = True) Begin
        Showln "Accept: Yes"
    End
    Else Begin
        Showln "Accept: No"
    End

    // Output:

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


End_Procedure