|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Google Drive - Build a Local Cache of MetadataThis example demonstrates how to download the metadata for all files in a Google Drive account to create a local filesystem cache with the information. The cache can be used to fetch information without having to query Google Drive.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% success = 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") set gAuth = Server.CreateObject("Chilkat.AuthGoogle") gAuth.AccessToken = "GOOGLE_DRIVE_ACCESS_TOKEN" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' Connect using TLS. bAutoReconnect = 1 success = rest.Connect("www.googleapis.com",443,1,bAutoReconnect) ' Provide the authentication credentials (i.e. the access token) success = rest.SetAuthGoogle(gAuth) ' ------------------------------------------------------------------- ' Initialize our cache object. Indicate the location of the root cache directory, and how many cache levels are to exist. ' For small caches (level 0) all cache files are in the root directory. ' For medium caches (level 1) cache files are located in 256 sub-directories from the root. ' For large caches (level 2) cache files are located in 256x256 sub-directories two levels down from the root. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cache") set gdCache = Server.CreateObject("Chilkat.Cache") gdCache.Level = 0 ' Use a root directory that makes sense on your operating system.. gdCache.AddRoot "C:/ckCache/googleDrive" ' If we are re-building the cache, we can first delete the entire contents of the cache. numCacheFilesDeleted = gdCache.DeleteAll() ' Create a date/time object with an time 7 days from the current date/time. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime") set dtExpire = Server.CreateObject("Chilkat.CkDateTime") success = dtExpire.SetFromCurrentSystemTime() success = dtExpire.AddDays(7) ' Indicate that we want ALL possible fields. ' If no fields are indicated, then only the basic fields are returned. allFields = "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" ' We're going to keep a master list of fileId's as we iterate over all the files in this Google Drive account. ' This master list will also be saved to the cache under the key "AllGoogleDriveFileIds". ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonMaster = Server.CreateObject("Chilkat.JsonObject") ' jsonMasterArr is a Chilkat.JsonArray Set jsonMasterArr = jsonMaster.AppendArray("fileIds") ' Also keep a list of file paths. ' jsonMasterPaths is a Chilkat.JsonArray Set jsonMasterPaths = jsonMaster.AppendArray("filePaths") ' The default page size is 100, with a max of 1000. success = rest.AddQueryParam("pageSize","200") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") ' Send the request for the 1st page. jsonResponse = rest.FullRequestNoBody("GET","/drive/v3/files") pageNumber = 1 bContinueLoop = rest.LastMethodSuccess And (rest.ResponseStatusCode = 200) Do While bContinueLoop = 1 Response.Write "<pre>" & Server.HTMLEncode( "---- Page " & pageNumber & " ----") & "</pre>" success = json.Load(jsonResponse) numFiles = json.SizeOfArray("files") i = 0 Do While i < numFiles ' Add this file ID to the master list. json.I = i success = jsonMasterArr.AddStringAt(-1,json.StringOf("files[i].id")) i = i + 1 Loop ' Get the next page of files. ' If the "nextPageToken" is present in the JSON response, then use it in the "pageToken" parameter ' for the next request. If no "nextPageToken" was present, then this was the last page of files. pageToken = json.StringOf("nextPageToken") bContinueLoop = 0 bHasMorePages = json.LastMethodSuccess If (bHasMorePages = 1) Then success = rest.ClearAllQueryParams() success = rest.AddQueryParam("pageSize","200") success = rest.AddQueryParam("pageToken",pageToken) jsonResponse = rest.FullRequestNoBody("GET","/drive/v3/files") bContinueLoop = rest.LastMethodSuccess And (rest.ResponseStatusCode = 200) pageNumber = pageNumber + 1 End If Loop ' Check to see if the above loop exited with errors... If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' Check to see if the above loop exited with errors... ' A successful response will have a status code equal to 200. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response status text = " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response header: " & rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response JSON: " & jsonResponse) & "</pre>" Response.End End If ' Iterate over the file IDs and download the metadata for each, saving each to the cache... ' Also, keep in-memory hash entries of the name and parent[0] so we can quickly ' build the path-->fileId cache entries. (Given that the Google Drive REST API uses ' fileIds, this gives us an easy way to lookup a fileId based on a filePath.) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Hashtable") set hashTable = Server.CreateObject("Chilkat.Hashtable") ' Set the capacity of the hash table to something reasonable for the number of files ' to be hashed. success = hashTable.ClearWithNewCapacity(521) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbPathForFileId = Server.CreateObject("Chilkat.StringBuilder") ' Used for storing the file name and parents[0] in the hashTable. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringArray") set saFileInfo = Server.CreateObject("Chilkat.StringArray") saFileInfo.Unique = 0 numFiles = jsonMaster.SizeOfArray("fileIds") i = 0 Do While i < numFiles jsonMaster.I = i fileId = jsonMaster.StringOf("fileIds[i]") success = sbPathForFileId.SetString("/drive/v3/files/") success = sbPathForFileId.Append(fileId) success = rest.ClearAllQueryParams() success = rest.AddQueryParam("fields",allFields) jsonResponse = rest.FullRequestNoBody("GET",sbPathForFileId.GetAsString()) If ((rest.LastMethodSuccess <> 1) Or (rest.ResponseStatusCode <> 200)) Then ' Force an exit of this loop.. numFiles = 0 End If ' Save this file's metadata to the local cache. ' The lookup key is the fileId. success = gdCache.SaveTextDt(fileId,dtExpire,"",jsonResponse) ' Get this file's name and parent[0], and put this information ' in our in-memory hashtable to be used below.. success = json.Load(jsonResponse) saFileInfo.Clear success = saFileInfo.Append(json.StringOf("name")) success = saFileInfo.Append(json.StringOf("parents[0]")) success = hashTable.AddStr(fileId,saFileInfo.Serialize()) Response.Write "<pre>" & Server.HTMLEncode( json.StringOf("name") & ", " & json.StringOf("parents[0]")) & "</pre>" i = i + 1 Loop ' Check to see if the above loop exited with errors... If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' Check to see if the above loop exited with errors... ' A successful response will have a status code equal to 200. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response status text = " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response header: " & rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response JSON: " & jsonResponse) & "</pre>" Response.End End If ' Now that all the fileId's are in the cache, let's build the directory path ' for each fileID. ' (Technically, a fileId can have multiple parents, which means it can be in multiple directories ' at once. This is only going to build directory paths following the 0'th parent ID in the parents list.) ' The directory path for files in "My Drive" will be just the filename. ' For files in sub-directories, the path will be relative, such as "subdir1/subdir2/something.pdf" ' Response.Write "<pre>" & Server.HTMLEncode( "---- building paths ----") & "</pre>" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbPath = Server.CreateObject("Chilkat.StringBuilder") numFiles = jsonMaster.SizeOfArray("fileIds") i = 0 Do While i < numFiles jsonMaster.I = i sbPath.Clear fileId = jsonMaster.StringOf("fileIds[i]") bFinished = 0 Do While (bFinished = 0) saFileInfo.Clear success = saFileInfo.AppendSerialized(hashTable.LookupStr(fileId)) ' Append this file or directory name. success = sbPath.Prepend(saFileInfo.GetString(0)) ' Get the parent fileId fileId = saFileInfo.GetString(1) ' If this fileId is not in the hashtable, then it's the fileId for "My Drive", and we are finished. If (hashTable.Contains(fileId) = 0) Then bFinished = 1 Else success = sbPath.Prepend("/") End If Loop Response.Write "<pre>" & Server.HTMLEncode( i & ": " & sbPath.GetAsString()) & "</pre>" ' Store the filePath --> fileId mapping in our local cache. fileId = jsonMaster.StringOf("fileIds[i]") success = gdCache.SaveTextDt(sbPath.GetAsString(),dtExpire,"",fileId) success = jsonMasterPaths.AddStringAt(-1,sbPath.GetAsString()) i = i + 1 Loop ' Save the master list of file IDs and file paths to the local cache. jsonMaster.EmitCompact = 0 strJsonMaster = jsonMaster.Emit() success = gdCache.SaveTextNoExpire("AllGoogleDriveFileIds","",strJsonMaster) Response.Write "<pre>" & Server.HTMLEncode( "JSON Master Record:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( strJsonMaster) & "</pre>" ' The JSON Master Cache Record looks something like this: ' An application can load the JSON master record and iterate over all the files ' in Google Drive by file ID, or by path. ' { ' "fileIds": [ ' "0B53Q6OSTWYolQlExSlBQT1phZXM", ' "0B53Q6OSTWYolVHRPVkxtYWFtZkk", ' "0B53Q6OSTWYolRGZEV3ZGUTZfNFk", ' "0B53Q6OSTWYolS2FXSjliMXQxSU0", ' "0B53Q6OSTWYolZUhxckMzb0dRMzg", ' "0B53Q6OSTWYolbUF6WS1Gei1oalk", ' "0B53Q6OSTWYola296ODZUSm5GYU0", ' "0B53Q6OSTWYolbTE3c3J5RHBUcHM", ' "0B53Q6OSTWYolTmhybWJSUGd5Q2c", ' "0B53Q6OSTWYolY2tPU1BnYW02T2c", ' "0B53Q6OSTWYolTTBBR2NvUE81Zzg", ' ], ' "filePaths": [ ' "testFolder/abc/123/pigs.json", ' "testFolder/starfish20.jpg", ' "testFolder/penguins2.jpg", ' "testFolder/starfish.jpg", ' "testFolder/abc/123/starfish.jpg", ' "testFolder/abc/123/penguins.jpg", ' "testFolder/abc/123", ' "testFolder/abc", ' "testFolder/testHello.txt", ' "testFolder", ' "helloWorld.txt", ' ] ' } Response.Write "<pre>" & Server.HTMLEncode( "Entire cache rebuilt...") & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.