BatchRead delphiDll Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
Message: PWideChar;
v_Type: PWideChar;
ObjectIdentifier: PWideChar;
NextToken: PWideChar;
ListIncomingTypedLinksNextToken: PWideChar;
ListIndexNextToken: PWideChar;
ListObjectAttributesNextToken: PWideChar;
v_String: PWideChar;
ListObjectChildrenNextToken: PWideChar;
ListObjectParentPathsNextToken: PWideChar;
ListObjectParentsNextToken: PWideChar;
ListObjectPoliciesNextToken: PWideChar;
ListOutgoingTypedLinksNextToken: PWideChar;
ListPolicyAttachmentsNextToken: PWideChar;
LookupPolicyNextToken: PWideChar;
j: Integer;
count_j: Integer;
FacetName: PWideChar;
Name: PWideChar;
SchemaArn: PWideChar;
BinaryValue: Integer;
BooleanValue: Integer;
DatetimeValue: Integer;
NumberValue: PWideChar;
StringValue: PWideChar;
KeyFacetName: PWideChar;
KeyName: PWideChar;
KeySchemaArn: PWideChar;
ValueBinaryValue: Integer;
ValueBooleanValue: Integer;
ValueDatetimeValue: Integer;
ValueNumberValue: PWideChar;
ValueStringValue: PWideChar;
k: Integer;
count_k: Integer;
Selector: PWideChar;
TargetObjectReferenceSelector: PWideChar;
TypedLinkFacetSchemaArn: PWideChar;
TypedLinkName: PWideChar;
AttributeName: PWideChar;
Path: PWideChar;
strVal: PWideChar;
LinkName: PWideChar;
SourceObjectReferenceSelector: PWideChar;
TypedLinkFacetTypedLinkName: PWideChar;
PolicyId: PWideChar;
PolicyType: PWideChar;
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 := 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,'clouddirectory');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://clouddirectory.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := CkRest_Connect(rest,'clouddirectory.us-west-2.amazonaws.com',443,True,True);
if (success <> True) then
begin
Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(CkRest_getConnectFailReason(rest)));
Memo1.Lines.Add(CkRest__lastErrorText(rest));
Exit;
end;
// The following code creates the JSON request body.
// The JSON created by this code is shown below.
// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.AttributeNames[0]','string');
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName','string');
CkJsonObject_UpdateInt(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue',123);
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue','string');
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue','string');
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.SourceObjectReference.Selector','string');
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.TargetObjectReference.Selector','string');
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.SchemaArn','string');
CkJsonObject_UpdateString(json,'Operations[0].GetLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName','string');
CkJsonObject_UpdateString(json,'Operations[0].GetObjectAttributes.AttributeNames[0]','string');
CkJsonObject_UpdateString(json,'Operations[0].GetObjectAttributes.ObjectReference.Selector','string');
CkJsonObject_UpdateString(json,'Operations[0].GetObjectAttributes.SchemaFacet.FacetName','string');
CkJsonObject_UpdateString(json,'Operations[0].GetObjectAttributes.SchemaFacet.SchemaArn','string');
CkJsonObject_UpdateString(json,'Operations[0].GetObjectInformation.ObjectReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListAttachedIndices.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListAttachedIndices.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListAttachedIndices.TargetReference.Selector','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].AttributeName','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndMode','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BinaryValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BooleanValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.DatetimeValue',123);
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.NumberValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.StringValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartMode','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BinaryValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BooleanValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.DatetimeValue',123);
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.NumberValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.StringValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterTypedLink.SchemaArn','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.FilterTypedLink.TypedLinkName','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListIncomingTypedLinks.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIncomingTypedLinks.ObjectReference.Selector','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.IndexReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListIndex.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].AttributeKey.FacetName','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].AttributeKey.Name','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].AttributeKey.SchemaArn','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndMode','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.BinaryValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.BooleanValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.DatetimeValue',123);
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.NumberValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.StringValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartMode','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.BinaryValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.BooleanValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.DatetimeValue',123);
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.NumberValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.StringValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListObjectAttributes.FacetFilter.FacetName','string');
CkJsonObject_UpdateString(json,'Operations[0].ListObjectAttributes.FacetFilter.SchemaArn','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListObjectAttributes.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListObjectAttributes.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListObjectAttributes.ObjectReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListObjectChildren.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListObjectChildren.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListObjectChildren.ObjectReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListObjectParentPaths.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListObjectParentPaths.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListObjectParentPaths.ObjectReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListObjectParents.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListObjectParents.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListObjectParents.ObjectReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListObjectPolicies.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListObjectPolicies.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListObjectPolicies.ObjectReference.Selector','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].AttributeName','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndMode','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BinaryValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BooleanValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.DatetimeValue',123);
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.NumberValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.StringValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartMode','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BinaryValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BooleanValue',123);
CkJsonObject_UpdateInt(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.DatetimeValue',123);
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.NumberValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.StringValue','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterTypedLink.SchemaArn','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.FilterTypedLink.TypedLinkName','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListOutgoingTypedLinks.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListOutgoingTypedLinks.ObjectReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].ListPolicyAttachments.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].ListPolicyAttachments.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].ListPolicyAttachments.PolicyReference.Selector','string');
CkJsonObject_UpdateInt(json,'Operations[0].LookupPolicy.MaxResults',123);
CkJsonObject_UpdateString(json,'Operations[0].LookupPolicy.NextToken','string');
CkJsonObject_UpdateString(json,'Operations[0].LookupPolicy.ObjectReference.Selector','string');
// The JSON request body created by the above code:
// {
// "Operations": [
// {
// "GetLinkAttributes": {
// "AttributeNames": [
// "string"
// ],
// "TypedLinkSpecifier": {
// "IdentityAttributeValues": [
// {
// "AttributeName": "string",
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "SourceObjectReference": {
// "Selector": "string"
// },
// "TargetObjectReference": {
// "Selector": "string"
// },
// "TypedLinkFacet": {
// "SchemaArn": "string",
// "TypedLinkName": "string"
// }
// }
// },
// "GetObjectAttributes": {
// "AttributeNames": [
// "string"
// ],
// "ObjectReference": {
// "Selector": "string"
// },
// "SchemaFacet": {
// "FacetName": "string",
// "SchemaArn": "string"
// }
// },
// "GetObjectInformation": {
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListAttachedIndices": {
// "MaxResults": number,
// "NextToken": "string",
// "TargetReference": {
// "Selector": "string"
// }
// },
// "ListIncomingTypedLinks": {
// "FilterAttributeRanges": [
// {
// "AttributeName": "string",
// "Range": {
// "EndMode": "string",
// "EndValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// },
// "StartMode": "string",
// "StartValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// }
// ],
// "FilterTypedLink": {
// "SchemaArn": "string",
// "TypedLinkName": "string"
// },
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListIndex": {
// "IndexReference": {
// "Selector": "string"
// },
// "MaxResults": number,
// "NextToken": "string",
// "RangesOnIndexedValues": [
// {
// "AttributeKey": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Range": {
// "EndMode": "string",
// "EndValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// },
// "StartMode": "string",
// "StartValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// }
// ]
// },
// "ListObjectAttributes": {
// "FacetFilter": {
// "FacetName": "string",
// "SchemaArn": "string"
// },
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListObjectChildren": {
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListObjectParentPaths": {
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListObjectParents": {
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListObjectPolicies": {
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListOutgoingTypedLinks": {
// "FilterAttributeRanges": [
// {
// "AttributeName": "string",
// "Range": {
// "EndMode": "string",
// "EndValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// },
// "StartMode": "string",
// "StartValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// }
// ],
// "FilterTypedLink": {
// "SchemaArn": "string",
// "TypedLinkName": "string"
// },
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "ListPolicyAttachments": {
// "MaxResults": number,
// "NextToken": "string",
// "PolicyReference": {
// "Selector": "string"
// }
// },
// "LookupPolicy": {
// "MaxResults": number,
// "NextToken": "string",
// "ObjectReference": {
// "Selector": "string"
// }
// }
// }
// ]
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','BatchRead');
sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);
sbResponseBody := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'POST','/amazonclouddirectory/2017-01-11/batchread',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 Header:');
Memo1.Lines.Add(CkRest__responseHeader(rest));
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));
Exit;
end;
jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
// 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
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Responses');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
Message := CkJsonObject__stringOf(jResp,'Responses[i].ExceptionResponse.Message');
v_Type := CkJsonObject__stringOf(jResp,'Responses[i].ExceptionResponse.Type');
ObjectIdentifier := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectInformation.ObjectIdentifier');
NextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.NextToken');
ListIncomingTypedLinksNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.NextToken');
ListIndexNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.NextToken');
ListObjectAttributesNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.NextToken');
v_String := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectChildren.Children.string');
ListObjectChildrenNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectChildren.NextToken');
ListObjectParentPathsNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectParentPaths.NextToken');
ListObjectParentsNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectParents.NextToken');
ListObjectPoliciesNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectPolicies.NextToken');
ListOutgoingTypedLinksNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.NextToken');
ListPolicyAttachmentsNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListPolicyAttachments.NextToken');
LookupPolicyNextToken := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.LookupPolicy.NextToken');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
FacetName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Key.FacetName');
Name := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Key.Name');
SchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Key.SchemaArn');
BinaryValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.BinaryValue');
BooleanValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.BooleanValue');
DatetimeValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.DatetimeValue');
NumberValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.NumberValue');
StringValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.StringValue');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
KeyFacetName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Key.FacetName');
KeyName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Key.Name');
KeySchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Key.SchemaArn');
ValueBinaryValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.BinaryValue');
ValueBooleanValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.BooleanValue');
ValueDatetimeValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.DatetimeValue');
ValueNumberValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.NumberValue');
ValueStringValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.StringValue');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.GetObjectInformation.SchemaFacets');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
FacetName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectInformation.SchemaFacets[j].FacetName');
SchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.GetObjectInformation.SchemaFacets[j].SchemaArn');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
ObjectIdentifier := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].ObjectIdentifier');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
KeyFacetName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Key.FacetName');
KeyName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Key.Name');
KeySchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Key.SchemaArn');
ValueBinaryValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.BinaryValue');
ValueBooleanValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.BooleanValue');
ValueDatetimeValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.DatetimeValue');
ValueNumberValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.NumberValue');
ValueStringValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.StringValue');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
Selector := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].SourceObjectReference.Selector');
TargetObjectReferenceSelector := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].TargetObjectReference.Selector');
TypedLinkFacetSchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].TypedLinkFacet.SchemaArn');
TypedLinkName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].TypedLinkFacet.TypedLinkName');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
AttributeName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].AttributeName');
ValueBinaryValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.BinaryValue');
ValueBooleanValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.BooleanValue');
ValueDatetimeValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.DatetimeValue');
ValueNumberValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.NumberValue');
ValueStringValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.StringValue');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
ObjectIdentifier := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].ObjectIdentifier');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
KeyFacetName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Key.FacetName');
KeyName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Key.Name');
KeySchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Key.SchemaArn');
ValueBinaryValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.BinaryValue');
ValueBooleanValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.BooleanValue');
ValueDatetimeValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.DatetimeValue');
ValueNumberValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.NumberValue');
ValueStringValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.StringValue');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
KeyFacetName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Key.FacetName');
KeyName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Key.Name');
KeySchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Key.SchemaArn');
ValueBinaryValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.BinaryValue');
ValueBooleanValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.BooleanValue');
ValueDatetimeValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.DatetimeValue');
ValueNumberValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.NumberValue');
ValueStringValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.StringValue');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
Path := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList[j].Path');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList[j].ObjectIdentifiers');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList[j].ObjectIdentifiers[k]');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListObjectParents.ParentLinks');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
LinkName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectParents.ParentLinks[j].LinkName');
ObjectIdentifier := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectParents.ParentLinks[j].ObjectIdentifier');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListObjectPolicies.AttachedPolicyIds');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListObjectPolicies.AttachedPolicyIds[j]');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
SourceObjectReferenceSelector := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].SourceObjectReference.Selector');
TargetObjectReferenceSelector := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].TargetObjectReference.Selector');
TypedLinkFacetSchemaArn := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].TypedLinkFacet.SchemaArn');
TypedLinkFacetTypedLinkName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].TypedLinkFacet.TypedLinkName');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
AttributeName := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].AttributeName');
ValueBinaryValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.BinaryValue');
ValueBooleanValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.BooleanValue');
ValueDatetimeValue := CkJsonObject_IntOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.DatetimeValue');
ValueNumberValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.NumberValue');
ValueStringValue := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.StringValue');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.ListPolicyAttachments.ObjectIdentifiers');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.ListPolicyAttachments.ObjectIdentifiers[j]');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
Path := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Path');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
ObjectIdentifier := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies[k].ObjectIdentifier');
PolicyId := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies[k].PolicyId');
PolicyType := CkJsonObject__stringOf(jResp,'Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies[k].PolicyType');
k := k + 1;
end;
j := j + 1;
end;
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "Responses": [
// {
// "ExceptionResponse": {
// "Message": "string",
// "Type": "string"
// },
// "SuccessfulResponse": {
// "GetLinkAttributes": {
// "Attributes": [
// {
// "Key": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ]
// },
// "GetObjectAttributes": {
// "Attributes": [
// {
// "Key": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ]
// },
// "GetObjectInformation": {
// "ObjectIdentifier": "string",
// "SchemaFacets": [
// {
// "FacetName": "string",
// "SchemaArn": "string"
// }
// ]
// },
// "ListAttachedIndices": {
// "IndexAttachments": [
// {
// "IndexedAttributes": [
// {
// "Key": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "ObjectIdentifier": "string"
// }
// ],
// "NextToken": "string"
// },
// "ListIncomingTypedLinks": {
// "LinkSpecifiers": [
// {
// "IdentityAttributeValues": [
// {
// "AttributeName": "string",
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "SourceObjectReference": {
// "Selector": "string"
// },
// "TargetObjectReference": {
// "Selector": "string"
// },
// "TypedLinkFacet": {
// "SchemaArn": "string",
// "TypedLinkName": "string"
// }
// }
// ],
// "NextToken": "string"
// },
// "ListIndex": {
// "IndexAttachments": [
// {
// "IndexedAttributes": [
// {
// "Key": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "ObjectIdentifier": "string"
// }
// ],
// "NextToken": "string"
// },
// "ListObjectAttributes": {
// "Attributes": [
// {
// "Key": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "NextToken": "string"
// },
// "ListObjectChildren": {
// "Children": {
// "string": "string"
// },
// "NextToken": "string"
// },
// "ListObjectParentPaths": {
// "NextToken": "string",
// "PathToObjectIdentifiersList": [
// {
// "ObjectIdentifiers": [
// "string"
// ],
// "Path": "string"
// }
// ]
// },
// "ListObjectParents": {
// "NextToken": "string",
// "ParentLinks": [
// {
// "LinkName": "string",
// "ObjectIdentifier": "string"
// }
// ]
// },
// "ListObjectPolicies": {
// "AttachedPolicyIds": [
// "string"
// ],
// "NextToken": "string"
// },
// "ListOutgoingTypedLinks": {
// "NextToken": "string",
// "TypedLinkSpecifiers": [
// {
// "IdentityAttributeValues": [
// {
// "AttributeName": "string",
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "SourceObjectReference": {
// "Selector": "string"
// },
// "TargetObjectReference": {
// "Selector": "string"
// },
// "TypedLinkFacet": {
// "SchemaArn": "string",
// "TypedLinkName": "string"
// }
// }
// ]
// },
// "ListPolicyAttachments": {
// "NextToken": "string",
// "ObjectIdentifiers": [
// "string"
// ]
// },
// "LookupPolicy": {
// "NextToken": "string",
// "PolicyToPathList": [
// {
// "Path": "string",
// "Policies": [
// {
// "ObjectIdentifier": "string",
// "PolicyId": "string",
// "PolicyType": "string"
// }
// ]
// }
// ]
// }
// }
// }
// ]
// }
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
