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 HttpSReq, 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 SetRequestHeader. SQL Server

-- 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)
    DECLARE @success int
    SELECT @success = 0

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

    DECLARE @http int
    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
    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 @domain nvarchar(4000)
    SELECT @domain = 'www.chilkatsoft.com'
    DECLARE @port int
    SELECT @port = 443
    DECLARE @ssl int
    SELECT @ssl = 1
    DECLARE @resp int
    EXEC @hr = sp_OACreate 'Chilkat.HttpResponse', @resp OUT

    EXEC sp_OAMethod @http, 'HttpSReq', @success OUT, @domain, @port, @ssl, @req, @resp
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @resp
        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


    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
    EXEC @hr = sp_OADestroy @resp


END
GO