Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New Chilkat.Http
Dim success As Boolean
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim sbResponseBody As New Chilkat.StringBuilder
success = http.QuickGetSb("https://domain.com/services/data/v{{version}}/tooling/sobjects/PlatformEventChannelMember/:PLATFORM_EVENT_CHANNEL_MEMBER_ID",sbResponseBody)
If (success = False) Then
Debug.WriteLine(http.LastErrorText)
Exit Sub
End If
Dim jResp As New Chilkat.JsonObject
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False
Debug.WriteLine("Response Body:")
Debug.WriteLine(jResp.Emit())
Dim respStatusCode As Integer = http.LastStatus
Debug.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
Debug.WriteLine("Response Header:")
Debug.WriteLine(http.LastHeader)
Debug.WriteLine("Failed.")
Exit Sub
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "attributes": {
' "type": "PlatformEventChannelMember",
' "url": "/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000PAvIQAW"
' },
' "Id": "0v84H000000PAvIQAW",
' "IsDeleted": false,
' "DeveloperName": "ChangeEvents_ContactChangeEvent",
' "Language": "en_US",
' "MasterLabel": "ContactChangeEvent",
' "NamespacePrefix": null,
' "ManageableState": "unmanaged",
' "CreatedDate": "2022-12-30T15:10:39.000+0000",
' "CreatedById": "00558000000yFyDAAU",
' "LastModifiedDate": "2022-12-30T15:10:39.000+0000",
' "LastModifiedById": "00558000000yFyDAAU",
' "SystemModstamp": "2022-12-30T15:10:39.000+0000",
' "FullName": "ChangeEvents_ContactChangeEvent",
' "Metadata": {
' "enrichedFields": [
' ],
' "eventChannel": "ChangeEvents",
' "filterExpression": null,
' "selectedEntity": "ContactChangeEvent",
' "urls": null
' },
' "EventChannel": "ChangeEvents",
' "SelectedEntity": "ContactChangeEvent",
' "FilterExpression": null
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim v_Type As String = jResp.StringOf("attributes.type")
Dim v_Url As String = jResp.StringOf("attributes.url")
Dim Id As String = jResp.StringOf("Id")
Dim IsDeleted As Boolean = jResp.BoolOf("IsDeleted")
Dim DeveloperName As String = jResp.StringOf("DeveloperName")
Dim Language As String = jResp.StringOf("Language")
Dim MasterLabel As String = jResp.StringOf("MasterLabel")
Dim NamespacePrefix As String = jResp.StringOf("NamespacePrefix")
Dim ManageableState As String = jResp.StringOf("ManageableState")
Dim CreatedDate As String = jResp.StringOf("CreatedDate")
Dim CreatedById As String = jResp.StringOf("CreatedById")
Dim LastModifiedDate As String = jResp.StringOf("LastModifiedDate")
Dim LastModifiedById As String = jResp.StringOf("LastModifiedById")
Dim SystemModstamp As String = jResp.StringOf("SystemModstamp")
Dim FullName As String = jResp.StringOf("FullName")
Dim EventChannel As String = jResp.StringOf("Metadata.eventChannel")
Dim FilterExpression As String = jResp.StringOf("Metadata.filterExpression")
Dim SelectedEntity As String = jResp.StringOf("Metadata.selectedEntity")
Dim Urls As String = jResp.StringOf("Metadata.urls")
EventChannel = jResp.StringOf("EventChannel")
SelectedEntity = jResp.StringOf("SelectedEntity")
FilterExpression = jResp.StringOf("FilterExpression")
Dim i As Integer = 0
Dim count_i As Integer = jResp.SizeOfArray("Metadata.enrichedFields")
While i < count_i
jResp.I = i
i = i + 1
End While
Curl Command
curl -X GET
-H "Authorization: Bearer <access_token>"
https://domain.com/services/data/v{{version}}/tooling/sobjects/PlatformEventChannelMember/:PLATFORM_EVENT_CHANNEL_MEMBER_ID
Postman Collection Item JSON
{
"name": "Get channel member",
"protocolProfileBehavior": {
"strictSSL": false,
"disableBodyPruning": true
},
"request": {
"method": "GET",
"header": [
],
"body": {
"mode": "raw",
"raw": "",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "{{_endpoint}}/services/data/v{{version}}/tooling/sobjects/PlatformEventChannelMember/:PLATFORM_EVENT_CHANNEL_MEMBER_ID",
"host": [
"{{_endpoint}}"
],
"path": [
"services",
"data",
"v{{version}}",
"tooling",
"sobjects",
"PlatformEventChannelMember",
":PLATFORM_EVENT_CHANNEL_MEMBER_ID"
],
"variable": [
{
"key": "PLATFORM_EVENT_CHANNEL_MEMBER_ID",
"value": ""
}
]
}
},
"response": [
{
"name": "Get channel member",
"originalRequest": {
"method": "GET",
"header": [
],
"body": {
"mode": "raw",
"raw": "",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "{{_endpoint}}/services/data/v{{version}}/tooling/sobjects/PlatformEventChannelMember/:PLATFORM_EVENT_CHANNEL_MEMBER_ID",
"host": [
"{{_endpoint}}"
],
"path": [
"services",
"data",
"v{{version}}",
"tooling",
"sobjects",
"PlatformEventChannelMember",
":PLATFORM_EVENT_CHANNEL_MEMBER_ID"
],
"variable": [
{
"key": "PLATFORM_EVENT_CHANNEL_MEMBER_ID",
"value": "0v84H000000PAvIQAW"
}
]
}
},
"status": "OK",
"code": 200,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Date",
"value": "Mon, 03 Jul 2023 13:17:20 GMT"
},
{
"key": "Strict-Transport-Security",
"value": "max-age=63072000; includeSubDomains"
},
{
"key": "X-Content-Type-Options",
"value": "nosniff"
},
{
"key": "X-Robots-Tag",
"value": "none"
},
{
"key": "Cache-Control",
"value": "no-cache,must-revalidate,max-age=0,no-store,private"
},
{
"key": "Sforce-Limit-Info",
"value": "api-usage=9/15000"
},
{
"key": "Last-Modified",
"value": "Fri, 30 Dec 2022 15:10:39 GMT"
},
{
"key": "Content-Type",
"value": "application/json;charset=UTF-8"
},
{
"key": "Vary",
"value": "Accept-Encoding"
},
{
"key": "Content-Encoding",
"value": "gzip"
},
{
"key": "Transfer-Encoding",
"value": "chunked"
}
],
"cookie": [
],
"body": "{\n \"attributes\": {\n \"type\": \"PlatformEventChannelMember\",\n \"url\": \"/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000PAvIQAW\"\n },\n \"Id\": \"0v84H000000PAvIQAW\",\n \"IsDeleted\": false,\n \"DeveloperName\": \"ChangeEvents_ContactChangeEvent\",\n \"Language\": \"en_US\",\n \"MasterLabel\": \"ContactChangeEvent\",\n \"NamespacePrefix\": null,\n \"ManageableState\": \"unmanaged\",\n \"CreatedDate\": \"2022-12-30T15:10:39.000+0000\",\n \"CreatedById\": \"00558000000yFyDAAU\",\n \"LastModifiedDate\": \"2022-12-30T15:10:39.000+0000\",\n \"LastModifiedById\": \"00558000000yFyDAAU\",\n \"SystemModstamp\": \"2022-12-30T15:10:39.000+0000\",\n \"FullName\": \"ChangeEvents_ContactChangeEvent\",\n \"Metadata\": {\n \"enrichedFields\": [],\n \"eventChannel\": \"ChangeEvents\",\n \"filterExpression\": null,\n \"selectedEntity\": \"ContactChangeEvent\",\n \"urls\": null\n },\n \"EventChannel\": \"ChangeEvents\",\n \"SelectedEntity\": \"ContactChangeEvent\",\n \"FilterExpression\": null\n}"
}
]
}
