BatchGetBuilds Delphi (DLL) Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
arn: PWideChar;
ArtifactIdentifier: PWideChar;
BucketOwnerAccess: PWideChar;
EncryptionDisabled: Integer;
Location: PWideChar;
Md5sum: PWideChar;
OverrideArtifactName: Integer;
Sha256sum: PWideChar;
buildBatchArn: PWideChar;
buildComplete: Integer;
buildNumber: Integer;
buildStatus: PWideChar;
cacheLocation: PWideChar;
v_Type: PWideChar;
currentPhase: PWideChar;
SessionEnabled: Integer;
SessionTarget: PWideChar;
encryptionKey: PWideChar;
endTime: Integer;
Certificate: PWideChar;
ComputeType: PWideChar;
Image: PWideChar;
ImagePullCredentialsType: PWideChar;
PrivilegedMode: Integer;
Credential: PWideChar;
CredentialProvider: PWideChar;
environmentType: PWideChar;
id: PWideChar;
initiator: PWideChar;
GroupName: PWideChar;
Status: PWideChar;
StreamName: PWideChar;
CloudWatchLogsArn: PWideChar;
DeepLink: PWideChar;
logsGroupName: PWideChar;
S3DeepLink: PWideChar;
S3LogsBucketOwnerAccess: PWideChar;
S3LogsEncryptionDisabled: Integer;
S3LogsLocation: PWideChar;
S3LogsStatus: PWideChar;
S3LogsArn: PWideChar;
logsStreamName: PWideChar;
NetworkInterfaceId: PWideChar;
SubnetId: PWideChar;
projectName: PWideChar;
queuedTimeoutInMinutes: Integer;
resolvedSourceVersion: PWideChar;
serviceRole: PWideChar;
Resource: PWideChar;
AuthType: PWideChar;
Buildspec: PWideChar;
Context: PWideChar;
TargetUrl: PWideChar;
GitCloneDepth: Integer;
FetchSubmodules: Integer;
InsecureSsl: Integer;
sourceLocation: PWideChar;
ReportBuildStatus: Integer;
SourceIdentifier: PWideChar;
sourceType: PWideChar;
sourceVersion: PWideChar;
startTime: Integer;
timeoutInMinutes: Integer;
VpcId: PWideChar;
j: Integer;
count_j: Integer;
strVal: PWideChar;
name: PWideChar;
v_type: PWideChar;
value: PWideChar;
identifier: PWideChar;
location: PWideChar;
mountOptions: PWideChar;
mountPoint: PWideChar;
durationInSeconds: Integer;
phaseStatus: PWideChar;
phaseType: PWideChar;
k: Integer;
count_k: Integer;
message: PWideChar;
statusCode: PWideChar;
artifactIdentifier: PWideChar;
bucketOwnerAccess: PWideChar;
encryptionDisabled: Integer;
md5sum: PWideChar;
overrideArtifactName: Integer;
sha256sum: PWideChar;
authResource: PWideChar;
authType: PWideChar;
buildspec: PWideChar;
buildStatusConfigContext: PWideChar;
buildStatusConfigTargetUrl: PWideChar;
gitCloneDepth: Integer;
gitSubmodulesConfigFetchSubmodules: Integer;
insecureSsl: Integer;
reportBuildStatus: Integer;
sourceIdentifier: 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,'codebuild');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://codebuild.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := CkRest_Connect(rest,'codebuild.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,'ids[0]','string');
// The JSON request body created by the above code:
// {
// "ids": [
// "string"
// ]
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','CodeBuild_20161006.BatchGetBuilds');
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,'builds');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
arn := CkJsonObject__stringOf(jResp,'builds[i].arn');
ArtifactIdentifier := CkJsonObject__stringOf(jResp,'builds[i].artifacts.artifactIdentifier');
BucketOwnerAccess := CkJsonObject__stringOf(jResp,'builds[i].artifacts.bucketOwnerAccess');
EncryptionDisabled := CkJsonObject_IntOf(jResp,'builds[i].artifacts.encryptionDisabled');
Location := CkJsonObject__stringOf(jResp,'builds[i].artifacts.location');
Md5sum := CkJsonObject__stringOf(jResp,'builds[i].artifacts.md5sum');
OverrideArtifactName := CkJsonObject_IntOf(jResp,'builds[i].artifacts.overrideArtifactName');
Sha256sum := CkJsonObject__stringOf(jResp,'builds[i].artifacts.sha256sum');
buildBatchArn := CkJsonObject__stringOf(jResp,'builds[i].buildBatchArn');
buildComplete := CkJsonObject_IntOf(jResp,'builds[i].buildComplete');
buildNumber := CkJsonObject_IntOf(jResp,'builds[i].buildNumber');
buildStatus := CkJsonObject__stringOf(jResp,'builds[i].buildStatus');
cacheLocation := CkJsonObject__stringOf(jResp,'builds[i].cache.location');
v_Type := CkJsonObject__stringOf(jResp,'builds[i].cache.type');
currentPhase := CkJsonObject__stringOf(jResp,'builds[i].currentPhase');
SessionEnabled := CkJsonObject_IntOf(jResp,'builds[i].debugSession.sessionEnabled');
SessionTarget := CkJsonObject__stringOf(jResp,'builds[i].debugSession.sessionTarget');
encryptionKey := CkJsonObject__stringOf(jResp,'builds[i].encryptionKey');
endTime := CkJsonObject_IntOf(jResp,'builds[i].endTime');
Certificate := CkJsonObject__stringOf(jResp,'builds[i].environment.certificate');
ComputeType := CkJsonObject__stringOf(jResp,'builds[i].environment.computeType');
Image := CkJsonObject__stringOf(jResp,'builds[i].environment.image');
ImagePullCredentialsType := CkJsonObject__stringOf(jResp,'builds[i].environment.imagePullCredentialsType');
PrivilegedMode := CkJsonObject_IntOf(jResp,'builds[i].environment.privilegedMode');
Credential := CkJsonObject__stringOf(jResp,'builds[i].environment.registryCredential.credential');
CredentialProvider := CkJsonObject__stringOf(jResp,'builds[i].environment.registryCredential.credentialProvider');
environmentType := CkJsonObject__stringOf(jResp,'builds[i].environment.type');
id := CkJsonObject__stringOf(jResp,'builds[i].id');
initiator := CkJsonObject__stringOf(jResp,'builds[i].initiator');
GroupName := CkJsonObject__stringOf(jResp,'builds[i].logs.cloudWatchLogs.groupName');
Status := CkJsonObject__stringOf(jResp,'builds[i].logs.cloudWatchLogs.status');
StreamName := CkJsonObject__stringOf(jResp,'builds[i].logs.cloudWatchLogs.streamName');
CloudWatchLogsArn := CkJsonObject__stringOf(jResp,'builds[i].logs.cloudWatchLogsArn');
DeepLink := CkJsonObject__stringOf(jResp,'builds[i].logs.deepLink');
logsGroupName := CkJsonObject__stringOf(jResp,'builds[i].logs.groupName');
S3DeepLink := CkJsonObject__stringOf(jResp,'builds[i].logs.s3DeepLink');
S3LogsBucketOwnerAccess := CkJsonObject__stringOf(jResp,'builds[i].logs.s3Logs.bucketOwnerAccess');
S3LogsEncryptionDisabled := CkJsonObject_IntOf(jResp,'builds[i].logs.s3Logs.encryptionDisabled');
S3LogsLocation := CkJsonObject__stringOf(jResp,'builds[i].logs.s3Logs.location');
S3LogsStatus := CkJsonObject__stringOf(jResp,'builds[i].logs.s3Logs.status');
S3LogsArn := CkJsonObject__stringOf(jResp,'builds[i].logs.s3LogsArn');
logsStreamName := CkJsonObject__stringOf(jResp,'builds[i].logs.streamName');
NetworkInterfaceId := CkJsonObject__stringOf(jResp,'builds[i].networkInterface.networkInterfaceId');
SubnetId := CkJsonObject__stringOf(jResp,'builds[i].networkInterface.subnetId');
projectName := CkJsonObject__stringOf(jResp,'builds[i].projectName');
queuedTimeoutInMinutes := CkJsonObject_IntOf(jResp,'builds[i].queuedTimeoutInMinutes');
resolvedSourceVersion := CkJsonObject__stringOf(jResp,'builds[i].resolvedSourceVersion');
serviceRole := CkJsonObject__stringOf(jResp,'builds[i].serviceRole');
Resource := CkJsonObject__stringOf(jResp,'builds[i].source.auth.resource');
AuthType := CkJsonObject__stringOf(jResp,'builds[i].source.auth.type');
Buildspec := CkJsonObject__stringOf(jResp,'builds[i].source.buildspec');
Context := CkJsonObject__stringOf(jResp,'builds[i].source.buildStatusConfig.context');
TargetUrl := CkJsonObject__stringOf(jResp,'builds[i].source.buildStatusConfig.targetUrl');
GitCloneDepth := CkJsonObject_IntOf(jResp,'builds[i].source.gitCloneDepth');
FetchSubmodules := CkJsonObject_IntOf(jResp,'builds[i].source.gitSubmodulesConfig.fetchSubmodules');
InsecureSsl := CkJsonObject_IntOf(jResp,'builds[i].source.insecureSsl');
sourceLocation := CkJsonObject__stringOf(jResp,'builds[i].source.location');
ReportBuildStatus := CkJsonObject_IntOf(jResp,'builds[i].source.reportBuildStatus');
SourceIdentifier := CkJsonObject__stringOf(jResp,'builds[i].source.sourceIdentifier');
sourceType := CkJsonObject__stringOf(jResp,'builds[i].source.type');
sourceVersion := CkJsonObject__stringOf(jResp,'builds[i].sourceVersion');
startTime := CkJsonObject_IntOf(jResp,'builds[i].startTime');
timeoutInMinutes := CkJsonObject_IntOf(jResp,'builds[i].timeoutInMinutes');
VpcId := CkJsonObject__stringOf(jResp,'builds[i].vpcConfig.vpcId');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].cache.modes');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'builds[i].cache.modes[j]');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].environment.environmentVariables');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
name := CkJsonObject__stringOf(jResp,'builds[i].environment.environmentVariables[j].name');
v_type := CkJsonObject__stringOf(jResp,'builds[i].environment.environmentVariables[j].type');
value := CkJsonObject__stringOf(jResp,'builds[i].environment.environmentVariables[j].value');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].exportedEnvironmentVariables');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
name := CkJsonObject__stringOf(jResp,'builds[i].exportedEnvironmentVariables[j].name');
value := CkJsonObject__stringOf(jResp,'builds[i].exportedEnvironmentVariables[j].value');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].fileSystemLocations');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
identifier := CkJsonObject__stringOf(jResp,'builds[i].fileSystemLocations[j].identifier');
location := CkJsonObject__stringOf(jResp,'builds[i].fileSystemLocations[j].location');
mountOptions := CkJsonObject__stringOf(jResp,'builds[i].fileSystemLocations[j].mountOptions');
mountPoint := CkJsonObject__stringOf(jResp,'builds[i].fileSystemLocations[j].mountPoint');
v_type := CkJsonObject__stringOf(jResp,'builds[i].fileSystemLocations[j].type');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].phases');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
durationInSeconds := CkJsonObject_IntOf(jResp,'builds[i].phases[j].durationInSeconds');
endTime := CkJsonObject_IntOf(jResp,'builds[i].phases[j].endTime');
phaseStatus := CkJsonObject__stringOf(jResp,'builds[i].phases[j].phaseStatus');
phaseType := CkJsonObject__stringOf(jResp,'builds[i].phases[j].phaseType');
startTime := CkJsonObject_IntOf(jResp,'builds[i].phases[j].startTime');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'builds[i].phases[j].contexts');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
message := CkJsonObject__stringOf(jResp,'builds[i].phases[j].contexts[k].message');
statusCode := CkJsonObject__stringOf(jResp,'builds[i].phases[j].contexts[k].statusCode');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].reportArns');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'builds[i].reportArns[j]');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].secondaryArtifacts');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
artifactIdentifier := CkJsonObject__stringOf(jResp,'builds[i].secondaryArtifacts[j].artifactIdentifier');
bucketOwnerAccess := CkJsonObject__stringOf(jResp,'builds[i].secondaryArtifacts[j].bucketOwnerAccess');
encryptionDisabled := CkJsonObject_IntOf(jResp,'builds[i].secondaryArtifacts[j].encryptionDisabled');
location := CkJsonObject__stringOf(jResp,'builds[i].secondaryArtifacts[j].location');
md5sum := CkJsonObject__stringOf(jResp,'builds[i].secondaryArtifacts[j].md5sum');
overrideArtifactName := CkJsonObject_IntOf(jResp,'builds[i].secondaryArtifacts[j].overrideArtifactName');
sha256sum := CkJsonObject__stringOf(jResp,'builds[i].secondaryArtifacts[j].sha256sum');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].secondarySources');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
authResource := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].auth.resource');
authType := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].auth.type');
buildspec := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].buildspec');
buildStatusConfigContext := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].buildStatusConfig.context');
buildStatusConfigTargetUrl := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].buildStatusConfig.targetUrl');
gitCloneDepth := CkJsonObject_IntOf(jResp,'builds[i].secondarySources[j].gitCloneDepth');
gitSubmodulesConfigFetchSubmodules := CkJsonObject_IntOf(jResp,'builds[i].secondarySources[j].gitSubmodulesConfig.fetchSubmodules');
insecureSsl := CkJsonObject_IntOf(jResp,'builds[i].secondarySources[j].insecureSsl');
location := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].location');
reportBuildStatus := CkJsonObject_IntOf(jResp,'builds[i].secondarySources[j].reportBuildStatus');
sourceIdentifier := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].sourceIdentifier');
v_type := CkJsonObject__stringOf(jResp,'builds[i].secondarySources[j].type');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].secondarySourceVersions');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
sourceIdentifier := CkJsonObject__stringOf(jResp,'builds[i].secondarySourceVersions[j].sourceIdentifier');
sourceVersion := CkJsonObject__stringOf(jResp,'builds[i].secondarySourceVersions[j].sourceVersion');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].vpcConfig.securityGroupIds');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'builds[i].vpcConfig.securityGroupIds[j]');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'builds[i].vpcConfig.subnets');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'builds[i].vpcConfig.subnets[j]');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'buildsNotFound');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
strVal := CkJsonObject__stringOf(jResp,'buildsNotFound[i]');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "builds": [
// {
// "arn": "string",
// "artifacts": {
// "artifactIdentifier": "string",
// "bucketOwnerAccess": "string",
// "encryptionDisabled": boolean,
// "location": "string",
// "md5sum": "string",
// "overrideArtifactName": boolean,
// "sha256sum": "string"
// },
// "buildBatchArn": "string",
// "buildComplete": boolean,
// "buildNumber": number,
// "buildStatus": "string",
// "cache": {
// "location": "string",
// "modes": [
// "string"
// ],
// "type": "string"
// },
// "currentPhase": "string",
// "debugSession": {
// "sessionEnabled": boolean,
// "sessionTarget": "string"
// },
// "encryptionKey": "string",
// "endTime": number,
// "environment": {
// "certificate": "string",
// "computeType": "string",
// "environmentVariables": [
// {
// "name": "string",
// "type": "string",
// "value": "string"
// }
// ],
// "image": "string",
// "imagePullCredentialsType": "string",
// "privilegedMode": boolean,
// "registryCredential": {
// "credential": "string",
// "credentialProvider": "string"
// },
// "type": "string"
// },
// "exportedEnvironmentVariables": [
// {
// "name": "string",
// "value": "string"
// }
// ],
// "fileSystemLocations": [
// {
// "identifier": "string",
// "location": "string",
// "mountOptions": "string",
// "mountPoint": "string",
// "type": "string"
// }
// ],
// "id": "string",
// "initiator": "string",
// "logs": {
// "cloudWatchLogs": {
// "groupName": "string",
// "status": "string",
// "streamName": "string"
// },
// "cloudWatchLogsArn": "string",
// "deepLink": "string",
// "groupName": "string",
// "s3DeepLink": "string",
// "s3Logs": {
// "bucketOwnerAccess": "string",
// "encryptionDisabled": boolean,
// "location": "string",
// "status": "string"
// },
// "s3LogsArn": "string",
// "streamName": "string"
// },
// "networkInterface": {
// "networkInterfaceId": "string",
// "subnetId": "string"
// },
// "phases": [
// {
// "contexts": [
// {
// "message": "string",
// "statusCode": "string"
// }
// ],
// "durationInSeconds": number,
// "endTime": number,
// "phaseStatus": "string",
// "phaseType": "string",
// "startTime": number
// }
// ],
// "projectName": "string",
// "queuedTimeoutInMinutes": number,
// "reportArns": [
// "string"
// ],
// "resolvedSourceVersion": "string",
// "secondaryArtifacts": [
// {
// "artifactIdentifier": "string",
// "bucketOwnerAccess": "string",
// "encryptionDisabled": boolean,
// "location": "string",
// "md5sum": "string",
// "overrideArtifactName": boolean,
// "sha256sum": "string"
// }
// ],
// "secondarySources": [
// {
// "auth": {
// "resource": "string",
// "type": "string"
// },
// "buildspec": "string",
// "buildStatusConfig": {
// "context": "string",
// "targetUrl": "string"
// },
// "gitCloneDepth": number,
// "gitSubmodulesConfig": {
// "fetchSubmodules": boolean
// },
// "insecureSsl": boolean,
// "location": "string",
// "reportBuildStatus": boolean,
// "sourceIdentifier": "string",
// "type": "string"
// }
// ],
// "secondarySourceVersions": [
// {
// "sourceIdentifier": "string",
// "sourceVersion": "string"
// }
// ],
// "serviceRole": "string",
// "source": {
// "auth": {
// "resource": "string",
// "type": "string"
// },
// "buildspec": "string",
// "buildStatusConfig": {
// "context": "string",
// "targetUrl": "string"
// },
// "gitCloneDepth": number,
// "gitSubmodulesConfig": {
// "fetchSubmodules": boolean
// },
// "insecureSsl": boolean,
// "location": "string",
// "reportBuildStatus": boolean,
// "sourceIdentifier": "string",
// "type": "string"
// },
// "sourceVersion": "string",
// "startTime": number,
// "timeoutInMinutes": number,
// "vpcConfig": {
// "securityGroupIds": [
// "string"
// ],
// "subnets": [
// "string"
// ],
// "vpcId": "string"
// }
// }
// ],
// "buildsNotFound": [
// "string"
// ]
// }
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
