PureBasic

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