(Visual FoxPro) 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

LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSsl
LOCAL loResp
LOCAL lcHtml

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

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

* Build an HTTP POST request:
loReq = CreateObject('Chilkat.HttpRequest')
loReq.SetFromUrl("http://www.chilkatsoft.com/echoPost.asp")
loReq.HttpVerb = "POST"

loReq.AddParam("param1","value1")
loReq.AddParam("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:
loReq.AddHeader("Cookie",'user="mary"; city="Chicago"')

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

lcDomain = "www.chilkatsoft.com"
lnPort = 80
lnSsl = 0
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSReq(lcDomain,lnPort,lnSsl,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    CANCEL
ENDIF

* Display the HTML body of the response.
IF (loResp.StatusCode = 200) THEN
    * Show the last HTTP request header sent, which should include
    * our cookies...
    ? loHttp.LastHeader
ELSE
    ? "HTTP Response Status = " + STR(loResp.StatusCode)
ENDIF

? "---------------------"

* 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.  
loHttp.SetRequestHeader("Cookie",'user="mary"; city="Chicago"')

lcHtml = loHttp.QuickGetStr("http://www.w3.org/")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
ELSE
    * Show the last HTTP request header sent, which should include
    * our cookies...
    ? loHttp.LastHeader
ENDIF

RELEASE loHttp
RELEASE loReq
RELEASE loResp