HTTP HEAD Request

Simple HTTP HEAD request to download only the HTTP header.

Download Chilkat HTTP ActiveX

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    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

    DECLARE @success int

    --  Any string unlocks the component for the 1st 30-days.
    EXEC sp_OAMethod @http, 'UnlockComponent', @success OUT, 'Anything for 30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    --  Send the HEAD request and get the response.
    DECLARE @response int

    EXEC sp_OAMethod @http, 'GetHead', @response OUT, 'http://www.chilkatsoft.com/'

    IF @response Is NULL 
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
      END
    ELSE
      BEGIN

        --  Show the HTTP response code and header received.

        PRINT 'HTTP response code: '
        EXEC sp_OAGetProperty @response, 'StatusCode', @iTmp0 OUT

        PRINT @iTmp0


        PRINT '---- FULL HEADER ----'
        EXEC sp_OAGetProperty @response, 'Header', @sTmp0 OUT

        PRINT @sTmp0

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

        --  How big will the full response be?  This is a good way to
        --  check the size of a download (if the URL is a .zip)

        EXEC sp_OAGetProperty @response, 'ContentLength', @iTmp0 OUT

        PRINT 'Size of resource = ' + @iTmp0

      END
END
GO