BatchGetDeploymentTargets delphiDll Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
DeploymentId: PWideChar;
LastUpdatedAt: Integer;
ResourceType: PWideChar;
Status: PWideChar;
TargetId: PWideChar;
TargetVersionWeight: Integer;
deploymentTargetType: PWideChar;
ecsTargetDeploymentId: PWideChar;
ecsTargetLastUpdatedAt: Integer;
ecsTargetStatus: PWideChar;
TargetArn: PWideChar;
ecsTargetTargetId: PWideChar;
instanceTargetDeploymentId: PWideChar;
InstanceLabel: PWideChar;
instanceTargetLastUpdatedAt: Integer;
instanceTargetStatus: PWideChar;
instanceTargetTargetArn: PWideChar;
instanceTargetTargetId: PWideChar;
lambdaTargetDeploymentId: PWideChar;
CurrentVersion: PWideChar;
FunctionAlias: PWideChar;
FunctionName: PWideChar;
TargetVersion: PWideChar;
LambdaFunctionInfoTargetVersionWeight: Integer;
lambdaTargetLastUpdatedAt: Integer;
lambdaTargetStatus: PWideChar;
lambdaTargetTargetArn: PWideChar;
lambdaTargetTargetId: PWideChar;
j: Integer;
count_j: Integer;
ErrorCode: PWideChar;
LogTail: PWideChar;
Message: PWideChar;
ScriptName: PWideChar;
endTime: Integer;
lifecycleEventName: PWideChar;
startTime: Integer;
status: PWideChar;
diagnosticsErrorCode: PWideChar;
diagnosticsLogTail: PWideChar;
diagnosticsMessage: PWideChar;
diagnosticsScriptName: PWideChar;
desiredCount: Integer;
identifer: PWideChar;
pendingCount: Integer;
runningCount: Integer;
Name: PWideChar;
taskSetLabel: PWideChar;
trafficWeight: Integer;
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,'codedeploy');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://codedeploy.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := CkRest_Connect(rest,'codedeploy.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,'deploymentId','string');
CkJsonObject_UpdateString(json,'targetIds[0]','string');
// The JSON request body created by the above code:
// {
// "deploymentId": "string",
// "targetIds": [
// "string"
// ]
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','CodeDeploy_20141006.BatchGetDeploymentTargets');
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 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,'deploymentTargets');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
DeploymentId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.deploymentId');
LastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTargets[i].cloudFormationTarget.lastUpdatedAt');
ResourceType := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.resourceType');
Status := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.status');
TargetId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.targetId');
TargetVersionWeight := CkJsonObject_IntOf(jResp,'deploymentTargets[i].cloudFormationTarget.targetVersionWeight');
deploymentTargetType := CkJsonObject__stringOf(jResp,'deploymentTargets[i].deploymentTargetType');
ecsTargetDeploymentId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.deploymentId');
ecsTargetLastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTargets[i].ecsTarget.lastUpdatedAt');
ecsTargetStatus := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.status');
TargetArn := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.targetArn');
ecsTargetTargetId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.targetId');
instanceTargetDeploymentId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.deploymentId');
InstanceLabel := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.instanceLabel');
instanceTargetLastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTargets[i].instanceTarget.lastUpdatedAt');
instanceTargetStatus := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.status');
instanceTargetTargetArn := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.targetArn');
instanceTargetTargetId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.targetId');
lambdaTargetDeploymentId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.deploymentId');
CurrentVersion := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lambdaFunctionInfo.currentVersion');
FunctionAlias := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lambdaFunctionInfo.functionAlias');
FunctionName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lambdaFunctionInfo.functionName');
TargetVersion := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lambdaFunctionInfo.targetVersion');
LambdaFunctionInfoTargetVersionWeight := CkJsonObject_IntOf(jResp,'deploymentTargets[i].lambdaTarget.lambdaFunctionInfo.targetVersionWeight');
lambdaTargetLastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTargets[i].lambdaTarget.lastUpdatedAt');
lambdaTargetStatus := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.status');
lambdaTargetTargetArn := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.targetArn');
lambdaTargetTargetId := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.targetId');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
ErrorCode := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].diagnostics.errorCode');
LogTail := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].diagnostics.logTail');
Message := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].diagnostics.message');
ScriptName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTargets[i].cloudFormationTarget.lifecycleEvents[j].status');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
diagnosticsErrorCode := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].diagnostics.errorCode');
diagnosticsLogTail := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].diagnostics.logTail');
diagnosticsMessage := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].diagnostics.message');
diagnosticsScriptName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.lifecycleEvents[j].status');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
desiredCount := CkJsonObject_IntOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].desiredCount');
identifer := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].identifer');
pendingCount := CkJsonObject_IntOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].pendingCount');
runningCount := CkJsonObject_IntOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].runningCount');
status := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].status');
Name := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].targetGroup.name');
taskSetLabel := CkJsonObject__stringOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].taskSetLabel');
trafficWeight := CkJsonObject_IntOf(jResp,'deploymentTargets[i].ecsTarget.taskSetsInfo[j].trafficWeight');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
diagnosticsErrorCode := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].diagnostics.errorCode');
diagnosticsLogTail := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].diagnostics.logTail');
diagnosticsMessage := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].diagnostics.message');
diagnosticsScriptName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTargets[i].instanceTarget.lifecycleEvents[j].status');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
diagnosticsErrorCode := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].diagnostics.errorCode');
diagnosticsLogTail := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].diagnostics.logTail');
diagnosticsMessage := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].diagnostics.message');
diagnosticsScriptName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTargets[i].lambdaTarget.lifecycleEvents[j].status');
j := j + 1;
end;
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "deploymentTargets": [
// {
// "cloudFormationTarget": {
// "deploymentId": "string",
// "lastUpdatedAt": number,
// "lifecycleEvents": [
// {
// "diagnostics": {
// "errorCode": "string",
// "logTail": "string",
// "message": "string",
// "scriptName": "string"
// },
// "endTime": number,
// "lifecycleEventName": "string",
// "startTime": number,
// "status": "string"
// }
// ],
// "resourceType": "string",
// "status": "string",
// "targetId": "string",
// "targetVersionWeight": number
// },
// "deploymentTargetType": "string",
// "ecsTarget": {
// "deploymentId": "string",
// "lastUpdatedAt": number,
// "lifecycleEvents": [
// {
// "diagnostics": {
// "errorCode": "string",
// "logTail": "string",
// "message": "string",
// "scriptName": "string"
// },
// "endTime": number,
// "lifecycleEventName": "string",
// "startTime": number,
// "status": "string"
// }
// ],
// "status": "string",
// "targetArn": "string",
// "targetId": "string",
// "taskSetsInfo": [
// {
// "desiredCount": number,
// "identifer": "string",
// "pendingCount": number,
// "runningCount": number,
// "status": "string",
// "targetGroup": {
// "name": "string"
// },
// "taskSetLabel": "string",
// "trafficWeight": number
// }
// ]
// },
// "instanceTarget": {
// "deploymentId": "string",
// "instanceLabel": "string",
// "lastUpdatedAt": number,
// "lifecycleEvents": [
// {
// "diagnostics": {
// "errorCode": "string",
// "logTail": "string",
// "message": "string",
// "scriptName": "string"
// },
// "endTime": number,
// "lifecycleEventName": "string",
// "startTime": number,
// "status": "string"
// }
// ],
// "status": "string",
// "targetArn": "string",
// "targetId": "string"
// },
// "lambdaTarget": {
// "deploymentId": "string",
// "lambdaFunctionInfo": {
// "currentVersion": "string",
// "functionAlias": "string",
// "functionName": "string",
// "targetVersion": "string",
// "targetVersionWeight": number
// },
// "lastUpdatedAt": number,
// "lifecycleEvents": [
// {
// "diagnostics": {
// "errorCode": "string",
// "logTail": "string",
// "message": "string",
// "scriptName": "string"
// },
// "endTime": number,
// "lifecycleEventName": "string",
// "startTime": number,
// "status": "string"
// }
// ],
// "status": "string",
// "targetArn": "string",
// "targetId": "string"
// }
// }
// ]
// }
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
