GetDeploymentTarget delphiDll Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
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;
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;
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,'targetId','string');
// The JSON request body created by the above code:
// {
// "deploymentId": "string",
// "targetId": "string"
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','CodeDeploy_20141006.GetDeploymentTarget');
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
DeploymentId := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.deploymentId');
LastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTarget.cloudFormationTarget.lastUpdatedAt');
ResourceType := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.resourceType');
Status := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.status');
TargetId := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.targetId');
TargetVersionWeight := CkJsonObject_IntOf(jResp,'deploymentTarget.cloudFormationTarget.targetVersionWeight');
DeploymentTargetType := CkJsonObject__stringOf(jResp,'deploymentTarget.deploymentTargetType');
EcsTargetDeploymentId := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.deploymentId');
EcsTargetLastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTarget.ecsTarget.lastUpdatedAt');
EcsTargetStatus := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.status');
TargetArn := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.targetArn');
EcsTargetTargetId := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.targetId');
InstanceTargetDeploymentId := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.deploymentId');
InstanceLabel := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.instanceLabel');
InstanceTargetLastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTarget.instanceTarget.lastUpdatedAt');
InstanceTargetStatus := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.status');
InstanceTargetTargetArn := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.targetArn');
InstanceTargetTargetId := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.targetId');
LambdaTargetDeploymentId := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.deploymentId');
CurrentVersion := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lambdaFunctionInfo.currentVersion');
FunctionAlias := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lambdaFunctionInfo.functionAlias');
FunctionName := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lambdaFunctionInfo.functionName');
TargetVersion := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lambdaFunctionInfo.targetVersion');
LambdaFunctionInfoTargetVersionWeight := CkJsonObject_IntOf(jResp,'deploymentTarget.lambdaTarget.lambdaFunctionInfo.targetVersionWeight');
LambdaTargetLastUpdatedAt := CkJsonObject_IntOf(jResp,'deploymentTarget.lambdaTarget.lastUpdatedAt');
LambdaTargetStatus := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.status');
LambdaTargetTargetArn := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.targetArn');
LambdaTargetTargetId := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.targetId');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
ErrorCode := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].diagnostics.errorCode');
LogTail := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].diagnostics.logTail');
Message := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].diagnostics.message');
ScriptName := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTarget.cloudFormationTarget.lifecycleEvents[i].status');
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'deploymentTarget.ecsTarget.lifecycleEvents');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
diagnosticsErrorCode := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].diagnostics.errorCode');
diagnosticsLogTail := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].diagnostics.logTail');
diagnosticsMessage := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].diagnostics.message');
diagnosticsScriptName := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.lifecycleEvents[i].status');
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'deploymentTarget.ecsTarget.taskSetsInfo');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
desiredCount := CkJsonObject_IntOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].desiredCount');
identifer := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].identifer');
pendingCount := CkJsonObject_IntOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].pendingCount');
runningCount := CkJsonObject_IntOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].runningCount');
status := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].status');
Name := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].targetGroup.name');
taskSetLabel := CkJsonObject__stringOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].taskSetLabel');
trafficWeight := CkJsonObject_IntOf(jResp,'deploymentTarget.ecsTarget.taskSetsInfo[i].trafficWeight');
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'deploymentTarget.instanceTarget.lifecycleEvents');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
diagnosticsErrorCode := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].diagnostics.errorCode');
diagnosticsLogTail := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].diagnostics.logTail');
diagnosticsMessage := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].diagnostics.message');
diagnosticsScriptName := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTarget.instanceTarget.lifecycleEvents[i].status');
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
diagnosticsErrorCode := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].diagnostics.errorCode');
diagnosticsLogTail := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].diagnostics.logTail');
diagnosticsMessage := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].diagnostics.message');
diagnosticsScriptName := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].diagnostics.scriptName');
endTime := CkJsonObject_IntOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].endTime');
lifecycleEventName := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].lifecycleEventName');
startTime := CkJsonObject_IntOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].startTime');
status := CkJsonObject__stringOf(jResp,'deploymentTarget.lambdaTarget.lifecycleEvents[i].status');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "deploymentTarget": {
// "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);
