(Delphi DLL) Amazon Cognito - Create User Pool

See more Amazon Cognito Examples

Creates a new Amazon Cognito user pool and sets the password policy for the pool.

For more information, see https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_CreateUserPool.html

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, AuthAws, Rest, JsonObject, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jsonResponse: HCkJsonObject;

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

rest := CkRest_Create();

authAws := CkAuthAws_Create();
CkAuthAws_putAccessKey(authAws,'AWS_ACCESS_KEY');
CkAuthAws_putSecretKey(authAws,'AWS_SECRET_KEY');
// Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
CkAuthAws_putRegion(authAws,'us-west-2');
CkAuthAws_putServiceName(authAws,'cognito-idp');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);

// URL: https://cognito-idp.us-west-2.amazonaws.com/
bTls := True;
port := 443;
bAutoReconnect := True;
// Use the same region as specified above.
success := CkRest_Connect(rest,'cognito-idp.us-west-2.amazonaws.com',port,bTls,bAutoReconnect);
if (success <> True) then
  begin
    Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(CkRest_getConnectFailReason(rest)));
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// Note: The above code does not need to be repeatedly called for each REST request.
// The rest object can be setup once, and then many requests can be sent.  Chilkat will automatically
// reconnect within a FullRequest* method as needed.  It is only the very first connection that is explicitly
// made via the Connect method.

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

// The following JSON is sent in the request body.
// This example wil demonstrate creating a pool with many options specified.
// The only required JSON member is "PoolName".

// {
//     "AccountRecoverySetting": {
//       "RecoveryMechanisms": [
//         {
//           "Name": "verified_phone_number",
//           "Priority": 1
//         },
//         {
//           "Name": "verified_email",
//           "Priority": 2
//         }
//       ]
//     },
//     "AdminCreateUserConfig": {
//       "AllowAdminCreateUserOnly": false,
//       "InviteMessageTemplate": {
//         "EmailMessage": "Your username is {username} and temporary password is {####}. ",
//         "EmailSubject": "Your temporary password",
//         "SMSMessage": "Your username is {username} and temporary password is {####}. "
//       },
//       "TemporaryPasswordValidityDays": 7
//     },
//     "AutoVerifiedAttributes": [
//       "email",
//       "phone_number"
//     ],
//     "EmailConfiguration": {
//       "EmailSendingAccount": "DEVELOPER",
//       "From": "joe@example.com",
//       "ReplyToEmailAddress": "joe@example.com",
//       "SourceArn": "arn:aws:ses:us-west-2:954491834127:identity/joe@example.com"
//     },
//     "EmailVerificationMessage": "Your verification code is {####}. ",
//     "EmailVerificationSubject": "Your verification code",
//     "LambdaConfig": {},
//     "MfaConfiguration": "OFF",
//     "PoolName": "MyTestPool",
//     "Policies": {
//       "PasswordPolicy": {
//         "MinimumLength": 8,
//         "RequireLowercase": true,
//         "RequireNumbers": true,
//         "RequireSymbols": true,
//         "RequireUppercase": true,
//         "TemporaryPasswordValidityDays": 7
//       }
//     },
//     "Schema": [
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": false,
//         "Name": "sub",
//         "Required": true,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "1"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "name",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "given_name",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "family_name",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "middle_name",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "nickname",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "preferred_username",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "profile",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "picture",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "website",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "email",
//         "Required": true,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "Boolean",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "email_verified",
//         "Required": false
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "gender",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "birthdate",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "10",
//           "MinLength": "10"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "zoneinfo",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "locale",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "phone_number",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "String",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "address",
//         "Required": false,
//         "StringAttributeConstraints": {
//           "MaxLength": "2048",
//           "MinLength": "0"
//         }
//       },
//       {
//         "AttributeDataType": "Number",
//         "DeveloperOnlyAttribute": false,
//         "Mutable": true,
//         "Name": "updated_at",
//         "NumberAttributeConstraints": {
//           "MinValue": "0"
//         },
//         "Required": false
//       }
//     ],
//     "SmsAuthenticationMessage": "Your verification code is {####}. ",
//     "SmsConfiguration": {
//       "ExternalId": "94b17737-216b-4cf7-a29e-17e990e91300",
//       "SnsCallerArn": "arn:aws:iam::954491834127:role/service-role/chilkat-SMS-Role"
//     },
//     "SmsVerificationMessage": "Your verification code is {####}. ",
//     "UsernameConfiguration": {
//       "CaseSensitive": false
//     },
//     "VerificationMessageTemplate": {
//       "DefaultEmailOption": "CONFIRM_WITH_CODE",
//       "EmailMessage": "Your verification code is {####}. ",
//       "EmailSubject": "Your verification code",
//       "SmsMessage": "Your verification code is {####}. "
//     }
//   }
// 

json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'AccountRecoverySetting.RecoveryMechanisms[0].Name','verified_phone_number');
CkJsonObject_UpdateInt(json,'AccountRecoverySetting.RecoveryMechanisms[0].Priority',1);
CkJsonObject_UpdateString(json,'AccountRecoverySetting.RecoveryMechanisms[1].Name','verified_email');
CkJsonObject_UpdateInt(json,'AccountRecoverySetting.RecoveryMechanisms[1].Priority',2);
CkJsonObject_UpdateBool(json,'AdminCreateUserConfig.AllowAdminCreateUserOnly',False);
CkJsonObject_UpdateString(json,'AdminCreateUserConfig.InviteMessageTemplate.EmailMessage','Your username is {username} and temporary password is {####}. ');
CkJsonObject_UpdateString(json,'AdminCreateUserConfig.InviteMessageTemplate.EmailSubject','Your temporary password');
CkJsonObject_UpdateString(json,'AdminCreateUserConfig.InviteMessageTemplate.SMSMessage','Your username is {username} and temporary password is {####}. ');
CkJsonObject_UpdateInt(json,'AdminCreateUserConfig.TemporaryPasswordValidityDays',7);
CkJsonObject_UpdateString(json,'AutoVerifiedAttributes[0]','email');
CkJsonObject_UpdateString(json,'AutoVerifiedAttributes[1]','phone_number');
CkJsonObject_UpdateString(json,'EmailConfiguration.EmailSendingAccount','DEVELOPER');
CkJsonObject_UpdateString(json,'EmailConfiguration.From','joe@example.com');
CkJsonObject_UpdateString(json,'EmailConfiguration.ReplyToEmailAddress','joe@example.com');
CkJsonObject_UpdateString(json,'EmailConfiguration.SourceArn','arn:aws:ses:us-west-2:954491834127:identity/joe@example.com');
CkJsonObject_UpdateString(json,'EmailVerificationMessage','Your verification code is {####}. ');
CkJsonObject_UpdateString(json,'EmailVerificationSubject','Your verification code');
CkJsonObject_UpdateNewObject(json,'LambdaConfig');
CkJsonObject_UpdateString(json,'MfaConfiguration','OFF');
CkJsonObject_UpdateString(json,'PoolName','MyTestPool');
CkJsonObject_UpdateInt(json,'Policies.PasswordPolicy.MinimumLength',8);
CkJsonObject_UpdateBool(json,'Policies.PasswordPolicy.RequireLowercase',True);
CkJsonObject_UpdateBool(json,'Policies.PasswordPolicy.RequireNumbers',True);
CkJsonObject_UpdateBool(json,'Policies.PasswordPolicy.RequireSymbols',True);
CkJsonObject_UpdateBool(json,'Policies.PasswordPolicy.RequireUppercase',True);
CkJsonObject_UpdateInt(json,'Policies.PasswordPolicy.TemporaryPasswordValidityDays',7);
CkJsonObject_UpdateString(json,'Schema[0].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[0].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[0].Mutable',False);
CkJsonObject_UpdateString(json,'Schema[0].Name','sub');
CkJsonObject_UpdateBool(json,'Schema[0].Required',True);
CkJsonObject_UpdateString(json,'Schema[0].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[0].StringAttributeConstraints.MinLength','1');
CkJsonObject_UpdateString(json,'Schema[1].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[1].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[1].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[1].Name','name');
CkJsonObject_UpdateBool(json,'Schema[1].Required',False);
CkJsonObject_UpdateString(json,'Schema[1].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[1].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[2].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[2].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[2].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[2].Name','given_name');
CkJsonObject_UpdateBool(json,'Schema[2].Required',False);
CkJsonObject_UpdateString(json,'Schema[2].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[2].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[3].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[3].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[3].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[3].Name','family_name');
CkJsonObject_UpdateBool(json,'Schema[3].Required',False);
CkJsonObject_UpdateString(json,'Schema[3].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[3].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[4].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[4].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[4].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[4].Name','middle_name');
CkJsonObject_UpdateBool(json,'Schema[4].Required',False);
CkJsonObject_UpdateString(json,'Schema[4].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[4].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[5].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[5].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[5].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[5].Name','nickname');
CkJsonObject_UpdateBool(json,'Schema[5].Required',False);
CkJsonObject_UpdateString(json,'Schema[5].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[5].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[6].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[6].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[6].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[6].Name','preferred_username');
CkJsonObject_UpdateBool(json,'Schema[6].Required',False);
CkJsonObject_UpdateString(json,'Schema[6].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[6].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[7].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[7].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[7].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[7].Name','profile');
CkJsonObject_UpdateBool(json,'Schema[7].Required',False);
CkJsonObject_UpdateString(json,'Schema[7].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[7].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[8].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[8].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[8].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[8].Name','picture');
CkJsonObject_UpdateBool(json,'Schema[8].Required',False);
CkJsonObject_UpdateString(json,'Schema[8].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[8].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[9].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[9].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[9].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[9].Name','website');
CkJsonObject_UpdateBool(json,'Schema[9].Required',False);
CkJsonObject_UpdateString(json,'Schema[9].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[9].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[10].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[10].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[10].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[10].Name','email');
CkJsonObject_UpdateBool(json,'Schema[10].Required',True);
CkJsonObject_UpdateString(json,'Schema[10].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[10].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[11].AttributeDataType','Boolean');
CkJsonObject_UpdateBool(json,'Schema[11].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[11].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[11].Name','email_verified');
CkJsonObject_UpdateBool(json,'Schema[11].Required',False);
CkJsonObject_UpdateString(json,'Schema[12].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[12].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[12].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[12].Name','gender');
CkJsonObject_UpdateBool(json,'Schema[12].Required',False);
CkJsonObject_UpdateString(json,'Schema[12].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[12].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[13].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[13].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[13].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[13].Name','birthdate');
CkJsonObject_UpdateBool(json,'Schema[13].Required',False);
CkJsonObject_UpdateString(json,'Schema[13].StringAttributeConstraints.MaxLength','10');
CkJsonObject_UpdateString(json,'Schema[13].StringAttributeConstraints.MinLength','10');
CkJsonObject_UpdateString(json,'Schema[14].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[14].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[14].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[14].Name','zoneinfo');
CkJsonObject_UpdateBool(json,'Schema[14].Required',False);
CkJsonObject_UpdateString(json,'Schema[14].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[14].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[15].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[15].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[15].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[15].Name','locale');
CkJsonObject_UpdateBool(json,'Schema[15].Required',False);
CkJsonObject_UpdateString(json,'Schema[15].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[15].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[16].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[16].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[16].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[16].Name','phone_number');
CkJsonObject_UpdateBool(json,'Schema[16].Required',False);
CkJsonObject_UpdateString(json,'Schema[16].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[16].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[17].AttributeDataType','String');
CkJsonObject_UpdateBool(json,'Schema[17].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[17].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[17].Name','address');
CkJsonObject_UpdateBool(json,'Schema[17].Required',False);
CkJsonObject_UpdateString(json,'Schema[17].StringAttributeConstraints.MaxLength','2048');
CkJsonObject_UpdateString(json,'Schema[17].StringAttributeConstraints.MinLength','0');
CkJsonObject_UpdateString(json,'Schema[18].AttributeDataType','Number');
CkJsonObject_UpdateBool(json,'Schema[18].DeveloperOnlyAttribute',False);
CkJsonObject_UpdateBool(json,'Schema[18].Mutable',True);
CkJsonObject_UpdateString(json,'Schema[18].Name','updated_at');
CkJsonObject_UpdateString(json,'Schema[18].NumberAttributeConstraints.MinValue','0');
CkJsonObject_UpdateBool(json,'Schema[18].Required',False);
CkJsonObject_UpdateString(json,'SmsAuthenticationMessage','Your verification code is {####}. ');

// Use your own value here:
CkJsonObject_UpdateString(json,'SmsConfiguration.ExternalId','94b17737-216b-4cf7-a29e-17e990e91300');
CkJsonObject_UpdateString(json,'SmsConfiguration.SnsCallerArn','arn:aws:iam::954491834127:role/service-role/chilkat-SMS-Role');

CkJsonObject_UpdateString(json,'SmsVerificationMessage','Your verification code is {####}. ');
CkJsonObject_UpdateBool(json,'UsernameConfiguration.CaseSensitive',False);
CkJsonObject_UpdateString(json,'VerificationMessageTemplate.DefaultEmailOption','CONFIRM_WITH_CODE');
CkJsonObject_UpdateString(json,'VerificationMessageTemplate.EmailMessage','Your verification code is {####}. ');
CkJsonObject_UpdateString(json,'VerificationMessageTemplate.EmailSubject','Your verification code');
CkJsonObject_UpdateString(json,'VerificationMessageTemplate.SmsMessage','Your verification code is {####}. ');

CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.0');
CkRest_AddHeader(rest,'X-Amz-Target','AWSCognitoIdentityProviderService.CreateUserPool');
CkRest_AddHeader(rest,'Accept-Encoding','identity');

sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);
sbResponseBody := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'POST','/',sbRequestBody,sbResponseBody);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;
respStatusCode := CkRest_getResponseStatusCode(rest);
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));
if (respStatusCode <> 200) then
  begin
    Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkRest__responseHeader(rest));
    Memo1.Lines.Add('Response Body:');
    Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));
    Exit;
  end;

jsonResponse := CkJsonObject_Create();
CkJsonObject_LoadSb(jsonResponse,sbResponseBody);

CkJsonObject_putEmitCompact(jsonResponse,False);
Memo1.Lines.Add(CkJsonObject__emit(jsonResponse));

// The response is similar to the response at Cognito Describe User Pool

CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jsonResponse);

end;