(SQL Server) Adding Cookies to an HTTP Request

Demonstrates how to add one or more cookies to an HTTP request. For Chilkat HTTP methods that use an HTTP request object, such as SynchronousRequest or PostUrlEncoded, cookies are added by calling the AddHeader method on the request object. For Chilkat HTTP methods that do not use an HTTP request object, such as QuickGetStr, cookies are added by calling AddQuickHeader.

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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @http int
    -- Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

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

    -- Build an HTTP POST request:
    DECLARE @req int
    -- Use "Chilkat_9_5_0.HttpRequest" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.HttpRequest', @req OUT

    EXEC sp_OAMethod @req, 'SetFromUrl', NULL, 'https://www.chilkatsoft.com/echoPost.asp'
    EXEC sp_OASetProperty @req, 'HttpVerb', 'POST'

    EXEC sp_OAMethod @req, 'AddParam', NULL, 'param1', 'value1'
    EXEC sp_OAMethod @req, 'AddParam', NULL, '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:
    EXEC sp_OAMethod @req, 'AddHeader', NULL, 'Cookie', 'user="mary"; city="Chicago"'

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

    DECLARE @resp int

    DECLARE @domain nvarchar(4000)
    SELECT @domain = 'www.chilkatsoft.com'
    DECLARE @port int
    SELECT @port = 443
    DECLARE @ssl int
    SELECT @ssl = 1
    EXEC sp_OAMethod @http, 'SynchronousRequest', @resp OUT, @domain, @port, @ssl, @req
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        RETURN
      END

    -- Display the HTML body of the response.
    EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
    IF @iTmp0 = 200
      BEGIN
        -- Show the last HTTP request header sent, which should include
        -- our cookies...
        EXEC sp_OAGetProperty @http, 'LastHeader', @sTmp0 OUT
        PRINT @sTmp0
      END
    ELSE
      BEGIN

        EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
        PRINT 'HTTP Response Status = ' + @iTmp0
      END

    EXEC @hr = sp_OADestroy @resp


    PRINT '---------------------'

    -- 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.  
    EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'Cookie', 'user="mary"; city="Chicago"'

    DECLARE @html nvarchar(4000)
    EXEC sp_OAMethod @http, 'QuickGetStr', @html OUT, 'https://www.example.com/'
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
      END
    ELSE
      BEGIN
        -- Show the last HTTP request header sent, which should include
        -- our cookies...
        EXEC sp_OAGetProperty @http, 'LastHeader', @sTmp0 OUT
        PRINT @sTmp0
      END

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @req


END
GO