(Visual FoxPro) Google Drive Insert Permission

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.

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

LOCAL lnSuccess
LOCAL loGAuth
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL loJson
LOCAL lcJsonResponse

lnSuccess = 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.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthGoogle')
loGAuth = CreateObject('Chilkat.AuthGoogle')
loGAuth.AccessToken = "GOOGLE-DRIVE-ACCESS-TOKEN"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect using TLS.
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("www.googleapis.com",443,1,lnBAutoReconnect)

* Provide the authentication credentials (i.e. the access token)
loRest.SetAuthGoogle(loGAuth)

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.AppendString("role","reader")
loJson.AppendString("type","user")
loJson.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".
lcJsonResponse = loRest.FullRequestString("POST","/drive/v2/files/0By-hrxCCDzSQUGxJY0hzNUFpNmc/permissions",loJson.Emit())
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loGAuth
    RELEASE loRest
    RELEASE loJson
    CANCEL
ENDIF

* A successful response will have a status code equal to 200.
IF (loRest.ResponseStatusCode <> 200) THEN
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response JSON: " + lcJsonResponse
    RELEASE loGAuth
    RELEASE loRest
    RELEASE loJson
    CANCEL
ENDIF

* Show the JSON response.
loJson.Load(lcJsonResponse)

* Show the full JSON response.
loJson.EmitCompact = 0
? loJson.Emit()

? "Success."

RELEASE loGAuth
RELEASE loRest
RELEASE loJson