Adding Cookies to an HTTP GET Request

Example showing how to add one or more cookies to an HTTP GET request.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL loRequest
LOCAL loResponse
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSsl

loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

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

*  Build an HTTP GET request:
loRequest = CreateObject('Chilkat.HttpRequest')
loRequest.SetFromUrl("http://www.example-code.com/")
loRequest.UseGet()

*  Add two cookies:
loRequest.AddHeader("Cookie",[user="mary"; city="Chicago"])

*  Send the HTTP GET.  The cookies are sent as part of the HTTP header.

lcDomain = "www.example-code.com"

lnPort = 80

lnSsl = 0
loResponse = loHttp.SynchronousRequest(lcDomain,lnPort,lnSsl,loRequest)
IF (loResponse = NULL ) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  Display the HTML body of the response.
IF (loResponse.StatusCode = 200) THEN
    ? loResponse.BodyStr
ELSE
    ? "HTTP Response Status = " + loResponse.StatusCode
ENDIF

RELEASE loResponse