Sample code for 30+ languages & platforms
Delphi DLL

Microsoft Teams - Create Team (complex request)

See more Microsoft Teams Examples

Create a team with multiple channels, installed apps, and pinned tabs using delegated permissions

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL
Delphi DLL 
uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
json: HCkJsonObject;
resp: HCkHttpResponse;

begin
success := False;

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

http := CkHttp_Create();

// Build the following HTTP request:

// POST https://graph.microsoft.com/v1.0/teams
// Content-Type: application/json
// 
// {
//     "template@odata.bind": "https://graph.microsoft.com/v1.0/teamsTemplates('standard')",
//     "visibility": "Private",
//     "displayName": "Sample Engineering Team",
//     "description": "This is a sample engineering team, used to showcase the range of properties supported by this API",
//     "channels": [
//         {
//             "displayName": "Announcements",
//             "isFavoriteByDefault": true,
//             "description": "This is a sample announcements channel that is favorited by default. Use this channel to make important team, product, and service announcements."
//         },
//         {
//             "displayName": "Training",
//             "isFavoriteByDefault": true,
//             "description": "This is a sample training channel, that is favorited by default, and contains an example of pinned website and YouTube tabs.",
//             "tabs": [
//                 {
//                     "teamsApp@odata.bind": "https://graph.microsoft.com/v1.0/appCatalogs/teamsApps('com.microsoft.teamspace.tab.web')",
//                     "name": "A Pinned Website",
//                     "configuration": {
//                         "contentUrl": "https://docs.microsoft.com/microsoftteams/microsoft-teams"
//                     }
//                 },
//                 {
//                     "teamsApp@odata.bind": "https://graph.microsoft.com/v1.0/appCatalogs/teamsApps('com.microsoft.teamspace.tab.youtube')",
//                     "name": "A Pinned YouTube Video",
//                     "configuration": {
//                         "contentUrl": "https://tabs.teams.microsoft.com/Youtube/Home/YoutubeTab?videoId=X8krAMdGvCQ",
//                         "websiteUrl": "https://www.youtube.com/watch?v=X8krAMdGvCQ"
//                     }
//                 }
//             ]
//         },
//         {
//             "displayName": "Planning",
//             "description": "This is a sample of a channel that is not favorited by default, these channels will appear in the more channels overflow menu.",
//             "isFavoriteByDefault": false
//         },
//         {
//             "displayName": "Issues and Feedback",
//             "description": "This is a sample of a channel that is not favorited by default, these channels will appear in the more channels overflow menu."
//         }
//     ],
//     "memberSettings": {
//         "allowCreateUpdateChannels": true,
//         "allowDeleteChannels": true,
//         "allowAddRemoveApps": true,
//         "allowCreateUpdateRemoveTabs": true,
//         "allowCreateUpdateRemoveConnectors": true
//     },
//     "guestSettings": {
//         "allowCreateUpdateChannels": false,
//         "allowDeleteChannels": false
//     },
//     "funSettings": {
//         "allowGiphy": true,
//         "giphyContentRating": "Moderate",
//         "allowStickersAndMemes": true,
//         "allowCustomMemes": true
//     },
//     "messagingSettings": {
//         "allowUserEditMessages": true,
//         "allowUserDeleteMessages": true,
//         "allowOwnerDeleteMessages": true,
//         "allowTeamMentions": true,
//         "allowChannelMentions": true
//     },
//     "discoverySettings": {
//         "showInTeamsSearchAndSuggestions": true
//     },
//     "installedApps": [
//         {
//             "teamsApp@odata.bind": "https://graph.microsoft.com/v1.0/appCatalogs/teamsApps('com.microsoft.teamspace.tab.vsts')"
//         },
//         {
//             "teamsApp@odata.bind": "https://graph.microsoft.com/v1.0/appCatalogs/teamsApps('1542629c-01b3-4a6d-8f76-1938b779e48d')"
//         }
//     ]
// }

// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON

json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'"template@odata.bind"','https://graph.microsoft.com/v1.0/teamsTemplates(''standard'')');
CkJsonObject_UpdateString(json,'visibility','Private');
CkJsonObject_UpdateString(json,'displayName','Sample Engineering Team');
CkJsonObject_UpdateString(json,'description','This is a sample engineering team, used to showcase the range of properties supported by this API');
CkJsonObject_UpdateString(json,'channels[0].displayName','Announcements');
CkJsonObject_UpdateBool(json,'channels[0].isFavoriteByDefault',True);
CkJsonObject_UpdateString(json,'channels[0].description','This is a sample announcements channel that is favorited by default. Use this channel to make important team, product, and service announcements.');
CkJsonObject_UpdateString(json,'channels[1].displayName','Training');
CkJsonObject_UpdateBool(json,'channels[1].isFavoriteByDefault',True);
CkJsonObject_UpdateString(json,'channels[1].description','This is a sample training channel, that is favorited by default, and contains an example of pinned website and YouTube tabs.');
CkJsonObject_UpdateString(json,'channels[1].tabs[0]."teamsApp@odata.bind"','https://graph.microsoft.com/v1.0/appCatalogs/teamsApps(''com.microsoft.teamspace.tab.web'')');
CkJsonObject_UpdateString(json,'channels[1].tabs[0].name','A Pinned Website');
CkJsonObject_UpdateString(json,'channels[1].tabs[0].configuration.contentUrl','https://docs.microsoft.com/microsoftteams/microsoft-teams');
CkJsonObject_UpdateString(json,'channels[1].tabs[1]."teamsApp@odata.bind"','https://graph.microsoft.com/v1.0/appCatalogs/teamsApps(''com.microsoft.teamspace.tab.youtube'')');
CkJsonObject_UpdateString(json,'channels[1].tabs[1].name','A Pinned YouTube Video');
CkJsonObject_UpdateString(json,'channels[1].tabs[1].configuration.contentUrl','https://tabs.teams.microsoft.com/Youtube/Home/YoutubeTab?videoId=X8krAMdGvCQ');
CkJsonObject_UpdateString(json,'channels[1].tabs[1].configuration.websiteUrl','https://www.youtube.com/watch?v=X8krAMdGvCQ');
CkJsonObject_UpdateString(json,'channels[2].displayName','Planning');
CkJsonObject_UpdateString(json,'channels[2].description','This is a sample of a channel that is not favorited by default, these channels will appear in the more channels overflow menu.');
CkJsonObject_UpdateBool(json,'channels[2].isFavoriteByDefault',False);
CkJsonObject_UpdateString(json,'channels[3].displayName','Issues and Feedback');
CkJsonObject_UpdateString(json,'channels[3].description','This is a sample of a channel that is not favorited by default, these channels will appear in the more channels overflow menu.');
CkJsonObject_UpdateBool(json,'memberSettings.allowCreateUpdateChannels',True);
CkJsonObject_UpdateBool(json,'memberSettings.allowDeleteChannels',True);
CkJsonObject_UpdateBool(json,'memberSettings.allowAddRemoveApps',True);
CkJsonObject_UpdateBool(json,'memberSettings.allowCreateUpdateRemoveTabs',True);
CkJsonObject_UpdateBool(json,'memberSettings.allowCreateUpdateRemoveConnectors',True);
CkJsonObject_UpdateBool(json,'guestSettings.allowCreateUpdateChannels',False);
CkJsonObject_UpdateBool(json,'guestSettings.allowDeleteChannels',False);
CkJsonObject_UpdateBool(json,'funSettings.allowGiphy',True);
CkJsonObject_UpdateString(json,'funSettings.giphyContentRating','Moderate');
CkJsonObject_UpdateBool(json,'funSettings.allowStickersAndMemes',True);
CkJsonObject_UpdateBool(json,'funSettings.allowCustomMemes',True);
CkJsonObject_UpdateBool(json,'messagingSettings.allowUserEditMessages',True);
CkJsonObject_UpdateBool(json,'messagingSettings.allowUserDeleteMessages',True);
CkJsonObject_UpdateBool(json,'messagingSettings.allowOwnerDeleteMessages',True);
CkJsonObject_UpdateBool(json,'messagingSettings.allowTeamMentions',True);
CkJsonObject_UpdateBool(json,'messagingSettings.allowChannelMentions',True);
CkJsonObject_UpdateBool(json,'discoverySettings.showInTeamsSearchAndSuggestions',True);
CkJsonObject_UpdateString(json,'installedApps[0]."teamsApp@odata.bind"','https://graph.microsoft.com/v1.0/appCatalogs/teamsApps(''com.microsoft.teamspace.tab.vsts'')');
CkJsonObject_UpdateString(json,'installedApps[1]."teamsApp@odata.bind"','https://graph.microsoft.com/v1.0/appCatalogs/teamsApps(''1542629c-01b3-4a6d-8f76-1938b779e48d'')');

CkHttp_SetRequestHeader(http,'Content-type','application/json');

// Adds the "Authorization: Bearer ACCESS_TOKEN" header.
CkHttp_putAuthToken(http,'ACCESS_TOKEN');

resp := CkHttpResponse_Create();
success := CkHttp_HttpJson(http,'POST','https://graph.microsoft.com/v1.0/teams',json,'application/json',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

// A successful response is indicated by a 202 response status code and an empty response body.
Memo1.Lines.Add('Response Status Code: ' + IntToStr(CkHttpResponse_getStatusCode(resp)));
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

if (CkHttpResponse_getStatusCode(resp) >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add('Failed.');
  end;

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkHttpResponse_Dispose(resp);

end;