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 Large DirectoryDemonstrates how to get the entire collection of DriveItem children when the collection is large and multiple pages need to be requested. To test this example, I created a DriveItem with 450 children. 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' -- This example will get the DriveItems in /lots-of-files, which has 450 children.. DECLARE @success int EXEC sp_OAMethod @http, 'SetUrlVar', @success OUT, 'item_path', '/lots-of-files' DECLARE @resp nvarchar(4000) DECLARE @i int DECLARE @numItems int DECLARE @json int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @json OUT EXEC sp_OASetProperty @json, 'EmitCompact', 0 -- This loop will download DriveItems in sets of 50 until no more exist. DECLARE @bGetMore int SELECT @bGetMore = 1 -- (Add the $top query parameter to define the page size, i.e. the max number of results to return). DECLARE @nextLink nvarchar(4000) SELECT @nextLink = 'https://graph.microsoft.com/v1.0/me/drive/root:{$item_path}:/children?$top=50' WHILE (@bGetMore = 1) BEGIN -- Get the next chunk of DriveItems EXEC sp_OAMethod @http, 'QuickGetStr', @resp OUT, @nextLink 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 EXEC @hr = sp_OADestroy @json RETURN END -- The response should be JSON. 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 -- Iterate over the DriveItems in the JSON response: SELECT @i = 0 EXEC sp_OAMethod @json, 'SizeOfArray', @numItems OUT, 'value' WHILE @i < @numItems BEGIN EXEC sp_OASetProperty @json, 'I', @i EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].name' PRINT 'name: ' + @sTmp0 SELECT @i = @i + 1 END -- If a nextLink was included in the JSON, use it to get the next set of 50 DriveItems. -- Otherwise, exit the loop. EXEC sp_OAMethod @json, 'HasMember', @iTmp0 OUT, '"@odata.nextLink"' IF @iTmp0 = 1 BEGIN EXEC sp_OAMethod @json, 'StringOf', @nextLink OUT, '"@odata.nextLink"' PRINT 'nextLink: ' + @nextLink END ELSE BEGIN SELECT @bGetMore = 0 END END EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @json END GO |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.