Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(PureBasic) 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 "firstname.lastname@example.org". (Don't send email to email@example.com, it's just use for testing and not interactively read.) I use "firstname.lastname@example.org" 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 "email@example.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.
IncludeFile "CkAuthGoogle.pb" IncludeFile "CkRest.pb" IncludeFile "CkJsonObject.pb" Procedure ChilkatExample() success.i = 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. gAuth.i = CkAuthGoogle::ckCreate() If gAuth.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkAuthGoogle::setCkAccessToken(gAuth, "GOOGLE-DRIVE-ACCESS-TOKEN") 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 token) CkRest::ckSetAuthGoogle(rest,gAuth) CkRest::ckAddHeader(rest,"Content-Type","application/json; charset=UTF-8") json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::ckAppendString(json,"role","reader") CkJsonObject::ckAppendString(json,"type","user") CkJsonObject::ckAppendString(json,"value","firstname.lastname@example.org") ; 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". jsonResponse.s = CkRest::ckFullRequestString(rest,"POST","/drive/v2/files/0By-hrxCCDzSQUGxJY0hzNUFpNmc/permissions",CkJsonObject::ckEmit(json)) If CkRest::ckLastMethodSuccess(rest) <> 1 Debug CkRest::ckLastErrorText(rest) CkAuthGoogle::ckDispose(gAuth) CkRest::ckDispose(rest) CkJsonObject::ckDispose(json) ProcedureReturn EndIf ; A successful response will have a status code equal to 200. If CkRest::ckResponseStatusCode(rest) <> 200 Debug "response status code = " + Str(CkRest::ckResponseStatusCode(rest)) Debug "response status text = " + CkRest::ckResponseStatusText(rest) Debug "response header: " + CkRest::ckResponseHeader(rest) Debug "response JSON: " + jsonResponse CkAuthGoogle::ckDispose(gAuth) CkRest::ckDispose(rest) CkJsonObject::ckDispose(json) ProcedureReturn EndIf ; Show the JSON response. CkJsonObject::ckLoad(json,jsonResponse) ; Show the full JSON response. CkJsonObject::setCkEmitCompact(json, 0) Debug CkJsonObject::ckEmit(json) Debug "Success." CkAuthGoogle::ckDispose(gAuth) CkRest::ckDispose(rest) CkJsonObject::ckDispose(json) ProcedureReturn EndProcedure
© 2000-2019 Chilkat Software, Inc. All Rights Reserved.