SQL Server

Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams. SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @req int
    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