Delphi DLL
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.Chilkat Delphi DLL Downloads
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
success: Boolean;
rest: HCkRest;
authAws: HCkAuthAws;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jsonResponse: HCkJsonObject;
begin
success := False;
// 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;