Chilkat Online Tools

delphiAx / Creatio API / Authentication

Back to Collection Items

var
http: TChilkatHttp;
success: Integer;
json: TChilkatJsonObject;
resp: IChilkatHttpResponse;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
Code: Integer;
Message: WideString;
Exception: WideString;
PasswordChangeUrl: WideString;
RedirectUrl: WideString;

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.

// {
//   "UserName": "{{UserName}}",
//   "UserPassword": "{{UserPassword}}"
// }

json := TChilkatJsonObject.Create(Self);
json.UpdateString('UserName','{{UserName}}');
json.UpdateString('UserPassword','{{UserPassword}}');

http.SetRequestHeader('Content-Type','application/json; charset=utf-8');
http.SetRequestHeader('ForceUseSession','true');
http.SetRequestHeader('Accept','application/json');

resp := http.PostJson3('https://myserver.com/ServiceModel/AuthService.svc/Login','application/json; charset=utf-8',json.ControlInterface);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

sbResponseBody := TChilkatStringBuilder.Create(Self);
resp.GetBodySb(sbResponseBody.ControlInterface);

jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add('Failed.');

    Exit;
  end;

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

// {
//   "Code": 0,
//   "Message": "",
//   "Exception": null,
//   "PasswordChangeUrl": null,
//   "RedirectUrl": null
// }

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

Code := jResp.IntOf('Code');
Message := jResp.StringOf('Message');
Exception := jResp.StringOf('Exception');
PasswordChangeUrl := jResp.StringOf('PasswordChangeUrl');
RedirectUrl := jResp.StringOf('RedirectUrl');

Curl Command

curl -X POST
	-H "Accept: application/json"
	-H "Content-Type: application/json; charset=utf-8"
	-H "ForceUseSession: true"
	-d '{  
  "UserName":"{{UserName}}",
  "UserPassword":"{{UserPassword}}"
}'
https://myserver.com/ServiceModel/AuthService.svc/Login

Postman Collection Item JSON

{
  "name": "Authentication",
  "event": [
    {
      "listen": "test",
      "script": {
        "exec": [
          "pm.variables.set(\"BPMCSRF\", decodeURIComponent(postman.getResponseCookie(\"BPMCSRF\").value));"
        ],
        "type": "text/javascript"
      }
    }
  ],
  "request": {
    "auth": {
      "type": "noauth"
    },
    "method": "POST",
    "header": [
      {
        "key": "Accept",
        "type": "text",
        "value": "application/json"
      },
      {
        "key": "Content-Type",
        "name": "Content-Type",
        "value": "application/json; charset=utf-8",
        "type": "text"
      },
      {
        "key": "ForceUseSession",
        "type": "text",
        "value": "true"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{  \r\n  \"UserName\":\"{{UserName}}\",\r\n  \"UserPassword\":\"{{UserPassword}}\"\r\n}",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "{{BaseURI}}/ServiceModel/AuthService.svc/Login",
      "host": [
        "{{BaseURI}}"
      ],
      "path": [
        "ServiceModel",
        "AuthService.svc",
        "Login"
      ]
    },
    "description": "Request to the AuthService.svc authentication service."
  },
  "response": [
    {
      "name": "[200] Gets authentication cookies",
      "originalRequest": {
        "method": "POST",
        "header": [
          {
            "key": "Accept",
            "type": "text",
            "value": "application/json"
          },
          {
            "key": "Content-Type",
            "name": "Content-Type",
            "value": "application/json; charset=utf-8",
            "type": "text"
          },
          {
            "key": "ForceUseSession",
            "type": "text",
            "value": "true"
          }
        ],
        "body": {
          "mode": "raw",
          "raw": "{  \r\n  \"UserName\":\"User01\",\r\n  \"UserPassword\":\"User01\"\r\n}",
          "options": {
            "raw": {
              "language": "json"
            }
          }
        },
        "url": {
          "raw": "https://myserver.com/ServiceModel/AuthService.svc/Login",
          "protocol": "https",
          "host": [
            "myserver",
            "com"
          ],
          "path": [
            "ServiceModel",
            "AuthService.svc",
            "Login"
          ]
        }
      },
      "status": "OK",
      "code": 200,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "Cache-Control",
          "value": "private"
        },
        {
          "key": "Content-Type",
          "value": "application/json; charset=utf-8"
        },
        {
          "key": "Location",
          "value": "/0"
        },
        {
          "key": "Server",
          "value": "Microsoft-IIS/10.0"
        },
        {
          "key": "X-Terrasoft-UserCulture",
          "value": "ru-RU"
        },
        {
          "key": "X-AspNet-Version",
          "value": "4.0.30319"
        },
        {
          "key": "Set-Cookie",
          "value": ".ASPXAUTH=D74B814D5E2C4C7B124C94B2AB1E1302F6D5956D6E6FBAE08BB46BCC8EE6A05CC67319EBDA3EFFE035624C7BE0329F584FFBAF9AF70B24BFFEED44115327DE39867DEC44A579BBAF514AF3F5484AAE6CF5753E541F28F5E08A8773A4D9B7DC3C9A805AD9EDCFFA4D9789D80CEA5726760019DF7C5C5929C653C4AD24E77C7945822B89B921A1F16ADF6E0EF65FEDA6CE0FBA6EC830779059575B725C554A44AC1AF966572B75D243722FEB22A497901E6B7717D1CCF192428E52D76B6508A489889C70A1E9F5FEC03011347BAB1CAD3BC3DFA0E36B7B050929176FD43487D189BFFA4034D6D239C3DDE00D81800EA4847CED2C30DDA34F098FBF1E945671863822C1118E63A8F68AB8487E8B3C75EBE5AF7BD41BF7FA8E6C3741CDE6775A135C30708ED6436183357F43DDC2826A54CCA15246B4CF3C0D7C2AE53723590BBAE43B8EA120B73C7700C2AED5589D70877647ADB27159081626D0111F9902ECE4E79B357D0E; path=/; HttpOnly"
        },
        {
          "key": "Set-Cookie",
          "value": "BPMCSRF=Y4s3IaCGUaEwFcgkGKCbH.; path=/"
        },
        {
          "key": "Set-Cookie",
          "value": "UserName=83|117|112|101|114|118|105|115|111|114; expires=Sat, 09-May-2020 11:14:30 GMT; path=/; HttpOnly"
        },
        {
          "key": "X-Powered-By",
          "value": "ASP.NET"
        },
        {
          "key": "X-Frame-Options",
          "value": "SAMEORIGIN"
        },
        {
          "key": "X-Content-Type-Options",
          "value": "nosniff"
        },
        {
          "key": "Date",
          "value": "Thu, 09 Apr 2020 11:14:30 GMT"
        },
        {
          "key": "Content-Length",
          "value": "84"
        }
      ],
      "cookie": [
      ],
      "body": "{\n    \"Code\": 0,\n    \"Message\": \"\",\n    \"Exception\": null,\n    \"PasswordChangeUrl\": null,\n    \"RedirectUrl\": null\n}"
    }
  ]
}