GetLifecyclePolicy delphiAx Example
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
Name: WideString;
j: Integer;
count_j: Integer;
CmkArn: WideString;
Encrypted: Integer;
Interval: Integer;
IntervalUnit: WideString;
Target: WideString;
strVal: WideString;
CopyTags: Integer;
CronExpression: WideString;
CreateRuleInterval: Integer;
CreateRuleIntervalUnit: WideString;
Location: WideString;
Count: Integer;
DeprecateRuleInterval: Integer;
DeprecateRuleIntervalUnit: WideString;
FastRestoreRuleCount: Integer;
FastRestoreRuleInterval: Integer;
FastRestoreRuleIntervalUnit: WideString;
RetainRuleCount: Integer;
RetainRuleInterval: Integer;
RetainRuleIntervalUnit: WideString;
TargetRegion: WideString;
UnshareInterval: Integer;
UnshareIntervalUnit: WideString;
k: Integer;
count_k: Integer;
Key: WideString;
Value: WideString;
DateCreated: Integer;
DateModified: Integer;
Description: WideString;
ExecutionRoleArn: WideString;
PolicyArn: WideString;
DescriptionRegex: WideString;
EventType: WideString;
v_Type: WideString;
ExcludeBootVolume: Integer;
NoReboot: Integer;
PolicyType: WideString;
PolicyId: WideString;
State: WideString;
StatusMessage: WideString;
v_String: WideString;
i: Integer;
count_i: Integer;
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 := 'dlm';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);
// URL: https://dlm.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('dlm.us-west-2.amazonaws.com',443,1,1);
if (success <> 1) then
begin
Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(rest.ConnectFailReason));
Memo1.Lines.Add(rest.LastErrorText);
Exit;
end;
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','GetLifecyclePolicy');
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestNoBodySb('GET','/policies/{policyId}/',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 Header:');
Memo1.Lines.Add(rest.ResponseHeader);
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(sbResponseBody.GetAsString());
Exit;
end;
jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.
// Use this online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
DateCreated := jResp.IntOf('Policy.DateCreated');
DateModified := jResp.IntOf('Policy.DateModified');
Description := jResp.StringOf('Policy.Description');
ExecutionRoleArn := jResp.StringOf('Policy.ExecutionRoleArn');
PolicyArn := jResp.StringOf('Policy.PolicyArn');
DescriptionRegex := jResp.StringOf('Policy.PolicyDetails.EventSource.Parameters.DescriptionRegex');
EventType := jResp.StringOf('Policy.PolicyDetails.EventSource.Parameters.EventType');
v_Type := jResp.StringOf('Policy.PolicyDetails.EventSource.Type');
ExcludeBootVolume := jResp.IntOf('Policy.PolicyDetails.Parameters.ExcludeBootVolume');
NoReboot := jResp.IntOf('Policy.PolicyDetails.Parameters.NoReboot');
PolicyType := jResp.StringOf('Policy.PolicyDetails.PolicyType');
PolicyId := jResp.StringOf('Policy.PolicyId');
State := jResp.StringOf('Policy.State');
StatusMessage := jResp.StringOf('Policy.StatusMessage');
v_String := jResp.StringOf('Policy.Tags.string');
i := 0;
count_i := jResp.SizeOfArray('Policy.PolicyDetails.Actions');
while i < count_i do
begin
jResp.I := i;
Name := jResp.StringOf('Policy.PolicyDetails.Actions[i].Name');
j := 0;
count_j := jResp.SizeOfArray('Policy.PolicyDetails.Actions[i].CrossRegionCopy');
while j < count_j do
begin
jResp.J := j;
CmkArn := jResp.StringOf('Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].EncryptionConfiguration.CmkArn');
Encrypted := jResp.IntOf('Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].EncryptionConfiguration.Encrypted');
Interval := jResp.IntOf('Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].RetainRule.Interval');
IntervalUnit := jResp.StringOf('Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].RetainRule.IntervalUnit');
Target := jResp.StringOf('Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].Target');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Policy.PolicyDetails.EventSource.Parameters.SnapshotOwner');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('Policy.PolicyDetails.EventSource.Parameters.SnapshotOwner[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Policy.PolicyDetails.ResourceLocations');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('Policy.PolicyDetails.ResourceLocations[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Policy.PolicyDetails.ResourceTypes');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('Policy.PolicyDetails.ResourceTypes[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Policy.PolicyDetails.Schedules');
while i < count_i do
begin
jResp.I := i;
CopyTags := jResp.IntOf('Policy.PolicyDetails.Schedules[i].CopyTags');
CronExpression := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CreateRule.CronExpression');
CreateRuleInterval := jResp.IntOf('Policy.PolicyDetails.Schedules[i].CreateRule.Interval');
CreateRuleIntervalUnit := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CreateRule.IntervalUnit');
Location := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CreateRule.Location');
Count := jResp.IntOf('Policy.PolicyDetails.Schedules[i].DeprecateRule.Count');
DeprecateRuleInterval := jResp.IntOf('Policy.PolicyDetails.Schedules[i].DeprecateRule.Interval');
DeprecateRuleIntervalUnit := jResp.StringOf('Policy.PolicyDetails.Schedules[i].DeprecateRule.IntervalUnit');
FastRestoreRuleCount := jResp.IntOf('Policy.PolicyDetails.Schedules[i].FastRestoreRule.Count');
FastRestoreRuleInterval := jResp.IntOf('Policy.PolicyDetails.Schedules[i].FastRestoreRule.Interval');
FastRestoreRuleIntervalUnit := jResp.StringOf('Policy.PolicyDetails.Schedules[i].FastRestoreRule.IntervalUnit');
Name := jResp.StringOf('Policy.PolicyDetails.Schedules[i].Name');
RetainRuleCount := jResp.IntOf('Policy.PolicyDetails.Schedules[i].RetainRule.Count');
RetainRuleInterval := jResp.IntOf('Policy.PolicyDetails.Schedules[i].RetainRule.Interval');
RetainRuleIntervalUnit := jResp.StringOf('Policy.PolicyDetails.Schedules[i].RetainRule.IntervalUnit');
j := 0;
count_j := jResp.SizeOfArray('Policy.PolicyDetails.Schedules[i].CreateRule.Times');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CreateRule.Times[j]');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules');
while j < count_j do
begin
jResp.J := j;
CmkArn := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].CmkArn');
CopyTags := jResp.IntOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].CopyTags');
DeprecateRuleInterval := jResp.IntOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].DeprecateRule.Interval');
DeprecateRuleIntervalUnit := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].DeprecateRule.IntervalUnit');
Encrypted := jResp.IntOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].Encrypted');
RetainRuleInterval := jResp.IntOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].RetainRule.Interval');
RetainRuleIntervalUnit := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].RetainRule.IntervalUnit');
Target := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].Target');
TargetRegion := jResp.StringOf('Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].TargetRegion');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('Policy.PolicyDetails.Schedules[i].FastRestoreRule.AvailabilityZones');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('Policy.PolicyDetails.Schedules[i].FastRestoreRule.AvailabilityZones[j]');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('Policy.PolicyDetails.Schedules[i].ShareRules');
while j < count_j do
begin
jResp.J := j;
UnshareInterval := jResp.IntOf('Policy.PolicyDetails.Schedules[i].ShareRules[j].UnshareInterval');
UnshareIntervalUnit := jResp.StringOf('Policy.PolicyDetails.Schedules[i].ShareRules[j].UnshareIntervalUnit');
k := 0;
count_k := jResp.SizeOfArray('Policy.PolicyDetails.Schedules[i].ShareRules[j].TargetAccounts');
while k < count_k do
begin
jResp.K := k;
strVal := jResp.StringOf('Policy.PolicyDetails.Schedules[i].ShareRules[j].TargetAccounts[k]');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('Policy.PolicyDetails.Schedules[i].TagsToAdd');
while j < count_j do
begin
jResp.J := j;
Key := jResp.StringOf('Policy.PolicyDetails.Schedules[i].TagsToAdd[j].Key');
Value := jResp.StringOf('Policy.PolicyDetails.Schedules[i].TagsToAdd[j].Value');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('Policy.PolicyDetails.Schedules[i].VariableTags');
while j < count_j do
begin
jResp.J := j;
Key := jResp.StringOf('Policy.PolicyDetails.Schedules[i].VariableTags[j].Key');
Value := jResp.StringOf('Policy.PolicyDetails.Schedules[i].VariableTags[j].Value');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Policy.PolicyDetails.TargetTags');
while i < count_i do
begin
jResp.I := i;
Key := jResp.StringOf('Policy.PolicyDetails.TargetTags[i].Key');
Value := jResp.StringOf('Policy.PolicyDetails.TargetTags[i].Value');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "Policy": {
// "DateCreated": number,
// "DateModified": number,
// "Description": "string",
// "ExecutionRoleArn": "string",
// "PolicyArn": "string",
// "PolicyDetails": {
// "Actions": [
// {
// "CrossRegionCopy": [
// {
// "EncryptionConfiguration": {
// "CmkArn": "string",
// "Encrypted": boolean
// },
// "RetainRule": {
// "Interval": number,
// "IntervalUnit": "string"
// },
// "Target": "string"
// }
// ],
// "Name": "string"
// }
// ],
// "EventSource": {
// "Parameters": {
// "DescriptionRegex": "string",
// "EventType": "string",
// "SnapshotOwner": [
// "string"
// ]
// },
// "Type": "string"
// },
// "Parameters": {
// "ExcludeBootVolume": boolean,
// "NoReboot": boolean
// },
// "PolicyType": "string",
// "ResourceLocations": [
// "string"
// ],
// "ResourceTypes": [
// "string"
// ],
// "Schedules": [
// {
// "CopyTags": boolean,
// "CreateRule": {
// "CronExpression": "string",
// "Interval": number,
// "IntervalUnit": "string",
// "Location": "string",
// "Times": [
// "string"
// ]
// },
// "CrossRegionCopyRules": [
// {
// "CmkArn": "string",
// "CopyTags": boolean,
// "DeprecateRule": {
// "Interval": number,
// "IntervalUnit": "string"
// },
// "Encrypted": boolean,
// "RetainRule": {
// "Interval": number,
// "IntervalUnit": "string"
// },
// "Target": "string",
// "TargetRegion": "string"
// }
// ],
// "DeprecateRule": {
// "Count": number,
// "Interval": number,
// "IntervalUnit": "string"
// },
// "FastRestoreRule": {
// "AvailabilityZones": [
// "string"
// ],
// "Count": number,
// "Interval": number,
// "IntervalUnit": "string"
// },
// "Name": "string",
// "RetainRule": {
// "Count": number,
// "Interval": number,
// "IntervalUnit": "string"
// },
// "ShareRules": [
// {
// "TargetAccounts": [
// "string"
// ],
// "UnshareInterval": number,
// "UnshareIntervalUnit": "string"
// }
// ],
// "TagsToAdd": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VariableTags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ]
// }
// ],
// "TargetTags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ]
// },
// "PolicyId": "string",
// "State": "string",
// "StatusMessage": "string",
// "Tags": {
// "string": "string"
// }
// }
// }
