(SQL Server) HTTP Response Inspection

See more HTTP Examples

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)
    DECLARE @http int
    EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Returns the contents of the response body.
    DECLARE @jsonText nvarchar(4000)
    EXEC sp_OAMethod @http, 'QuickGetStr', @jsonText OUT, 'https://chilkatsoft.com/helloWorld.json'

    -- Examine the response status code.

    EXEC sp_OAGetProperty @http, 'LastStatus', @iTmp0 OUT
    PRINT 'response status code: ' + @iTmp0

    -- Examine the response status text

    EXEC sp_OAGetProperty @http, 'LastStatusText', @sTmp0 OUT
    PRINT 'response status text: ' + @sTmp0

    -- Examine the full response header.

    PRINT 'response header:'
    EXEC sp_OAGetProperty @http, 'LastResponseHeader', @sTmp0 OUT
    PRINT @sTmp0

    PRINT '----'

    -- Examine the response content-type

    EXEC sp_OAGetProperty @http, 'LastContentType', @sTmp0 OUT
    PRINT 'LastContentType = ' + @sTmp0

    -- Examine the response last-mod date

    EXEC sp_OAGetProperty @http, 'LastModDate', @sTmp0 OUT
    PRINT 'LastModDate = ' + @sTmp0

    -- Load the response header into a Chilkat MIME object to access its fields individually.
    DECLARE @mime int
    EXEC @hr = sp_OACreate 'Chilkat.Mime', @mime OUT

    DECLARE @success int
    EXEC sp_OAGetProperty @http, 'LastResponseHeader', @sTmp0 OUT
    EXEC sp_OAMethod @mime, 'LoadMime', @success OUT, @sTmp0

    DECLARE @numHeaders int
    EXEC sp_OAGetProperty @mime, 'NumHeaderFields', @numHeaders OUT
    DECLARE @i int
    SELECT @i = 0

    PRINT '---- MIME Headers ----'
    WHILE @i < @numHeaders
      BEGIN

        EXEC sp_OAMethod @mime, 'GetHeaderFieldName', @sTmp0 OUT, @i
        PRINT 'name:  ' + @sTmp0

        EXEC sp_OAMethod @mime, 'GetHeaderFieldValue', @sTmp0 OUT, @i
        PRINT 'value: ' + @sTmp0
        SELECT @i = @i + 1
      END

    PRINT '----'

    -- Get a header field value by name:

    EXEC sp_OAMethod @mime, 'GetHeaderField', @sTmp0 OUT, 'ETag'
    PRINT 'ETag: ' + @sTmp0

    -- Output:

    -- response status code: 200
    -- response status text: OK
    -- response header:
    -- Content-Type: application/json
    -- Last-Modified: Sun, 20 Aug 2023 11:36:27 GMT
    -- Accept-Ranges: bytes
    -- ETag: "34c27f8e5ad3d91:0"
    -- Server: Microsoft-IIS/10.0
    -- X-Powered-By: ASP.NET
    -- Date: Sat, 30 Aug 2025 14:38:13 GMT
    -- Content-Length: 22
    -- ----
    -- LastContentType = application/json
    -- LastModDate = 2023-08-20
    -- ---- MIME Headers ----
    -- name:  Content-Type
    -- value: application/json
    -- name:  Last-Modified
    -- value: Sun, 20 Aug 2023 11:36:27 GMT
    -- name:  Accept-Ranges
    -- value: bytes
    -- name:  ETag
    -- value: "34c27f8e5ad3d91:0"
    -- name:  Server
    -- value: Microsoft-IIS/10.0
    -- name:  X-Powered-By
    -- value: ASP.NET
    -- name:  Date
    -- value: Sat, 30 Aug 2025 14:38:13 GMT
    -- name:  Content-Length
    -- value: 22
    -- ----
    -- ETag: "34c27f8e5ad3d91:0"

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @mime


END
GO