Delphi ActiveX
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.Chilkat Delphi ActiveX Downloads
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
success: Integer;
rest: TChilkatRest;
authAws: TChilkatAuthAws;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jsonResponse: TChilkatJsonObject;
begin
success := 0;
// 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;