(SQL Server) Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams.

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
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @req int
    -- Use "Chilkat_9_5_0.HttpRequest" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.HttpRequest', @req OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OASetProperty @req, 'HttpVerb', 'POST'
    EXEC sp_OASetProperty @req, 'Path', '/test123'
    EXEC sp_OASetProperty @req, 'ContentType', 'application/x-www-form-urlencoded'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'paramA', 'AAA'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'paramB', 'BBB'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'paramC', 'CCC'

    EXEC sp_OAMethod @req, 'GenerateRequestText', @sTmp0 OUT
    PRINT @sTmp0

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

    -- Generates: 

    -- 	POST /test123 HTTP/1.1
    -- 	Content-Type: application/x-www-form-urlencoded
    -- 	Host: domain
    -- 	Content-Length: 32
    -- 
    -- 	paramA=AAA&paramB=BBB&paramC=CCC
    -- 

    -- If we call RemoveAllParams, and then add some additional params,
    -- then the original params are gone, and only the new params exist.
    EXEC sp_OAMethod @req, 'RemoveAllParams', NULL
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'paramD', 'DDD'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'paramE', 'EEE'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'paramF', 'FFF'
    EXEC sp_OAMethod @req, 'GenerateRequestText', @sTmp0 OUT
    PRINT @sTmp0

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

    -- Generates:

    -- 	POST /test123 HTTP/1.1
    -- 	Content-Type: application/x-www-form-urlencoded
    -- 	Host: domain
    -- 	Content-Length: 32
    -- 
    -- 	paramD=DDD&paramE=EEE&paramF=FFF

    EXEC @hr = sp_OADestroy @req


END
GO