(PureBasic) Send XML REST Request, Get Response with No Body (Google Cloud Storage)

Demonstrates sending a RESTful XML request, and receiving a response where the expected response is a header with no body (Content-Length = 0). This example will create a bucket in Google Cloud Storage using the Google Cloud Storage XML API.

See Create a Bucket using the XML API for additional request options.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkAuthGoogle.pb"
IncludeFile "CkRest.pb"
IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    ; This example will create a bucket in Google Cloud Storage using the XML API.
    success.i

    ; It requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    ; Obtain an access token as shown in one of the following examples:
    ; See Get Access Token using a Service Account JSON Key
    ; See Get Access Token using a P12 File

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

    ; Connect using TLS.
    bAutoReconnect.i = 1
    success = CkRest::ckConnect(rest,"www.googleapis.com",443,1,bAutoReconnect)

    ; Provide the authentication credentials (i.e. the access key)
    success = CkRest::ckSetAuthGoogle(rest,gAuth)

    ; Build the XML request body for creating a bucket.
    ; See https://cloud.google.com/storage/docs/xml-api/put-bucket-create
    xmlReqBody.i = CkXml::ckCreate()
    If xmlReqBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::setCkTag(xmlReqBody, "CreateBucketConfiguration")
    CkXml::ckNewChild2(xmlReqBody,"LocationConstraint","us")
    CkXml::ckNewChild2(xmlReqBody,"StorageClass","STANDARD")

    ; Show the HTTP request body we'll be sending.
    Debug CkXml::ckGetXml(xmlReqBody)

    ; There are no query parameters...

    ; The HOST header must be specified, because it needs to be different than
    ; the domain previously passed to the Connect method.
    ; The name of the bucket is the 1st part of the HOST header.
    success = CkRest::ckAddHeader(rest,"Host","chilkat-example-bucket.storage.googleapis.com")

    ; The project ID is specified in an HTTP request header
    success = CkRest::ckAddHeader(rest,"x-goog-project-id","chilkattest-1050")

    ; In this case, the response body is expected to be empty.  We can still
    ; call FullRequestString.  We expect an empty string to be returned.
    responseStr.s = CkRest::ckFullRequestString(rest,"PUT","/",CkXml::ckGetXml(xmlReqBody))
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkAuthGoogle::ckDispose(gAuth)
        CkRest::ckDispose(rest)
        CkXml::ckDispose(xmlReqBody)
        ProcedureReturn
    EndIf

    ; Check the response status code to make sure it is 200.
    responseStatus.i = CkRest::ckResponseStatusCode(rest)
    Debug "Response Status Code = " + Str(responseStatus)


    CkAuthGoogle::ckDispose(gAuth)
    CkRest::ckDispose(rest)
    CkXml::ckDispose(xmlReqBody)


    ProcedureReturn
EndProcedure