(Delphi ActiveX) 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 ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jsonResponse: TChilkatJsonObject;

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

rest := TChilkatRest.Create(Self);

authAws := TChilkatAuthAws.Create(Self);
authAws.AccessKey := 'AWS_ACCESS_KEY';
authAws.SecretKey := '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.)
authAws.Region := 'us-west-2';
authAws.ServiceName := 'cognito-idp';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);

// URL: https://cognito-idp.us-west-2.amazonaws.com/
bTls := 1;
port := 443;
bAutoReconnect := 1;
// Use the same region as specified above.
success := rest.Connect('cognito-idp.us-west-2.amazonaws.com',port,bTls,bAutoReconnect);
if (success <> 1) then
  begin
    Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(rest.ConnectFailReason));
    Memo1.Lines.Add(rest.LastErrorText);
    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 := TChilkatJsonObject.Create(Self);
json.UpdateString('AccountRecoverySetting.RecoveryMechanisms[0].Name','verified_phone_number');
json.UpdateInt('AccountRecoverySetting.RecoveryMechanisms[0].Priority',1);
json.UpdateString('AccountRecoverySetting.RecoveryMechanisms[1].Name','verified_email');
json.UpdateInt('AccountRecoverySetting.RecoveryMechanisms[1].Priority',2);
json.UpdateBool('AdminCreateUserConfig.AllowAdminCreateUserOnly',0);
json.UpdateString('AdminCreateUserConfig.InviteMessageTemplate.EmailMessage','Your username is {username} and temporary password is {####}. ');
json.UpdateString('AdminCreateUserConfig.InviteMessageTemplate.EmailSubject','Your temporary password');
json.UpdateString('AdminCreateUserConfig.InviteMessageTemplate.SMSMessage','Your username is {username} and temporary password is {####}. ');
json.UpdateInt('AdminCreateUserConfig.TemporaryPasswordValidityDays',7);
json.UpdateString('AutoVerifiedAttributes[0]','email');
json.UpdateString('AutoVerifiedAttributes[1]','phone_number');
json.UpdateString('EmailConfiguration.EmailSendingAccount','DEVELOPER');
json.UpdateString('EmailConfiguration.From','joe@example.com');
json.UpdateString('EmailConfiguration.ReplyToEmailAddress','joe@example.com');
json.UpdateString('EmailConfiguration.SourceArn','arn:aws:ses:us-west-2:954491834127:identity/joe@example.com');
json.UpdateString('EmailVerificationMessage','Your verification code is {####}. ');
json.UpdateString('EmailVerificationSubject','Your verification code');
json.UpdateNewObject('LambdaConfig');
json.UpdateString('MfaConfiguration','OFF');
json.UpdateString('PoolName','MyTestPool');
json.UpdateInt('Policies.PasswordPolicy.MinimumLength',8);
json.UpdateBool('Policies.PasswordPolicy.RequireLowercase',1);
json.UpdateBool('Policies.PasswordPolicy.RequireNumbers',1);
json.UpdateBool('Policies.PasswordPolicy.RequireSymbols',1);
json.UpdateBool('Policies.PasswordPolicy.RequireUppercase',1);
json.UpdateInt('Policies.PasswordPolicy.TemporaryPasswordValidityDays',7);
json.UpdateString('Schema[0].AttributeDataType','String');
json.UpdateBool('Schema[0].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[0].Mutable',0);
json.UpdateString('Schema[0].Name','sub');
json.UpdateBool('Schema[0].Required',1);
json.UpdateString('Schema[0].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[0].StringAttributeConstraints.MinLength','1');
json.UpdateString('Schema[1].AttributeDataType','String');
json.UpdateBool('Schema[1].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[1].Mutable',1);
json.UpdateString('Schema[1].Name','name');
json.UpdateBool('Schema[1].Required',0);
json.UpdateString('Schema[1].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[1].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[2].AttributeDataType','String');
json.UpdateBool('Schema[2].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[2].Mutable',1);
json.UpdateString('Schema[2].Name','given_name');
json.UpdateBool('Schema[2].Required',0);
json.UpdateString('Schema[2].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[2].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[3].AttributeDataType','String');
json.UpdateBool('Schema[3].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[3].Mutable',1);
json.UpdateString('Schema[3].Name','family_name');
json.UpdateBool('Schema[3].Required',0);
json.UpdateString('Schema[3].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[3].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[4].AttributeDataType','String');
json.UpdateBool('Schema[4].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[4].Mutable',1);
json.UpdateString('Schema[4].Name','middle_name');
json.UpdateBool('Schema[4].Required',0);
json.UpdateString('Schema[4].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[4].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[5].AttributeDataType','String');
json.UpdateBool('Schema[5].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[5].Mutable',1);
json.UpdateString('Schema[5].Name','nickname');
json.UpdateBool('Schema[5].Required',0);
json.UpdateString('Schema[5].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[5].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[6].AttributeDataType','String');
json.UpdateBool('Schema[6].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[6].Mutable',1);
json.UpdateString('Schema[6].Name','preferred_username');
json.UpdateBool('Schema[6].Required',0);
json.UpdateString('Schema[6].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[6].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[7].AttributeDataType','String');
json.UpdateBool('Schema[7].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[7].Mutable',1);
json.UpdateString('Schema[7].Name','profile');
json.UpdateBool('Schema[7].Required',0);
json.UpdateString('Schema[7].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[7].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[8].AttributeDataType','String');
json.UpdateBool('Schema[8].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[8].Mutable',1);
json.UpdateString('Schema[8].Name','picture');
json.UpdateBool('Schema[8].Required',0);
json.UpdateString('Schema[8].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[8].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[9].AttributeDataType','String');
json.UpdateBool('Schema[9].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[9].Mutable',1);
json.UpdateString('Schema[9].Name','website');
json.UpdateBool('Schema[9].Required',0);
json.UpdateString('Schema[9].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[9].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[10].AttributeDataType','String');
json.UpdateBool('Schema[10].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[10].Mutable',1);
json.UpdateString('Schema[10].Name','email');
json.UpdateBool('Schema[10].Required',1);
json.UpdateString('Schema[10].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[10].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[11].AttributeDataType','Boolean');
json.UpdateBool('Schema[11].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[11].Mutable',1);
json.UpdateString('Schema[11].Name','email_verified');
json.UpdateBool('Schema[11].Required',0);
json.UpdateString('Schema[12].AttributeDataType','String');
json.UpdateBool('Schema[12].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[12].Mutable',1);
json.UpdateString('Schema[12].Name','gender');
json.UpdateBool('Schema[12].Required',0);
json.UpdateString('Schema[12].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[12].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[13].AttributeDataType','String');
json.UpdateBool('Schema[13].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[13].Mutable',1);
json.UpdateString('Schema[13].Name','birthdate');
json.UpdateBool('Schema[13].Required',0);
json.UpdateString('Schema[13].StringAttributeConstraints.MaxLength','10');
json.UpdateString('Schema[13].StringAttributeConstraints.MinLength','10');
json.UpdateString('Schema[14].AttributeDataType','String');
json.UpdateBool('Schema[14].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[14].Mutable',1);
json.UpdateString('Schema[14].Name','zoneinfo');
json.UpdateBool('Schema[14].Required',0);
json.UpdateString('Schema[14].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[14].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[15].AttributeDataType','String');
json.UpdateBool('Schema[15].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[15].Mutable',1);
json.UpdateString('Schema[15].Name','locale');
json.UpdateBool('Schema[15].Required',0);
json.UpdateString('Schema[15].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[15].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[16].AttributeDataType','String');
json.UpdateBool('Schema[16].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[16].Mutable',1);
json.UpdateString('Schema[16].Name','phone_number');
json.UpdateBool('Schema[16].Required',0);
json.UpdateString('Schema[16].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[16].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[17].AttributeDataType','String');
json.UpdateBool('Schema[17].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[17].Mutable',1);
json.UpdateString('Schema[17].Name','address');
json.UpdateBool('Schema[17].Required',0);
json.UpdateString('Schema[17].StringAttributeConstraints.MaxLength','2048');
json.UpdateString('Schema[17].StringAttributeConstraints.MinLength','0');
json.UpdateString('Schema[18].AttributeDataType','Number');
json.UpdateBool('Schema[18].DeveloperOnlyAttribute',0);
json.UpdateBool('Schema[18].Mutable',1);
json.UpdateString('Schema[18].Name','updated_at');
json.UpdateString('Schema[18].NumberAttributeConstraints.MinValue','0');
json.UpdateBool('Schema[18].Required',0);
json.UpdateString('SmsAuthenticationMessage','Your verification code is {####}. ');

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

json.UpdateString('SmsVerificationMessage','Your verification code is {####}. ');
json.UpdateBool('UsernameConfiguration.CaseSensitive',0);
json.UpdateString('VerificationMessageTemplate.DefaultEmailOption','CONFIRM_WITH_CODE');
json.UpdateString('VerificationMessageTemplate.EmailMessage','Your verification code is {####}. ');
json.UpdateString('VerificationMessageTemplate.EmailSubject','Your verification code');
json.UpdateString('VerificationMessageTemplate.SmsMessage','Your verification code is {####}. ');

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

sbRequestBody := TChilkatStringBuilder.Create(Self);
json.EmitSb(sbRequestBody.ControlInterface);
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestSb('POST','/',sbRequestBody.ControlInterface,sbResponseBody.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;
respStatusCode := rest.ResponseStatusCode;
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(rest.ResponseHeader);
    Memo1.Lines.Add('Response Body:');
    Memo1.Lines.Add(sbResponseBody.GetAsString());
    Exit;
  end;

jsonResponse := TChilkatJsonObject.Create(Self);
jsonResponse.LoadSb(sbResponseBody.ControlInterface);

jsonResponse.EmitCompact := 0;
Memo1.Lines.Add(jsonResponse.Emit());

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