(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vReq
    Handle hoReq
    String sDomain
    Integer iPort
    Boolean iSsl
    Variant vResp
    Handle hoResp
    String sHtml
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    Move False To iSuccess

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

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

    // The Cookie header field has this format:
    // Cookie: name1=value1 [; name2=value2] ...

    // Build an HTTP POST request:
    Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
    If (Not(IsComObjectCreated(hoReq))) Begin
        Send CreateComObject of hoReq
    End
    Send ComSetFromUrl To hoReq "http://www.chilkatsoft.com/echoPost.asp"
    Set ComHttpVerb Of hoReq To "POST"

    Send ComAddParam To hoReq "param1" "value1"
    Send ComAddParam To hoReq "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:
    Send ComAddHeader To hoReq "Cookie" 'user="mary"; city="Chicago"'

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

    Move "www.chilkatsoft.com" To sDomain
    Move 80 To iPort
    Move False To iSsl
    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoReq to vReq
    Get pvComObject of hoResp to vResp
    Get ComHttpSReq Of hoHttp sDomain iPort iSsl vReq vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Display the HTML body of the response.
    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 = 200) Begin
        // Show the last HTTP request header sent, which should include
        // our cookies...
        Get ComLastHeader Of hoHttp To sTemp1
        Showln sTemp1
    End
    Else Begin
        Get ComStatusCode Of hoResp To iTemp1
        Showln "HTTP Response Status = " iTemp1
    End

    Showln "---------------------"

    // 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.  
    Send ComSetRequestHeader To hoHttp "Cookie" 'user="mary"; city="Chicago"'

    Get ComQuickGetStr Of hoHttp "http://www.w3.org/" To sHtml
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
    End
    Else Begin
        // Show the last HTTP request header sent, which should include
        // our cookies...
        Get ComLastHeader Of hoHttp To sTemp1
        Showln sTemp1
    End



End_Procedure