PureBasic Requires Chilkat v11.0.0+

WebDAV PROPFIND

See more HTTP Examples

Demonstrates how to send a WebDAV PROPFIND HTTP request. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  This example assumes the Chilkat API to have been previously unlocked.
    ;  See Global Unlock Sample for sample code.

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  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

    ;       PROPFIND /file HTTP/1.1
    ;       Host: www.example.com
    ;       Content-type: application/xml; charset="utf-8";
    ;       Content-Length: xxxx
    ;  
    ;       <?xml version="1.0" encoding="utf-8" ?>
    ;       <D:propfind xmlns:D="DAV:">
    ;         <D:prop xmlns:R="http://ns.example.com/boxschema/">
    ;           <R:bigbox/>
    ;           <R:author/>
    ;           <R:DingALing/>
    ;           <R:Random/>
    ;         </D:prop>
    ;       </D:propfind>

    ;  Build the HTTP request object. 

    ;  The HTTP verb should be "PROPFIND";
    CkHttpRequest::setCkHttpVerb(req, "PROPFIND")

    ;  The Content-Type should be "application/xml", and
    ;  the charset attribute in the Content-Type header should
    ;  be utf-8:
    CkHttpRequest::setCkContentType(req, "application/xml")
    CkHttpRequest::setCkCharset(req, "utf-8")
    CkHttpRequest::setCkSendCharset(req, 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:
    xmlBody.s = "This is the string that should contain the XML body..."
    success = CkHttpRequest::ckLoadBodyFromString(req,xmlBody,"utf-8")
    If success = 0
        Debug CkHttpRequest::ckLastErrorText(req)
        CkHttpRequest::ckDispose(req)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ;  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 HttpSReq method:

    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpSReq(http,"webdav.chilkatstorage.com",443,1,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttpRequest::ckDispose(req)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    ;  Get the XML response:
    responseXml.s
    responseXml = CkHttpResponse::ckBodyStr(resp)
    Debug "XML Response: " + responseXml

    ;  Get the response status code, such as 207
    statusCode.i
    statusCode = CkHttpResponse::ckStatusCode(resp)
    Debug "StatusCode = " + Str(statusCode)


    CkHttpRequest::ckDispose(req)
    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure