(Visual FoxPro) OneNote - Create Section

Creates a new notebook section in Microsoft OneNote

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

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

LOCAL loHttp
LOCAL lnSuccess
LOCAL loJson
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcOdata_context
LOCAL lcId
LOCAL lcSelf
LOCAL lcCreatedDateTime
LOCAL lcDisplayName
LOCAL lcLastModifiedDateTime
LOCAL lnIsDefault
LOCAL lcPagesUrl
LOCAL lcCreatedByUserId
LOCAL lcCreatedByUserDisplayName
LOCAL lcLastModifiedByUserId
LOCAL lcLastModifiedByUserDisplayName

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl -X POST https://graph.microsoft.com/v1.0/me/onenote/notebooks/{notebook_id}/sections \
*   -H 'authorization: Bearer ACCESS_TOKEN' 
*   -H "Content-type: application/json" \
*   -d '{
*   "displayName": "Section name"
* }'

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

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

* The following JSON is sent in the request body.

* {
*   "displayName": "Ddd"
* }

* Create a new section named "Ddd"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("displayName","Ddd")

loHttp.SetRequestHeader("Content-type","application/json")
* Adds the "Authorization: Bearer ACCESS_TOKEN" header.
loHttp.AuthToken = "ACCESS_TOKEN"

loHttp.SetUrlVar("notebook_id","0-3A33FCEB9B74CC15!20344")

loResp = loHttp.PostJson3("https://graph.microsoft.com/v1.0/me/onenote/notebooks/{$notebook_id}/sections","application/json",loJson)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loResp.GetBodySb(loSbResponseBody)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    RELEASE loJson
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

RELEASE loResp

* Sample JSON response:
* (Sample code for parsing the JSON response is shown below)

* {
*   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/onenote/notebooks('0-3A33FCEB9B74CC15%2120344')/sections/$entity",
*   "id": "0-3A33FCEB9B74CC15!20350",
*   "self": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/sections/0-3A33FCEB9B74CC15!20350",
*   "createdDateTime": "2020-10-22T23:22:30.673Z",
*   "displayName": "Ddd",
*   "lastModifiedDateTime": "2020-10-22T23:22:30.803Z",
*   "isDefault": false,
*   "pagesUrl": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/sections/0-3A33FCEB9B74CC15!20350/pages",
*   "createdBy": {
*     "user": {
*       "id": "3A33FCEB9B74CC15",
*       "displayName": "Matt Smith"
*     }
*   },
*   "lastModifiedBy": {
*     "user": {
*       "id": "3A33FCEB9B74CC15",
*       "displayName": "Matt Smith"
*     }
*   }
* }

* Sample code for parsing the JSON response...
* Use the following online tool to generate parsing code from sample JSON:
* Generate Parsing Code from JSON

lcOdata_context = loJResp.StringOf('"@odata.context"')
lcId = loJResp.StringOf("id")
lcSelf = loJResp.StringOf("self")
lcCreatedDateTime = loJResp.StringOf("createdDateTime")
lcDisplayName = loJResp.StringOf("displayName")
lcLastModifiedDateTime = loJResp.StringOf("lastModifiedDateTime")
lnIsDefault = loJResp.BoolOf("isDefault")
lcPagesUrl = loJResp.StringOf("pagesUrl")
lcCreatedByUserId = loJResp.StringOf("createdBy.user.id")
lcCreatedByUserDisplayName = loJResp.StringOf("createdBy.user.displayName")
lcLastModifiedByUserId = loJResp.StringOf("lastModifiedBy.user.id")
lcLastModifiedByUserDisplayName = loJResp.StringOf("lastModifiedBy.user.displayName")

RELEASE loHttp
RELEASE loJson
RELEASE loSbResponseBody
RELEASE loJResp