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
(SQL Server) OneDrive -- List Non-Root DirectoryThis gets the collection of DriveItem children for a non-root DriveItem. This is the same as for getting the children for the root DriveItem, except the URL includes the path to the desired non-root DriveItem. Note: This example requires Chilkat v9.5.0.68 or greater.
// Important: See this note about string length limitations for strings returned by sp_OAMethod calls. // CREATE PROCEDURE ChilkatSample AS BEGIN DECLARE @hr int DECLARE @iTmp0 int DECLARE @sTmp0 nvarchar(4000) -- This example requires the Chilkat API to have been previously unlocked. -- See Global Unlock Sample for sample code. DECLARE @http int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Http', @http OUT IF @hr <> 0 BEGIN PRINT 'Failed to create ActiveX component' RETURN END -- Use your previously obtained access token here: -- See the following examples for getting an access token: -- Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint). -- Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint). -- Refresh Access Token (Azure AD v2.0 Endpoint). -- Refresh Access Token (Azure AD Endpoint). -- (Make sure your token was obtained with the FilesRead or Files.ReadWrite scope.) EXEC sp_OASetProperty @http, 'AuthToken', 'MICROSOFT_GRAPH_ACCESS_TOKEN' -- Send a Get request like this: -- GET /me/drive/root:/{item-path}:/children -- This example will get the DriveItems in /Misc/old -- (In other words, we're getting the directory listing for /Misc/old.) DECLARE @success int EXEC sp_OAMethod @http, 'SetUrlVar', @success OUT, 'item_path', '/Misc/old' DECLARE @resp nvarchar(4000) EXEC sp_OAMethod @http, 'QuickGetStr', @resp OUT, 'https://graph.microsoft.com/v1.0/me/drive/root:{$item_path}:/children' EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT IF @iTmp0 <> 1 BEGIN EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @http RETURN END -- The response should be JSON. DECLARE @json int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @json OUT EXEC sp_OASetProperty @json, 'EmitCompact', 0 EXEC sp_OAMethod @json, 'Load', @success OUT, @resp -- A successful response should return a status code of 200. EXEC sp_OAGetProperty @http, 'LastStatus', @iTmp0 OUT IF @iTmp0 <> 200 BEGIN EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT PRINT @sTmp0 EXEC sp_OAGetProperty @http, 'LastStatus', @iTmp0 OUT PRINT 'Response status = ' + @iTmp0 EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @json RETURN END EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT PRINT @sTmp0 DECLARE @lastMod int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.CkDateTime', @lastMod OUT DECLARE @photoTaken int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.CkDateTime', @photoTaken OUT -- Iterate over the DriveItems in the JSON response: DECLARE @i int SELECT @i = 0 DECLARE @numItems int EXEC sp_OAMethod @json, 'SizeOfArray', @numItems OUT, 'value' WHILE @i < @numItems BEGIN EXEC sp_OASetProperty @json, 'I', @i PRINT '-- DriveItem ' + @i + 1 EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].id' PRINT 'id: ' + @sTmp0 EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].name' PRINT 'name: ' + @sTmp0 EXEC sp_OAMethod @json, 'IntOf', @iTmp0 OUT, 'value[i].size' PRINT 'size: ' + @iTmp0 -- Get the lastModifiedDateTime EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].fileSystemInfo.lastModifiedDateTime' EXEC sp_OAMethod @lastMod, 'SetFromTimestamp', @success OUT, @sTmp0 -- Is this a folder? EXEC sp_OAMethod @json, 'HasMember', @iTmp0 OUT, 'value[i].folder' IF @iTmp0 = 1 BEGIN EXEC sp_OAMethod @json, 'IntOf', @iTmp0 OUT, 'value[i].folder.childCount' PRINT 'This is a folder with ' + @iTmp0 + ' children' END EXEC sp_OAMethod @json, 'HasMember', @iTmp0 OUT, 'value[i].file' IF @iTmp0 = 1 BEGIN PRINT 'This is a file.' EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].file.hashes.sha1Hash' PRINT 'SHA1 hash: ' + @sTmp0 EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].mimeType' PRINT 'mimeType: ' + @sTmp0 END EXEC sp_OAMethod @json, 'HasMember', @iTmp0 OUT, 'value[i].image' IF @iTmp0 = 1 BEGIN PRINT 'This is an image.' EXEC sp_OAMethod @json, 'IntOf', @iTmp0 OUT, 'value[i].image.height' PRINT 'height: ' + @iTmp0 EXEC sp_OAMethod @json, 'IntOf', @iTmp0 OUT, 'value[i].image.width' PRINT 'width: ' + @iTmp0 END EXEC sp_OAMethod @json, 'HasMember', @iTmp0 OUT, 'value[i].photo' IF @iTmp0 = 1 BEGIN PRINT 'This is a photo.' EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].photo.takenDateTime' EXEC sp_OAMethod @photoTaken, 'SetFromTimestamp', @success OUT, @sTmp0 EXEC sp_OAMethod @photoTaken, 'GetAsRfc822', @sTmp0 OUT, 1 PRINT 'photo taken on ' + @sTmp0 END EXEC sp_OAMethod @json, 'HasMember', @iTmp0 OUT, 'value[i].audio' IF @iTmp0 = 1 BEGIN PRINT 'This is an audio file.' EXEC sp_OAMethod @json, 'IntOf', @iTmp0 OUT, 'value[i].audio.duration' PRINT 'duration: ' + @iTmp0 END SELECT @i = @i + 1 END EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @json EXEC @hr = sp_OADestroy @lastMod EXEC @hr = sp_OADestroy @photoTaken END GO |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.