B4X
B4X
Get File Metadata
See more Google Drive Examples
Gets a file's metadata or content by ID.See Google Drive Files get for additional details.
Chilkat B4X Downloads
Dim success As Boolean = False
success = True
' 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.
Dim gAuth As ChilkatAuthGoogle
gAuth.Initialize("gAuth")
gAuth.AccessToken = "GOOGLE-DRIVE-ACCESS-TOKEN"
Dim rest As ChilkatRest
rest.Initialize("rest")
' Connect using TLS.
' A single REST object, once connected, can be used for many Google Drive REST API calls.
' The auto-reconnect indicates that if the already-established HTTPS connection is closed,
' then it will be automatically re-established as needed.
Dim bAutoReconnect As Boolean = True
success = rest.Connect("www.googleapis.com", 443, True, bAutoReconnect)
' Provide the authentication credentials (i.e. the access token)
rest.SetAuthGoogle(gAuth)
' ------------------------------------------------------------------------------
' We need to send a GET request like this:
' GET https://www.googleapis.com/drive/v3/files/fileId
' The fileId is part of the path.
Dim sbPath As ChilkatStringBuilder
sbPath.Initialize
sbPath.Append("/drive/v3/files/")
' Assume we previously obtained the fileId for the file of interest...
sbPath.Append("0B53Q6OSTWYolbUF6WS1Gei1oalk")
' Indicate that we want ALL possible fields.
' If no fields are indicated, then only the basic fields are returned.
Dim allFields As String = "appProperties,capabilities,contentHints,createdTime,description,explicitlyTrashed,fileExtension,folderColorRgb,fullFileExtension,headRevisionId,iconLink,id,imageMediaMetadata,isAppAuthorized,kind,lastModifyingUser,md5Checksum,mimeType,modifiedByMeTime,modifiedTime,name,originalFilename,ownedByMe,owners,parents,permissions,properties,quotaBytesUsed,shared,sharedWithMeTime,sharingUser,size,spaces,starred,thumbnailLink,trashed,version,videoMediaMetadata,viewedByMe,viewedByMeTime,viewersCanCopyContent,webContentLink,webViewLink,writersCanShare"
rest.AddQueryParam("fields", allFields)
Dim jsonResponse As String = rest.FullRequestNoBody("GET", sbPath.GetAsString)
If rest.LastMethodSuccess <> True Then
Log(rest.LastErrorText)
Return
End If
' A successful response will have a status code equal to 200.
If rest.ResponseStatusCode <> 200 Then
Log("response status code = " & rest.ResponseStatusCode)
Log("response status text = " & rest.ResponseStatusText)
Log("response header: " & rest.ResponseHeader)
Log("response JSON: " & jsonResponse)
Return
End If
' ---------------------------------------------------
' Sample code for parsing this JSON is shown below...
' ---------------------------------------------------
' A successful response looks like this:
' {
' "kind": "drive#file",
' "id": "0B53Q6OSTWYolbUF6WS1Gei1oalk",
' "name": "penguins.jpg",
' "mimeType": "image/jpeg",
' "starred": false,
' "trashed": false,
' "explicitlyTrashed": false,
' "parents": [
' "0B53Q6OSTWYola296ODZUSm5GYU0"
' ],
' "spaces": [
' "drive"
' ],
' "version": "672",
' "webContentLink": "https://docs.google.com/a/chilkatcloud.com/uc?id=0B53Q6OSTWYolbUF6WS1Gei1oalk&export=download",
' "webViewLink": "https://drive.google.com/a/chilkatcloud.com/file/d/0B53Q6OSTWYolbUF6WS1Gei1oalk/view?usp=drivesdk",
' "iconLink": "https://ssl.gstatic.com/docs/doclist/images/icon_11_image_list.png",
' "thumbnailLink": "https://lh5.googleusercontent.com/uIV1dJdc8vsAQzaaIInpc9AV55AcdHhpM7fQeI2RN2qbCSnhjK9IDdNQAOTtkvjS9ZObqw=s220",
' "viewedByMe": true,
' "viewedByMeTime": "2016-10-08T12:38:02.258Z",
' "createdTime": "2016-10-08T12:38:02.258Z",
' "modifiedTime": "2016-10-08T12:38:02.258Z",
' "modifiedByMeTime": "2016-10-08T12:38:02.258Z",
' "owners": [
' {
' "kind": "drive#user",
' "displayName": "Matthew Smith",
' "me": true,
' "permissionId": "08366696655122259092",
' "emailAddress": "support@chilkatcloud.com"
' }
' ],
' "lastModifyingUser": {
' "kind": "drive#user",
' "displayName": "Matthew Smith",
' "me": true,
' "permissionId": "08366696655122259092",
' "emailAddress": "support@chilkatcloud.com"
' },
' "shared": false,
' "ownedByMe": true,
' "capabilities": {
' "canEdit": true,
' "canComment": true,
' "canShare": true,
' "canCopy": true,
' "canReadRevisions": true
' },
' "viewersCanCopyContent": true,
' "writersCanShare": true,
' "permissions": [
' {
' "kind": "drive#permission",
' "id": "08366696655122259092",
' "type": "user",
' "emailAddress": "support@chilkatcloud.com",
' "role": "owner",
' "displayName": "Matthew Smith"
' }
' ],
' "originalFilename": "penguins.jpg",
' "fullFileExtension": "jpg",
' "fileExtension": "jpg",
' "md5Checksum": "9d377b10ce778c4938b3c7e2c63a229a",
' "size": "777835",
' "quotaBytesUsed": "777835",
' "headRevisionId": "0B53Q6OSTWYolUUlHVFhHdFlXQ0R1aHZuT0tORTVzc2h5NnZjPQ",
' "imageMediaMetadata": {
' "width": 1024,
' "height": 768,
' "rotation": 0,
' "time": "2009:03:12 13:48:35"
' },
' "isAppAuthorized": false
' }
' Iterate over each file in the response and show the name, id, and mimeType.
Dim json As ChilkatJsonObject
json.Initialize
json.Load(jsonResponse)
' Show the full JSON response.
json.EmitCompact = False
Log(json.Emit)
Log("-")
' Demonstrate how to get pieces of information:
Log("Original Filename: " & json.StringOf("originalFilename"))
Dim wasLastModifiedUserMe As Boolean = json.BoolOf("lastModifyingUser.me")
Log("Was Last Modified by Me: " & wasLastModifiedUserMe)
' Assuming this is an image file...
Dim width As Int = json.IntOf("imageMediaMetadata.width")
Log("Image Width: " & width)
' Iterate over parents...
Dim i As Int
Dim numParents As Int = json.SizeOfArray("parents")
i = 0
Do While i < numParents
json.I = i
Log("Parent " & i & ": " & json.StringOf("parents[i]"))
i = i + 1
Loop
' Iterate over owners...
Dim numOwners As Int = json.SizeOfArray("owners")
i = 0
Do While i < numOwners
json.I = i
Log("Owner " & i & ": kind=" & json.StringOf("owners[i].kind") & " displayName=" & json.StringOf("owners[i].displayName"))
i = i + 1
Loop
' Iterate over permissions...
Dim numPermissions As Int = json.SizeOfArray("permissions")
i = 0
Do While i < numPermissions
json.I = i
Log("Permission " & i & ": kind=" & json.StringOf("permissions[i].kind") & " id=" & json.StringOf("permissions[i].id"))
i = i + 1
Loop