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 DrivesExample to retrieve the list of Drive resources available for a target User or Group. 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.) DECLARE @jsonToken int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @jsonToken OUT DECLARE @success int EXEC sp_OAMethod @jsonToken, 'LoadFile', @success OUT, 'qa_data/tokens/oneDrive.json' IF @success = 0 BEGIN EXEC sp_OAGetProperty @jsonToken, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @jsonToken RETURN END EXEC sp_OAMethod @jsonToken, 'StringOf', @sTmp0 OUT, 'access_token' EXEC sp_OASetProperty @http, 'AuthToken', @sTmp0 -- Sends the following GET request: -- GET https://graph.microsoft.com/v1.0/me/drives DECLARE @resp nvarchar(4000) EXEC sp_OAMethod @http, 'QuickGetStr', @resp OUT, 'https://graph.microsoft.com/v1.0/me/drives' 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 @jsonToken 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 @jsonToken EXEC @hr = sp_OADestroy @json RETURN END EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT PRINT @sTmp0 -- Sample output: -- { -- "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#drives", -- "value": [ -- { -- "id": "3a33fceb9b74cc15", -- "driveType": "personal", -- "owner": { -- "user": { -- "displayName": "Matt Smith", -- "id": "3a33fceb9b74cc15" -- } -- }, -- "quota": { -- "deleted": 0, -- "remaining": 1114571275977, -- "state": "normal", -- "total": 1115617755136, -- "used": 1046479159 -- } -- } -- ] -- } -- Iterate over the drives in the JSON response: DECLARE @i int SELECT @i = 0 DECLARE @numDrives int EXEC sp_OAMethod @json, 'SizeOfArray', @numDrives OUT, 'value' WHILE @i < @numDrives BEGIN EXEC sp_OASetProperty @json, 'I', @i PRINT '-- Drive ' + @i + 1 EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].id' PRINT 'id: ' + @sTmp0 -- The size will be a number larger than what can fit in a 32-bit integer. -- Get the integer as a string.. EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'value[i].quota.total' PRINT 'total: ' + @sTmp0 SELECT @i = @i + 1 END EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @jsonToken EXEC @hr = sp_OADestroy @json END GO |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.