Tcl

Retrieve the metadata for a DriveItem

See more OneDrive Examples

Fetches the JSON metadata for a DriveItem. Tcl

load ./chilkat.dll

set success 0

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# Use your client ID, client secret, and tenant ID in the following lines
set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "client_id" "2871da2c-8176-4b7f-869b-2311aa82e743"
CkJsonObject_UpdateString $json "client_secret" "2hu9Q~r5QuryUcEkNbg1btLtnfU1VUXzhSCG6brH"
CkJsonObject_UpdateString $json "scope" "https://graph.microsoft.com/.default"
CkJsonObject_UpdateString $json "token_endpoint" "https://login.microsoftonline.com/114d7ed6-71bf-4dbe-a866-748364121bf2/oauth2/v2.0/token"

set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkJsonObject_emit $json]

# Sends the following GET request:
# GET https://graph.microsoft.com/v1.0/users/{user-id}/drive/root:/{item-path}

# Make sure to automatically follow redirects
CkHttp_put_FollowRedirects $http 1

# This example will get the metadata for /Misc/wildlife/penguins.jpg
CkHttp_SetUrlVar $http "item_path" "Misc//penguins.jpg"
CkHttp_SetUrlVar $http "user_id" "4fe732c3-322e-4a6b-b729-2fd1eb5c6104"

set metaData [CkHttp_quickGetStr $http "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:/{$item_path}"]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $json
    delete_CkHttp $http
    exit
}

CkJsonObject_put_EmitCompact $json 0
set success [CkJsonObject_Load $json $metaData]
puts [CkJsonObject_emit $json]

# Sample JSON metadata result:

# {
#   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/drive/root/$entity",
#   "@microsoft.graph.downloadUrl": "https://public.dm.files.1drv.com/y4mh0z_Og97O7Q...o2q1HhNBU",
#   "createdDateTime": "2017-06-04T20:40:22.48Z",
#   "cTag": "aYzozQTMzRkNFQjlCNzRDQzE1ITQ4NzIuMjU3",
#   "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODcyLjY",
#   "id": "3A33FCEB9B74CC15!4872",
#   "lastModifiedDateTime": "2018-10-20T18:22:29.977Z",
#   "name": "penguins.jpg",
#   "size": 777835,
#   "webUrl": "https://1drv.ms/i/s!ABXMdJvr_DM6pgg",
#   "rating": {
#     "rating": 75,
#     "simpleRating": 4
#   },
#   "createdBy": {
#     "user": {
#       "displayName": "Joe Programmer",
#       "id": "3a33fceb9b74cc15"
#     }
#   },
#   "lastModifiedBy": {
#     "user": {
#       "displayName": "Joe Programmer",
#       "id": "3a33fceb9b74cc15"
#     }
#   },
#   "parentReference": {
#     "driveId": "3a33fceb9b74cc15",
#     "driveType": "personal",
#     "id": "3A33FCEB9B74CC15!4871",
#     "name": "wildlife",
#     "path": "/drive/root:/Misc/wildlife"
#   },
#   "file": {
#     "mimeType": "image/jpeg",
#     "hashes": {
#       "sha1Hash": "DF7BE9DC4F467187783ACA68C7CE98E4DF2172D0"
#     }
#   },
#   "fileSystemInfo": {
#     "createdDateTime": "2017-06-04T20:40:22.48Z",
#     "lastModifiedDateTime": "2009-07-14T05:32:31.674Z"
#   },
#   "image": {
#     "height": 768,
#     "width": 1024
#   },
#   "photo": {
#     "takenDateTime": "2008-02-18T05:07:31Z"
#   },
#   "shared": {
#     "scope": "users",
#     "owner": {
#       "user": {
#         "displayName": "Joe Programmer",
#         "id": "3a33fceb9b74cc15"
#       }
#     }
#   }
# }
# 

# If the response status code was not 200, then it failed.
if {[CkHttp_get_LastStatus $http] != 200} then {
    puts "Response Status Code = [CkHttp_get_LastStatus $http]"
    puts "Failed."
    delete_CkJsonObject $json
    delete_CkHttp $http
    exit
}

# Demonstrate how to parse the JSON...

set odata_context [CkJsonObject_stringOf $json "\"@odata.context\""]
set microsoft_graph_downloadUrl [CkJsonObject_stringOf $json "\"@microsoft.graph.downloadUrl\""]
set createdDateTime [CkJsonObject_stringOf $json "createdDateTime"]
set cTag [CkJsonObject_stringOf $json "cTag"]
set eTag [CkJsonObject_stringOf $json "eTag"]
set id [CkJsonObject_stringOf $json "id"]
set lastModifiedDateTime [CkJsonObject_stringOf $json "lastModifiedDateTime"]
set name [CkJsonObject_stringOf $json "name"]
set size [CkJsonObject_IntOf $json "size"]
set webUrl [CkJsonObject_stringOf $json "webUrl"]
set ratingRating [CkJsonObject_IntOf $json "rating.rating"]
set ratingSimpleRating [CkJsonObject_IntOf $json "rating.simpleRating"]
set createdByUserDisplayName [CkJsonObject_stringOf $json "createdBy.user.displayName"]
set createdByUserId [CkJsonObject_stringOf $json "createdBy.user.id"]
set lastModifiedByUserDisplayName [CkJsonObject_stringOf $json "lastModifiedBy.user.displayName"]
set lastModifiedByUserId [CkJsonObject_stringOf $json "lastModifiedBy.user.id"]
set parentReferenceDriveId [CkJsonObject_stringOf $json "parentReference.driveId"]
set parentReferenceDriveType [CkJsonObject_stringOf $json "parentReference.driveType"]
set parentReferenceId [CkJsonObject_stringOf $json "parentReference.id"]
set parentReferenceName [CkJsonObject_stringOf $json "parentReference.name"]
set parentReferencePath [CkJsonObject_stringOf $json "parentReference.path"]
set fileMimeType [CkJsonObject_stringOf $json "file.mimeType"]
set fileHashesSha1Hash [CkJsonObject_stringOf $json "file.hashes.sha1Hash"]
set fileSystemInfoCreatedDateTime [CkJsonObject_stringOf $json "fileSystemInfo.createdDateTime"]
set fileSystemInfoLastModifiedDateTime [CkJsonObject_stringOf $json "fileSystemInfo.lastModifiedDateTime"]
set imageHeight [CkJsonObject_IntOf $json "image.height"]
set imageWidth [CkJsonObject_IntOf $json "image.width"]
set photoTakenDateTime [CkJsonObject_stringOf $json "photo.takenDateTime"]
set sharedScope [CkJsonObject_stringOf $json "shared.scope"]
set sharedOwnerUserDisplayName [CkJsonObject_stringOf $json "shared.owner.user.displayName"]
set sharedOwnerUserId [CkJsonObject_stringOf $json "shared.owner.user.id"]

delete_CkJsonObject $json
delete_CkHttp $http