(DataFlex) Microsoft Teams - Create Team (minimal request)

The following is an example of a minimal request to create a Team. By omitting other properties, the client is implicitly taking defaults from the pre-defined template represented by template.

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://docs.microsoft.com/en-us/graph/api/team-post?view=graph-rest-1.0&tabs=http#request

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vJson
    Handle hoJson
    Variant vResp
    Handle hoResp
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

    // This example assumes 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

    // To create a Microsoft Team, we want to send an HTTP request like the following:

    // POST https://graph.microsoft.com/v1.0/teams
    // Content-Type: application/json
    // 
    // {
    //   "template@odata.bind": "https://graph.microsoft.com/v1.0/teamsTemplates('standard')",
    //   "displayName": "My Sample Team",
    //   "description": "My Sample Team’s Description"
    // }

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson '"template@odata.bind"' "https://graph.microsoft.com/v1.0/teamsTemplates('standard')" To iSuccess
    Get ComUpdateString Of hoJson "displayName" "My Sample Team" To iSuccess
    Get ComUpdateString Of hoJson "description" "My Sample Team’s Description" To iSuccess

    // Adds the "Authorization: Bearer ACCESS_TOKEN" header.
    Set ComAuthToken Of hoHttp To "ACCESS_TOKEN"

    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoJson to vJson
    Get pvComObject of hoResp to vResp
    Get ComHttpJson Of hoHttp "POST" "https://graph.microsoft.com/v1.0/teams" vJson "application/json" vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A successful response is indicated by a 202 response status code and an empty response body.
    Get ComStatusCode Of hoResp To iTemp1
    Showln "Response Status Code: " iTemp1
    Showln "Response Body:"
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1

    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 >= 400) Begin
        Showln "Response Header:"
        Get ComHeader Of hoResp To sTemp1
        Showln sTemp1
        Showln "Failed."
    End



End_Procedure