Xbase++ Requires Chilkat v11.0.0+

Create Plan

See more Microsoft Tasks and Plans Examples

Demonstrates how to create a new plannerPlan.

See https://docs.microsoft.com/en-us/graph/api/planner-post-plans?view=graph-rest-1.0 for more information.

Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJsonToken
LOCAL oJson
LOCAL oResp
LOCAL cCreatedByApplicationId
LOCAL cCreatedByUserId
LOCAL cCreatedDateTime
LOCAL cOwner
LOCAL cTitle
LOCAL cId

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  The Microsoft Planner REST API requires an OAuth2 token with the Group.ReadWrite.All scope.
//  Use your previously obtained access token as shown here:
//     Get Microsoft Graph OAuth2 Access Token with Group.ReadWrite.All scope.

oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/msGraphGroup.json")
IF (nSuccess == 0)
    ? oJsonToken:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

oHttp:AuthToken := oJsonToken:StringOf("access_token")

//  Create a JSON body for the HTTP POST
//  Use this online tool to generate the code from sample JSON: 
//  Generate Code to Create JSON

//  {
//    "owner": "ebf3b108-5234-4e22-b93d-656d7dae5874",
//    "title": "title-value"
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("owner", "ebf3b108-5234-4e22-b93d-656d7dae5874")
oJson:UpdateString("title", "title-value")

//  POST the JSON to https://graph.microsoft.com/v1.0/planner/plans
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://graph.microsoft.com/v1.0/planner/plans", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

oJson:Load(oResp:BodyStr)
oJson:EmitCompact := 0

IF (oResp:StatusCode != 200)
    ? oJson:Emit()
    ? "Failed, response status code = " + Str(oResp:StatusCode)
    oHttp:destroy()
    oJsonToken:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

? oJson:Emit()

//  A sample response:
//  (See code for parsing this response below..)

//  {
//    "createdBy": {
//      "application": {
//        "id": "95e27074-6c4a-447a-aa24-9d718a0b86fa"
//      },
//      "user": {
//        "id": "ebf3b108-5234-4e22-b93d-656d7dae5874"
//      }
//    },
//    "createdDateTime": "2015-03-30T18:36:49.2407981Z",
//    "owner": "ebf3b108-5234-4e22-b93d-656d7dae5874",
//    "title": "title-value",
//    "id": "xqQg5FS2LkCp935s-FIFm2QAFkHM"
//  }

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

cCreatedByApplicationId := oJson:StringOf("createdBy.application.id")
cCreatedByUserId := oJson:StringOf("createdBy.user.id")
cCreatedDateTime := oJson:StringOf("createdDateTime")
cOwner := oJson:StringOf("owner")
cTitle := oJson:StringOf("title")
cId := oJson:StringOf("id")

? "Success."

oHttp:destroy()
oJsonToken:destroy()
oJson:destroy()
oResp:destroy()