(SQL Server) HTTP POST with XML Body

Demonstrates sending an HTTP POST with a XML body.

For more information, see https://chilkatsoft.com/http_post_with_xml_body.asp

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

    DECLARE @success int

    -- Implements the following CURL command:

    -- curl -X POST https://example.com/StockQuote \
    --   -H "Host: www.example.org" \
    --   -H "Content-Type: application/soap+xml; charset=utf-8" \
    --   -H "SOAPAction: http://www.example.org/StockPrice" \
    --   -d '<?xml version="1.0"?>
    -- 
    -- <soap:Envelope
    -- xmlns:soap="http://www.w3.org/2003/05/soap-envelope/"
    -- soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
    -- 
    -- <soap:Body xmlns:m="http://www.example.org/stock">
    --   <m:GetStockPrice>
    --     <m:StockName>IBM</m:StockName>
    --   </m:GetStockPrice>
    -- </soap:Body>
    -- 
    -- </soap:Envelope>'

    -- Use the following online tool to generate HTTP code from a CURL command
    -- Convert a cURL Command to HTTP Source Code

    -- Use this online tool to generate code from sample XML:
    -- Generate Code to Create XML

    -- --------------------------------------------------------------------------------
    -- Also see Chilkat's Online WSDL Code Generator
    -- to generate code and SOAP Request and Response XML for each operation in a WSDL.
    -- --------------------------------------------------------------------------------

    -- The following XML is sent in the request body.

    -- <?xml version="1.0" encoding="utf-8"?>
    -- <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope/" soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
    --     <soap:Body xmlns:m="http://www.example.org/stock">
    --         <m:GetStockPrice>
    --             <m:StockName>IBM</m:StockName>
    --         </m:GetStockPrice>
    --     </soap:Body>
    -- </soap:Envelope>
    -- 

    DECLARE @xml int
    -- Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Xml', @xml OUT

    EXEC sp_OASetProperty @xml, 'Tag', 'soap:Envelope'
    EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'xmlns:soap', 'http://www.w3.org/2003/05/soap-envelope/'
    EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'soap:encodingStyle', 'http://www.w3.org/2003/05/soap-encoding'
    EXEC sp_OAMethod @xml, 'UpdateAttrAt', @success OUT, 'soap:Body', 1, 'xmlns:m', 'http://www.example.org/stock'
    EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soap:Body|m:GetStockPrice|m:StockName', 'IBM'

    EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'SOAPAction', 'http://www.example.org/StockPrice'
    EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'Host', 'www.example.org'
    EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'Content-Type', 'application/soap+xml; charset=utf-8'

    DECLARE @sbRequestBody int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbRequestBody OUT

    EXEC sp_OAMethod @xml, 'GetXmlSb', @success OUT, @sbRequestBody

    DECLARE @resp int
    EXEC sp_OAMethod @http, 'PTextSb', @resp OUT, 'POST', 'https://example.com/StockQuote', @sbRequestBody, 'utf-8', 'application/soap+xml; charset=utf-8', 0, 0
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @xml
        EXEC @hr = sp_OADestroy @sbRequestBody
        RETURN
      END

    EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
    PRINT @iTmp0
    EXEC sp_OAGetProperty @resp, 'BodyStr', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @resp


    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @xml
    EXEC @hr = sp_OADestroy @sbRequestBody


END
GO