Xbase++

Google Drive Insert Permission

See more Google Drive Examples

This example demonstrates how to insert a permission for a file (see https://developers.google.com/drive/v2/reference/permissions/insert)

The impetus for creating this example was a need to be able to view files uploaded using a service account key in the Google Drive web interface. When using a service account access token, the files your application will see are those for the service account, and not the files for your main account. For example, the Google Account I use for testing has a username of "support@chilkatcloud.com". (Don't send email to support@chilkatcloud.com, it's just use for testing and not interactively read.) I use "support@chilkatcloud.com" when I log into Google interactively to view files in Google Drive at https://drive.google.com/drive/my-drive.

The files I upload to Google Drive using a service account key won't be visible in the browser UI. To make them visible, you need to insert a permission for the file so that the main user account, which in this case is "support@chilkatcloud.com", is a reader. After the permission is inserted, the file will be visible under "Shared with me" -- as if another Google Drive account shared the file with you.

Xbase++

LOCAL nSuccess
LOCAL oGAuth
LOCAL oRest
LOCAL nBAutoReconnect
LOCAL oJson
LOCAL cJsonResponse

nSuccess := 0

nSuccess := 1

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

//  This example uses a previously obtained access token having permission for the 
//  Google Drive scope.

oGAuth := CreateObject("Chilkat.AuthGoogle")
oGAuth:AccessToken := "GOOGLE-DRIVE-ACCESS-TOKEN"

oRest := CreateObject("Chilkat.Rest")

//  Connect using TLS.
nBAutoReconnect := 1
nSuccess := oRest:Connect("www.googleapis.com", 443, 1, nBAutoReconnect)

//  Provide the authentication credentials (i.e. the access token)
oRest:SetAuthGoogle(oGAuth)

oRest:AddHeader("Content-Type", "application/json; charset=UTF-8")

oJson := CreateObject("Chilkat.JsonObject")
oJson:AppendString("role", "reader")
oJson:AppendString("type", "user")
oJson:AppendString("value", "support@chilkatcloud.com")

//  A note from a Chilkat customer:
//  
//    My coding attempt was frustrated because I tried a role of "owner".
//    Even when providing the extra parameter of ...?transferOwnership=true
//    that approach fails (400, Bad Request).
//  

//  This example is inserting a permission for the file whose fileId is "0By-hrxCCDzSQUGxJY0hzNUFpNmc".
cJsonResponse := oRest:FullRequestString("POST", "/drive/v2/files/0By-hrxCCDzSQUGxJY0hzNUFpNmc/permissions", oJson:Emit())
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oGAuth:destroy()
    oRest:destroy()
    oJson:destroy()
    RETURN
ENDIF

//  A successful response will have a status code equal to 200.
IF (oRest:ResponseStatusCode != 200)
    ? "response status code = " + Str(oRest:ResponseStatusCode)
    ? "response status text = " + oRest:ResponseStatusText
    ? "response header: " + oRest:ResponseHeader
    ? "response JSON: " + cJsonResponse
    oGAuth:destroy()
    oRest:destroy()
    oJson:destroy()
    RETURN
ENDIF

//  Show the JSON response.
oJson:Load(cJsonResponse)

//  Show the full JSON response.
oJson:EmitCompact := 0
? oJson:Emit()

? "Success."

oGAuth:destroy()
oRest:destroy()
oJson:destroy()