BatchWrite delphiAx Example
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
AttachedObjectIdentifier: WideString;
AttachToIndexAttachedObjectIdentifier: WideString;
Selector: WideString;
TargetObjectReferenceSelector: WideString;
SchemaArn: WideString;
TypedLinkName: WideString;
ObjectIdentifier: WideString;
CreateObjectObjectIdentifier: WideString;
DetachedObjectIdentifier: WideString;
DetachObjectDetachedObjectIdentifier: WideString;
UpdateObjectAttributesObjectIdentifier: WideString;
j: Integer;
count_j: Integer;
AttributeName: WideString;
BinaryValue: Integer;
BooleanValue: Integer;
DatetimeValue: Integer;
NumberValue: WideString;
StringValue: 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 := 'clouddirectory';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);
// URL: https://clouddirectory.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('clouddirectory.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;
// 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 := TChilkatJsonObject.Create(Self);
json.UpdateString('Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.FacetName','string');
json.UpdateString('Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.Name','string');
json.UpdateString('Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.SchemaArn','string');
json.UpdateInt('Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.BinaryValue',123);
json.UpdateInt('Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.BooleanValue',123);
json.UpdateInt('Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.DatetimeValue',123);
json.UpdateString('Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.NumberValue','string');
json.UpdateString('Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.StringValue','string');
json.UpdateString('Operations[0].AddFacetToObject.ObjectReference.Selector','string');
json.UpdateString('Operations[0].AddFacetToObject.SchemaFacet.FacetName','string');
json.UpdateString('Operations[0].AddFacetToObject.SchemaFacet.SchemaArn','string');
json.UpdateString('Operations[0].AttachObject.ChildReference.Selector','string');
json.UpdateString('Operations[0].AttachObject.LinkName','string');
json.UpdateString('Operations[0].AttachObject.ParentReference.Selector','string');
json.UpdateString('Operations[0].AttachPolicy.ObjectReference.Selector','string');
json.UpdateString('Operations[0].AttachPolicy.PolicyReference.Selector','string');
json.UpdateString('Operations[0].AttachToIndex.IndexReference.Selector','string');
json.UpdateString('Operations[0].AttachToIndex.TargetReference.Selector','string');
json.UpdateString('Operations[0].AttachTypedLink.Attributes[0].AttributeName','string');
json.UpdateInt('Operations[0].AttachTypedLink.Attributes[0].Value.BinaryValue',123);
json.UpdateInt('Operations[0].AttachTypedLink.Attributes[0].Value.BooleanValue',123);
json.UpdateInt('Operations[0].AttachTypedLink.Attributes[0].Value.DatetimeValue',123);
json.UpdateString('Operations[0].AttachTypedLink.Attributes[0].Value.NumberValue','string');
json.UpdateString('Operations[0].AttachTypedLink.Attributes[0].Value.StringValue','string');
json.UpdateString('Operations[0].AttachTypedLink.SourceObjectReference.Selector','string');
json.UpdateString('Operations[0].AttachTypedLink.TargetObjectReference.Selector','string');
json.UpdateString('Operations[0].AttachTypedLink.TypedLinkFacet.SchemaArn','string');
json.UpdateString('Operations[0].AttachTypedLink.TypedLinkFacet.TypedLinkName','string');
json.UpdateString('Operations[0].CreateIndex.BatchReferenceName','string');
json.UpdateInt('Operations[0].CreateIndex.IsUnique',123);
json.UpdateString('Operations[0].CreateIndex.LinkName','string');
json.UpdateString('Operations[0].CreateIndex.OrderedIndexedAttributeList[0].FacetName','string');
json.UpdateString('Operations[0].CreateIndex.OrderedIndexedAttributeList[0].Name','string');
json.UpdateString('Operations[0].CreateIndex.OrderedIndexedAttributeList[0].SchemaArn','string');
json.UpdateString('Operations[0].CreateIndex.ParentReference.Selector','string');
json.UpdateString('Operations[0].CreateObject.BatchReferenceName','string');
json.UpdateString('Operations[0].CreateObject.LinkName','string');
json.UpdateString('Operations[0].CreateObject.ObjectAttributeList[0].Key.FacetName','string');
json.UpdateString('Operations[0].CreateObject.ObjectAttributeList[0].Key.Name','string');
json.UpdateString('Operations[0].CreateObject.ObjectAttributeList[0].Key.SchemaArn','string');
json.UpdateInt('Operations[0].CreateObject.ObjectAttributeList[0].Value.BinaryValue',123);
json.UpdateInt('Operations[0].CreateObject.ObjectAttributeList[0].Value.BooleanValue',123);
json.UpdateInt('Operations[0].CreateObject.ObjectAttributeList[0].Value.DatetimeValue',123);
json.UpdateString('Operations[0].CreateObject.ObjectAttributeList[0].Value.NumberValue','string');
json.UpdateString('Operations[0].CreateObject.ObjectAttributeList[0].Value.StringValue','string');
json.UpdateString('Operations[0].CreateObject.ParentReference.Selector','string');
json.UpdateString('Operations[0].CreateObject.SchemaFacet[0].FacetName','string');
json.UpdateString('Operations[0].CreateObject.SchemaFacet[0].SchemaArn','string');
json.UpdateString('Operations[0].DeleteObject.ObjectReference.Selector','string');
json.UpdateString('Operations[0].DetachFromIndex.IndexReference.Selector','string');
json.UpdateString('Operations[0].DetachFromIndex.TargetReference.Selector','string');
json.UpdateString('Operations[0].DetachObject.BatchReferenceName','string');
json.UpdateString('Operations[0].DetachObject.LinkName','string');
json.UpdateString('Operations[0].DetachObject.ParentReference.Selector','string');
json.UpdateString('Operations[0].DetachPolicy.ObjectReference.Selector','string');
json.UpdateString('Operations[0].DetachPolicy.PolicyReference.Selector','string');
json.UpdateString('Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName','string');
json.UpdateInt('Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue',123);
json.UpdateInt('Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue',123);
json.UpdateInt('Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue',123);
json.UpdateString('Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue','string');
json.UpdateString('Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue','string');
json.UpdateString('Operations[0].DetachTypedLink.TypedLinkSpecifier.SourceObjectReference.Selector','string');
json.UpdateString('Operations[0].DetachTypedLink.TypedLinkSpecifier.TargetObjectReference.Selector','string');
json.UpdateString('Operations[0].DetachTypedLink.TypedLinkSpecifier.TypedLinkFacet.SchemaArn','string');
json.UpdateString('Operations[0].DetachTypedLink.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName','string');
json.UpdateString('Operations[0].RemoveFacetFromObject.ObjectReference.Selector','string');
json.UpdateString('Operations[0].RemoveFacetFromObject.SchemaFacet.FacetName','string');
json.UpdateString('Operations[0].RemoveFacetFromObject.SchemaFacet.SchemaArn','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeActionType','string');
json.UpdateInt('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.BinaryValue',123);
json.UpdateInt('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.BooleanValue',123);
json.UpdateInt('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.DatetimeValue',123);
json.UpdateString('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.NumberValue','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.StringValue','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.FacetName','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.Name','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.SchemaArn','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName','string');
json.UpdateInt('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue',123);
json.UpdateInt('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue',123);
json.UpdateInt('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue',123);
json.UpdateString('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.SourceObjectReference.Selector','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TargetObjectReference.Selector','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.SchemaArn','string');
json.UpdateString('Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName','string');
json.UpdateString('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeActionType','string');
json.UpdateInt('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.BinaryValue',123);
json.UpdateInt('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.BooleanValue',123);
json.UpdateInt('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.DatetimeValue',123);
json.UpdateString('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.NumberValue','string');
json.UpdateString('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.StringValue','string');
json.UpdateString('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.FacetName','string');
json.UpdateString('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.Name','string');
json.UpdateString('Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.SchemaArn','string');
json.UpdateString('Operations[0].UpdateObjectAttributes.ObjectReference.Selector','string');
// The JSON request body created by the above code:
// {
// "Operations": [
// {
// "AddFacetToObject": {
// "ObjectAttributeList": [
// {
// "Key": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "ObjectReference": {
// "Selector": "string"
// },
// "SchemaFacet": {
// "FacetName": "string",
// "SchemaArn": "string"
// }
// },
// "AttachObject": {
// "ChildReference": {
// "Selector": "string"
// },
// "LinkName": "string",
// "ParentReference": {
// "Selector": "string"
// }
// },
// "AttachPolicy": {
// "ObjectReference": {
// "Selector": "string"
// },
// "PolicyReference": {
// "Selector": "string"
// }
// },
// "AttachToIndex": {
// "IndexReference": {
// "Selector": "string"
// },
// "TargetReference": {
// "Selector": "string"
// }
// },
// "AttachTypedLink": {
// "Attributes": [
// {
// "AttributeName": "string",
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "SourceObjectReference": {
// "Selector": "string"
// },
// "TargetObjectReference": {
// "Selector": "string"
// },
// "TypedLinkFacet": {
// "SchemaArn": "string",
// "TypedLinkName": "string"
// }
// },
// "CreateIndex": {
// "BatchReferenceName": "string",
// "IsUnique": boolean,
// "LinkName": "string",
// "OrderedIndexedAttributeList": [
// {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// }
// ],
// "ParentReference": {
// "Selector": "string"
// }
// },
// "CreateObject": {
// "BatchReferenceName": "string",
// "LinkName": "string",
// "ObjectAttributeList": [
// {
// "Key": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// },
// "Value": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// }
// ],
// "ParentReference": {
// "Selector": "string"
// },
// "SchemaFacet": [
// {
// "FacetName": "string",
// "SchemaArn": "string"
// }
// ]
// },
// "DeleteObject": {
// "ObjectReference": {
// "Selector": "string"
// }
// },
// "DetachFromIndex": {
// "IndexReference": {
// "Selector": "string"
// },
// "TargetReference": {
// "Selector": "string"
// }
// },
// "DetachObject": {
// "BatchReferenceName": "string",
// "LinkName": "string",
// "ParentReference": {
// "Selector": "string"
// }
// },
// "DetachPolicy": {
// "ObjectReference": {
// "Selector": "string"
// },
// "PolicyReference": {
// "Selector": "string"
// }
// },
// "DetachTypedLink": {
// "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"
// }
// }
// },
// "RemoveFacetFromObject": {
// "ObjectReference": {
// "Selector": "string"
// },
// "SchemaFacet": {
// "FacetName": "string",
// "SchemaArn": "string"
// }
// },
// "UpdateLinkAttributes": {
// "AttributeUpdates": [
// {
// "AttributeAction": {
// "AttributeActionType": "string",
// "AttributeUpdateValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// },
// "AttributeKey": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "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"
// }
// }
// },
// "UpdateObjectAttributes": {
// "AttributeUpdates": [
// {
// "ObjectAttributeAction": {
// "ObjectAttributeActionType": "string",
// "ObjectAttributeUpdateValue": {
// "BinaryValue": blob,
// "BooleanValue": boolean,
// "DatetimeValue": number,
// "NumberValue": "string",
// "StringValue": "string"
// }
// },
// "ObjectAttributeKey": {
// "FacetName": "string",
// "Name": "string",
// "SchemaArn": "string"
// }
// }
// ],
// "ObjectReference": {
// "Selector": "string"
// }
// }
// }
// ]
// }
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','BatchWrite');
sbRequestBody := TChilkatStringBuilder.Create(Self);
json.EmitSb(sbRequestBody.ControlInterface);
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestSb('PUT','/amazonclouddirectory/2017-01-11/batchwrite',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 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
i := 0;
count_i := jResp.SizeOfArray('Responses');
while i < count_i do
begin
jResp.I := i;
AttachedObjectIdentifier := jResp.StringOf('Responses[i].AttachObject.attachedObjectIdentifier');
AttachToIndexAttachedObjectIdentifier := jResp.StringOf('Responses[i].AttachToIndex.AttachedObjectIdentifier');
Selector := jResp.StringOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.SourceObjectReference.Selector');
TargetObjectReferenceSelector := jResp.StringOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.TargetObjectReference.Selector');
SchemaArn := jResp.StringOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.TypedLinkFacet.SchemaArn');
TypedLinkName := jResp.StringOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName');
ObjectIdentifier := jResp.StringOf('Responses[i].CreateIndex.ObjectIdentifier');
CreateObjectObjectIdentifier := jResp.StringOf('Responses[i].CreateObject.ObjectIdentifier');
DetachedObjectIdentifier := jResp.StringOf('Responses[i].DetachFromIndex.DetachedObjectIdentifier');
DetachObjectDetachedObjectIdentifier := jResp.StringOf('Responses[i].DetachObject.detachedObjectIdentifier');
UpdateObjectAttributesObjectIdentifier := jResp.StringOf('Responses[i].UpdateObjectAttributes.ObjectIdentifier');
j := 0;
count_j := jResp.SizeOfArray('Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues');
while j < count_j do
begin
jResp.J := j;
AttributeName := jResp.StringOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].AttributeName');
BinaryValue := jResp.IntOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.BinaryValue');
BooleanValue := jResp.IntOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.BooleanValue');
DatetimeValue := jResp.IntOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.DatetimeValue');
NumberValue := jResp.StringOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.NumberValue');
StringValue := jResp.StringOf('Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.StringValue');
j := j + 1;
end;
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "Responses": [
// {
// "AddFacetToObject": {},
// "AttachObject": {
// "attachedObjectIdentifier": "string"
// },
// "AttachPolicy": {},
// "AttachToIndex": {
// "AttachedObjectIdentifier": "string"
// },
// "AttachTypedLink": {
// "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"
// }
// }
// },
// "CreateIndex": {
// "ObjectIdentifier": "string"
// },
// "CreateObject": {
// "ObjectIdentifier": "string"
// },
// "DeleteObject": {},
// "DetachFromIndex": {
// "DetachedObjectIdentifier": "string"
// },
// "DetachObject": {
// "detachedObjectIdentifier": "string"
// },
// "DetachPolicy": {},
// "DetachTypedLink": {},
// "RemoveFacetFromObject": {},
// "UpdateLinkAttributes": {},
// "UpdateObjectAttributes": {
// "ObjectIdentifier": "string"
// }
// }
// ]
// }
