Chilkat Online Tools

delphiAx / Commercetools / Create Customer

Back to Collection Items

var
http: TChilkatHttp;
success: Integer;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
resp: IChilkatHttpResponse;

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

http := TChilkatHttp.Create(Self);

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

// The following JSON is sent in the request body.

// {
//   "email": "<random>@example.com",
//   "firstName": "John",
//   "lastName": "Doe",
//   "password": "secret123"
// }

json := TChilkatJsonObject.Create(Self);
json.UpdateString('email','<random>@example.com');
json.UpdateString('firstName','John');
json.UpdateString('lastName','Doe');
json.UpdateString('password','secret123');

// Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken := '<access_token>';
http.SetRequestHeader('Content-Type','application/json');

sbRequestBody := TChilkatStringBuilder.Create(Self);
json.EmitSb(sbRequestBody.ControlInterface);

resp := http.PTextSb('post','https://domain.com/{{project-key}}/customers',sbRequestBody.ControlInterface,'utf-8','application/json',0,0);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add(IntToStr(resp.StatusCode));
Memo1.Lines.Add(resp.BodyStr);

Curl Command

curl -X post
	-H "Authorization: Bearer <access_token>"
	-H "Content-Type: application/json"
	-d '{
  "email" : "<random>@example.com",
  "firstName" : "John",
  "lastName" : "Doe",
  "password" : "secret123"
}'
https://domain.com/{{project-key}}/customers

Postman Collection Item JSON

{
  "name": "Create Customer",
  "event": [
    {
      "listen": "test",
      "script": {
        "type": "text/javascript",
        "exec": [
          "tests[\"Status code \" + responseCode.code] = responseCode.code === 200 || responseCode.code === 201;",
          "var data = JSON.parse(responseBody);",
          "if(data.results && data.results[0] && data.results[0].id && data.results[0].version){",
          "    pm.environment.set(\"customer-id\", data.results[0].id); ",
          "    pm.environment.set(\"customer-version\", data.results[0].version);",
          "}",
          "if(data.results && data.results[0] && data.results[0].key){",
          "    pm.environment.set(\"customer-key\", data.results[0].key); ",
          "}",
          "if(data.version){",
          "    pm.environment.set(\"customer-version\", data.version);",
          "}",
          "if(data.id){",
          "    pm.environment.set(\"customer-id\", data.id); ",
          "}",
          "if(data.key){",
          "    pm.environment.set(\"customer-key\", data.key);",
          "}",
          ""
        ]
      }
    }
  ],
  "request": {
    "auth": {
      "type": "oauth2",
      "oauth2": {
        "accessToken": "{{ctp_access_token}}",
        "addTokenTo": "header",
        "tokenType": "Bearer"
      }
    },
    "method": "post",
    "header": [
      {
        "key": "Content-Type",
        "value": "application/json"
      }
    ],
    "url": {
      "raw": "{{host}}/{{project-key}}/customers",
      "host": [
        "{{host}}"
      ],
      "path": [
        "{{project-key}}",
        "customers"
      ],
      "query": [
        {
          "key": "expand",
          "value": "",
          "equals": true,
          "disabled": true
        }
      ]
    },
    "description": "Creates a customer. If an anonymous cart is passed in,\nthen the cart is assigned to the created customer and the version number of the Cart will increase.\nIf the ID of an anonymous session is given, all carts and orders will be assigned to the created customer.\n",
    "body": {
      "mode": "raw",
      "raw": "{\n  \"email\" : \"<random>@example.com\",\n  \"firstName\" : \"John\",\n  \"lastName\" : \"Doe\",\n  \"password\" : \"secret123\"\n}"
    }
  },
  "response": [
  ]
}