(SQL Server) WebDAV PROPFIND

Demonstrates how to send a WebDAV PROPFIND HTTP request.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @req int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.HttpRequest', @req OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @http int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Http', @http OUT

    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 STR(@success) <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @http
        RETURN
      END

    --  The PROPFIND request to be sent will look similar to this:
    --  This is from RFC 4918 at http://tools.ietf.org/html/rfc4918#section-9.1.3
    -- --1--

    --  Build the HTTP request object.

    --  The HTTP verb should be "PROPFIND";
    EXEC sp_OASetProperty @req, 'HttpVerb', 'PROPFIND'

    --  The Content-Type should be "application/xml", and
    --  the charset attribute in the Content-Type header should
    --  be utf-8:
    EXEC sp_OASetProperty @req, 'ContentType', 'application/xml'
    EXEC sp_OASetProperty @req, 'Charset', 'utf-8'
    EXEC sp_OASetProperty @req, 'SendCharset', 1

    --  Load the request body with the XML.  Your application
    --  is free to construct the XML using any means desired.
    --  Once the XML is prepared, load it into the request body
    --  like this:
    DECLARE @xmlBody nvarchar(4000)
    SELECT @xmlBody = 'This is the string that should contain the XML body...'
    EXEC sp_OAMethod @req, 'LoadBodyFromString', @success OUT, @xmlBody, 'utf-8'
    IF STR(@success) <> 1
      BEGIN
        EXEC sp_OAGetProperty @req, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @http
        RETURN
      END

    --  For this example, pretend the WEBDAV endpoint is:
    --  https://webdav.chilkatstorage.com/

    --  Note: There is no actual "chilkatstorage.com" site.
    --  This is only an example...

    --  The "path" part of this endpoint URL is simply "/".

    --  Send the request to the WebDAV endpoint using
    --  the SynchronousRequest method:
    DECLARE @resp int

    EXEC sp_OAMethod @http, 'SynchronousRequest', @resp OUT, 'webdav.chilkatstorage.com', 443, 1, STR(@req)
    IF STR(@resp) Is NULL 
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @http
        RETURN
      END

    --  Get the XML response:
    DECLARE @responseXml nvarchar(4000)

    EXEC sp_OAGetProperty @resp, 'BodyStr', @responseXml OUT

    PRINT 'XML Response: ' + @responseXml

    --  Get the response status code, such as 207
    DECLARE @statusCode int

    EXEC sp_OAGetProperty @resp, 'StatusCode', @statusCode OUT

    PRINT 'StatusCode = ' + STR(@statusCode)

    EXEC @hr = sp_OADestroy @resp


    EXEC @hr = sp_OADestroy @req
    EXEC @hr = sp_OADestroy @http


END
GO