PureBasic / Creatio API / $select parameter
Back to Collection Items
IncludeFile "CkJsonObject.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpResponse.pb"
Procedure ChilkatExample()
; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success.i
queryParams.i = CkJsonObject::ckCreate()
If queryParams.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckUpdateString(queryParams,"$select","Field1,Field2")
CkHttp::ckSetRequestHeader(http,"ForceUseSession","true")
CkHttp::ckSetRequestHeader(http,"BPMCSRF","{{BPMCSRF}}")
resp.i = CkHttp::ckQuickRequestParams(http,"GET","https://myserver.com/0/odata/Collection1",queryParams)
If CkHttp::ckLastMethodSuccess(http) = 0
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(queryParams)
ProcedureReturn
EndIf
sbResponseBody.i = CkStringBuilder::ckCreate()
If sbResponseBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkHttpResponse::ckGetBodySb(resp,sbResponseBody)
jResp.i = CkJsonObject::ckCreate()
If jResp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckLoadSb(jResp,sbResponseBody)
CkJsonObject::setCkEmitCompact(jResp, 0)
Debug "Response Body:"
Debug CkJsonObject::ckEmit(jResp)
respStatusCode.i = CkHttpResponse::ckStatusCode(resp)
Debug "Response Status Code = " + Str(respStatusCode)
If respStatusCode >= 400
Debug "Response Header:"
Debug CkHttpResponse::ckHeader(resp)
Debug "Failed."
CkHttpResponse::ckDispose(resp)
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(queryParams)
CkStringBuilder::ckDispose(sbResponseBody)
CkJsonObject::ckDispose(jResp)
ProcedureReturn
EndIf
CkHttpResponse::ckDispose(resp)
; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)
; {
; "@odata.context": "https://myserver.com/0/odata/$metadata#Employee(Name,FullJobTitle)",
; "value": [
; {
; "Name": "William Walker",
; "FullJobTitle": "Developer"
; },
; {
; "Name": "Timothy Sawyer",
; "FullJobTitle": "Developer"
; },
; {
; "Name": "Symon Clarke",
; "FullJobTitle": "Marketing manager"
; },
; {
; "Name": "Mary King",
; "FullJobTitle": "Customer manager"
; },
; {
; "Name": "Sarah M. Richards",
; "FullJobTitle": "Head of accounting department"
; },
; {
; "Name": "Valerie E. Murphy",
; "FullJobTitle": "Head of marketing department"
; },
; {
; "Name": "Jason Robinson",
; "FullJobTitle": "Specialist"
; },
; {
; "Name": "Megan Lewis",
; "FullJobTitle": "Customer manager"
; },
; {
; "Name": "Peter Moore",
; "FullJobTitle": "Head of development department"
; },
; {
; "Name": "Caleb Jones",
; "FullJobTitle": "CEO"
; },
; {
; "Name": "John Best",
; "FullJobTitle": "Head of sales department"
; },
; {
; "Name": "Tiffany J. Martin",
; "FullJobTitle": "IT Support Engineer"
; },
; {
; "Name": "Tracy Wilkinson",
; "FullJobTitle": "Marketing manager"
; }
; ]
; }
; Sample code for parsing the JSON response...
; Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Name.s
FullJobTitle.s
odata_context.s = CkJsonObject::ckStringOf(jResp,Chr(34) + "@odata.context" + Chr(34))
i.i = 0
count_i.i = CkJsonObject::ckSizeOfArray(jResp,"value")
While i < count_i
CkJsonObject::setCkI(jResp, i)
Name = CkJsonObject::ckStringOf(jResp,"value[i].Name")
FullJobTitle = CkJsonObject::ckStringOf(jResp,"value[i].FullJobTitle")
i = i + 1
Wend
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(queryParams)
CkStringBuilder::ckDispose(sbResponseBody)
CkJsonObject::ckDispose(jResp)
ProcedureReturn
EndProcedure
Curl Command
curl -G -d "$select=Field1,Field2"
-H "ForceUseSession: true"
-H "BPMCSRF: {{BPMCSRF}}"
https://myserver.com/0/odata/Collection1
Postman Collection Item JSON
{
"name": "$select parameter",
"request": {
"method": "GET",
"header": [
{
"key": "ForceUseSession",
"type": "text",
"value": "true"
},
{
"key": "BPMCSRF",
"type": "text",
"value": "{{BPMCSRF}}"
}
],
"url": {
"raw": "{{BaseURI}}/0/odata/{{CollectionName1}}?$select={{FieldName1}},{{FieldName2}}",
"host": [
"{{BaseURI}}"
],
"path": [
"0",
"odata",
"{{CollectionName1}}"
],
"query": [
{
"key": "$select",
"value": "{{FieldName1}},{{FieldName2}}"
}
]
},
"description": "Request for getting specific fields from an object collection instances via the [$select](http://docs.oasis-open.org/odata/odata/v4.01/odata-v4.01-part2-url-conventions.html#sec_SystemQueryOptionselect) parameter."
},
"response": [
{
"name": "[200] Gets object collection instances with selected fields",
"originalRequest": {
"method": "GET",
"header": [
{
"key": "Accept",
"type": "text",
"value": "application/json"
},
{
"key": "Content-Type",
"type": "text",
"value": "application/json; charset=utf-8"
},
{
"key": "ForceUseSession",
"type": "text",
"value": "true"
},
{
"key": "BPMCSRF",
"type": "text",
"value": "{{BPMCSRF}}"
}
],
"url": {
"raw": "https://myserver.com/0/odata/Employee?$select=Name,FullJobTitle",
"protocol": "https",
"host": [
"myserver",
"com"
],
"path": [
"0",
"odata",
"Employee"
],
"query": [
{
"key": "$select",
"value": "Name,FullJobTitle"
}
]
}
},
"status": "OK",
"code": 200,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Cache-Control",
"value": "no-cache"
},
{
"key": "Pragma",
"value": "no-cache"
},
{
"key": "Content-Type",
"value": "application/json; odata.metadata=minimal"
},
{
"key": "Expires",
"value": "-1"
},
{
"key": "Server",
"value": "Microsoft-IIS/10.0"
},
{
"key": "OData-Version",
"value": "4.0"
},
{
"key": "X-AspNet-Version",
"value": "4.0.30319"
},
{
"key": "X-Powered-By",
"value": "ASP.NET"
},
{
"key": "X-Frame-Options",
"value": "SAMEORIGIN"
},
{
"key": "X-Content-Type-Options",
"value": "nosniff"
},
{
"key": "Date",
"value": "Wed, 26 Feb 2020 14:51:34 GMT"
},
{
"key": "Content-Length",
"value": "884"
}
],
"cookie": [
],
"body": "{\n \"@odata.context\": \"https://myserver.com/0/odata/$metadata#Employee(Name,FullJobTitle)\",\n \"value\": [\n {\n \"Name\": \"William Walker\",\n \"FullJobTitle\": \"Developer\"\n },\n {\n \"Name\": \"Timothy Sawyer\",\n \"FullJobTitle\": \"Developer\"\n },\n {\n \"Name\": \"Symon Clarke\",\n \"FullJobTitle\": \"Marketing manager\"\n },\n {\n \"Name\": \"Mary King\",\n \"FullJobTitle\": \"Customer manager\"\n },\n {\n \"Name\": \"Sarah M. Richards\",\n \"FullJobTitle\": \"Head of accounting department\"\n },\n {\n \"Name\": \"Valerie E. Murphy\",\n \"FullJobTitle\": \"Head of marketing department\"\n },\n {\n \"Name\": \"Jason Robinson\",\n \"FullJobTitle\": \"Specialist\"\n },\n {\n \"Name\": \"Megan Lewis\",\n \"FullJobTitle\": \"Customer manager\"\n },\n {\n \"Name\": \"Peter Moore\",\n \"FullJobTitle\": \"Head of development department\"\n },\n {\n \"Name\": \"Caleb Jones\",\n \"FullJobTitle\": \"CEO\"\n },\n {\n \"Name\": \"John Best\",\n \"FullJobTitle\": \"Head of sales department\"\n },\n {\n \"Name\": \"Tiffany J. Martin\",\n \"FullJobTitle\": \"IT Support Engineer\"\n },\n {\n \"Name\": \"Tracy Wilkinson\",\n \"FullJobTitle\": \"Marketing manager\"\n }\n ]\n}"
}
]
}
