Back to Collection Items
var
http: HCkHttp;
success: Boolean;
json: HCkJsonObject;
resp: HCkHttpResponse;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
id: PWideChar;
received: PWideChar;
v_Type: PWideChar;
DisplayName: PWideChar;
AvatarUrl: PWideChar;
contentType: PWideChar;
Text: PWideChar;
Lang: PWideChar;
sourceType: PWideChar;
i: Integer;
count_i: Integer;
begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := CkHttp_Create();
CkHttp_putBasicAuth(http,True);
CkHttp_putLogin(http,'username');
CkHttp_putPassword(http,'password');
// Use this online tool to generate code from sample JSON: Generate Code to Create JSON
// The following JSON is sent in the request body.
// {
// "author": {
// "type": "business",
// "displayName": "Steve",
// "avatarUrl": "https://www.gravatar.com/image.jpg"
// },
// "content": {
// "type": "text",
// "text": "Hello!"
// },
// "metadata": {
// "lang": "en-ca"
// }
// }
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'author.type','business');
CkJsonObject_UpdateString(json,'author.displayName','Steve');
CkJsonObject_UpdateString(json,'author.avatarUrl','https://www.gravatar.com/image.jpg');
CkJsonObject_UpdateString(json,'content.type','text');
CkJsonObject_UpdateString(json,'content.text','Hello!');
CkJsonObject_UpdateString(json,'metadata.lang','en-ca');
CkHttp_SetRequestHeader(http,'Content-Type','application/json');
resp := CkHttp_PostJson3(http,'https://domain.com/','application/json',json);
if (CkHttp_getLastMethodSuccess(http) = False) then
begin
Memo1.Lines.Add(CkHttp__lastErrorText(http));
Exit;
end;
sbResponseBody := CkStringBuilder_Create();
CkHttpResponse_GetBodySb(resp,sbResponseBody);
jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkJsonObject__emit(jResp));
respStatusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
begin
Memo1.Lines.Add('Response Header:');
Memo1.Lines.Add(CkHttpResponse__header(resp));
Memo1.Lines.Add('Failed.');
CkHttpResponse_Dispose(resp);
Exit;
end;
CkHttpResponse_Dispose(resp);
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "messages": [
// {
// "id": "5f748c1a2b5315fc007e7977",
// "received": "2020-09-30T13:46:02.733Z",
// "author": {
// "type": "business",
// "displayName": "Steve",
// "avatarUrl": "https://www.gravatar.com/image.jpg"
// },
// "content": {
// "type": "text",
// "text": "Hello!"
// },
// "metadata": {
// "lang": "en-ca"
// },
// "source": {
// "type": "api:conversations"
// }
// }
// ]
// }
// Sample code for parsing the JSON response...
// Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'messages');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
id := CkJsonObject__stringOf(jResp,'messages[i].id');
received := CkJsonObject__stringOf(jResp,'messages[i].received');
v_Type := CkJsonObject__stringOf(jResp,'messages[i].author.type');
DisplayName := CkJsonObject__stringOf(jResp,'messages[i].author.displayName');
AvatarUrl := CkJsonObject__stringOf(jResp,'messages[i].author.avatarUrl');
contentType := CkJsonObject__stringOf(jResp,'messages[i].content.type');
Text := CkJsonObject__stringOf(jResp,'messages[i].content.text');
Lang := CkJsonObject__stringOf(jResp,'messages[i].metadata.lang');
sourceType := CkJsonObject__stringOf(jResp,'messages[i].source.type');
i := i + 1;
end;
CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
Curl Command
curl -X POST
-u 'username:password'
-H "Content-Type: application/json"
-d '{
"author": {
"type": "business",
"displayName": "Steve",
"avatarUrl": "https://www.gravatar.com/image.jpg"
},
"content": {
"type": "text",
"text": "Hello!"
},
"metadata": {
"lang": "en-ca"
}
}'
https://domain.com/
Postman Collection Item JSON
{
"name": "Post Message",
"_postman_id": "28e280a8-5ef8-4ca0-90fc-788603ddd036",
"request": {
"method": "POST",
"header": [
{
"key": "Content-Type",
"value": "application/json"
}
],
"body": {
"mode": "raw",
"raw": "{\n \"author\": {\n \"type\": \"business\",\n \"displayName\": \"Steve\",\n \"avatarUrl\": \"https://www.gravatar.com/image.jpg\"\n },\n \"content\": {\n \"type\": \"text\",\n \"text\": \"Hello!\"\n },\n \"metadata\": {\n \"lang\": \"en-ca\"\n }\n}"
},
"url": "{{url}}/v2/apps/{{appId}}/conversations/{{conversationId}}/messages",
"description": "Send a message in a particular conversation."
},
"response": [
{
"id": "f660acde-ae81-4787-b433-18bf650ddef6",
"name": "Created",
"originalRequest": {
"method": "POST",
"header": [
{
"description": {
"content": "Added as a part of security scheme: bearer",
"type": "text/plain"
},
"key": "Authorization",
"value": "Bearer <token>"
}
],
"body": {
"mode": "raw",
"raw": "{\n \"author\": {\n \"type\": \"business\",\n \"displayName\": \"Steve\",\n \"avatarUrl\": \"https://www.gravatar.com/image.jpg\"\n },\n \"content\": {\n \"type\": \"text\",\n \"text\": \"Hello!\"\n },\n \"metadata\": {\n \"lang\": \"en-ca\"\n }\n}"
},
"url": {
"raw": "{{baseUrl}}/v2/apps/:appId/conversations/:conversationId/messages",
"host": [
"{{baseUrl}}"
],
"path": [
"v2",
"apps",
":appId",
"conversations",
":conversationId",
"messages"
],
"variable": [
{
"key": "appId"
},
{
"key": "conversationId"
}
]
}
},
"status": "Created",
"code": 201,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Content-Type",
"value": "application/json"
}
],
"cookie": [
],
"body": "{\n \"messages\": [\n {\n \"id\": \"5f748c1a2b5315fc007e7977\",\n \"received\": \"2020-09-30T13:46:02.733Z\",\n \"author\": {\n \"type\": \"business\",\n \"displayName\": \"Steve\",\n \"avatarUrl\": \"https://www.gravatar.com/image.jpg\"\n },\n \"content\": {\n \"type\": \"text\",\n \"text\": \"Hello!\"\n },\n \"metadata\": {\n \"lang\": \"en-ca\"\n },\n \"source\": {\n \"type\": \"api:conversations\"\n }\n }\n ]\n}"
}
]
}