(DataFlex) OneDrive -- List Large Directory

Demonstrates 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoHttp
    String sResp
    Integer i
    Integer iNumItems
    Handle hoJson
    Boolean iBGetMore
    String sNextLink
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    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.)
    Set ComAuthToken Of hoHttp To "MICROSOFT_GRAPH_ACCESS_TOKEN"

    // This example will get the DriveItems in /lots-of-files, which has 450 children..
    Get ComSetUrlVar Of hoHttp "item_path" "/lots-of-files" To iSuccess

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Set ComEmitCompact Of hoJson To False

    // This loop will download DriveItems in sets of 50 until no more exist.
    Move True To iBGetMore
    // (Add the $top query parameter to define the page size, i.e. the max number of results to return).
    Move "https://graph.microsoft.com/v1.0/me/drive/root:{$item_path}:/children?$top=50" To sNextLink

    While (iBGetMore = True)

        // Get the next chunk of DriveItems
        Get ComQuickGetStr Of hoHttp sNextLink To sResp
        Get ComLastMethodSuccess Of hoHttp To bTemp1
        If (bTemp1 <> True) Begin
            Get ComLastErrorText Of hoHttp To sTemp1
            Showln sTemp1
            Procedure_Return
        End

        // The response should be JSON.
        Get ComLoad Of hoJson sResp To iSuccess

        // A successful response should return a status code of 200.
        Get ComLastStatus Of hoHttp To iTemp1
        If (iTemp1 <> 200) Begin
            Get ComEmit Of hoJson To sTemp1
            Showln sTemp1
            Get ComLastStatus Of hoHttp To iTemp1
            Showln "Response status = " iTemp1
            Procedure_Return
        End

        // Iterate over the DriveItems in the JSON response:
        Move 0 To i
        Get ComSizeOfArray Of hoJson "value" To iNumItems
        While (i < iNumItems)
            Set ComI Of hoJson To i
            Get ComStringOf Of hoJson "value[i].name" To sTemp1
            Showln "name: " sTemp1
            Move i + 1 To i
        Loop

        // If a nextLink was included in the JSON, use it to get the next set of 50 DriveItems.
        // Otherwise, exit the loop.
        Get ComHasMember Of hoJson '"@odata.nextLink"' To bTemp1
        If (bTemp1 = True) Begin
            Get ComStringOf Of hoJson '"@odata.nextLink"' To sNextLink
            Showln "nextLink: " sNextLink
        End
        Else Begin
            Move False To iBGetMore
        End

    Loop



End_Procedure