StopBuild delphiAx Example
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
strVal: WideString;
name: WideString;
v_type: WideString;
value: WideString;
identifier: WideString;
location: WideString;
mountOptions: WideString;
mountPoint: WideString;
durationInSeconds: Integer;
endTime: Integer;
phaseStatus: WideString;
phaseType: WideString;
startTime: Integer;
j: Integer;
count_j: Integer;
message: WideString;
statusCode: WideString;
artifactIdentifier: WideString;
bucketOwnerAccess: WideString;
encryptionDisabled: Integer;
md5sum: WideString;
overrideArtifactName: Integer;
sha256sum: WideString;
authResource: WideString;
authType: WideString;
buildspec: WideString;
buildStatusConfigContext: WideString;
buildStatusConfigTargetUrl: WideString;
gitCloneDepth: Integer;
gitSubmodulesConfigFetchSubmodules: Integer;
insecureSsl: Integer;
reportBuildStatus: Integer;
sourceIdentifier: WideString;
sourceVersion: WideString;
Arn: WideString;
ArtifactIdentifier: WideString;
BucketOwnerAccess: WideString;
EncryptionDisabled: Integer;
Location: WideString;
Md5sum: WideString;
OverrideArtifactName: Integer;
Sha256sum: WideString;
BuildBatchArn: WideString;
BuildComplete: Integer;
BuildNumber: Integer;
BuildStatus: WideString;
CacheLocation: WideString;
v_Type: WideString;
CurrentPhase: WideString;
SessionEnabled: Integer;
SessionTarget: WideString;
EncryptionKey: WideString;
EndTime: Integer;
Certificate: WideString;
ComputeType: WideString;
Image: WideString;
ImagePullCredentialsType: WideString;
PrivilegedMode: Integer;
Credential: WideString;
CredentialProvider: WideString;
EnvironmentType: WideString;
Id: WideString;
Initiator: WideString;
GroupName: WideString;
Status: WideString;
StreamName: WideString;
CloudWatchLogsArn: WideString;
DeepLink: WideString;
LogsGroupName: WideString;
S3DeepLink: WideString;
S3LogsBucketOwnerAccess: WideString;
S3LogsEncryptionDisabled: Integer;
S3LogsLocation: WideString;
S3LogsStatus: WideString;
S3LogsArn: WideString;
LogsStreamName: WideString;
NetworkInterfaceId: WideString;
SubnetId: WideString;
ProjectName: WideString;
QueuedTimeoutInMinutes: Integer;
ResolvedSourceVersion: WideString;
ServiceRole: WideString;
Resource: WideString;
AuthType: WideString;
Buildspec: WideString;
Context: WideString;
TargetUrl: WideString;
GitCloneDepth: Integer;
FetchSubmodules: Integer;
InsecureSsl: Integer;
SourceLocation: WideString;
ReportBuildStatus: Integer;
SourceIdentifier: WideString;
SourceType: WideString;
SourceVersion: WideString;
StartTime: Integer;
TimeoutInMinutes: Integer;
VpcId: 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 := 'codebuild';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);
// URL: https://codebuild.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('codebuild.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('id','string');
// The JSON request body created by the above code:
// {
// "id": "string"
// }
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','CodeBuild_20161006.StopBuild');
sbRequestBody := TChilkatStringBuilder.Create(Self);
json.EmitSb(sbRequestBody.ControlInterface);
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestSb('POST','/',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
Arn := jResp.StringOf('build.arn');
ArtifactIdentifier := jResp.StringOf('build.artifacts.artifactIdentifier');
BucketOwnerAccess := jResp.StringOf('build.artifacts.bucketOwnerAccess');
EncryptionDisabled := jResp.IntOf('build.artifacts.encryptionDisabled');
Location := jResp.StringOf('build.artifacts.location');
Md5sum := jResp.StringOf('build.artifacts.md5sum');
OverrideArtifactName := jResp.IntOf('build.artifacts.overrideArtifactName');
Sha256sum := jResp.StringOf('build.artifacts.sha256sum');
BuildBatchArn := jResp.StringOf('build.buildBatchArn');
BuildComplete := jResp.IntOf('build.buildComplete');
BuildNumber := jResp.IntOf('build.buildNumber');
BuildStatus := jResp.StringOf('build.buildStatus');
CacheLocation := jResp.StringOf('build.cache.location');
v_Type := jResp.StringOf('build.cache.type');
CurrentPhase := jResp.StringOf('build.currentPhase');
SessionEnabled := jResp.IntOf('build.debugSession.sessionEnabled');
SessionTarget := jResp.StringOf('build.debugSession.sessionTarget');
EncryptionKey := jResp.StringOf('build.encryptionKey');
EndTime := jResp.IntOf('build.endTime');
Certificate := jResp.StringOf('build.environment.certificate');
ComputeType := jResp.StringOf('build.environment.computeType');
Image := jResp.StringOf('build.environment.image');
ImagePullCredentialsType := jResp.StringOf('build.environment.imagePullCredentialsType');
PrivilegedMode := jResp.IntOf('build.environment.privilegedMode');
Credential := jResp.StringOf('build.environment.registryCredential.credential');
CredentialProvider := jResp.StringOf('build.environment.registryCredential.credentialProvider');
EnvironmentType := jResp.StringOf('build.environment.type');
Id := jResp.StringOf('build.id');
Initiator := jResp.StringOf('build.initiator');
GroupName := jResp.StringOf('build.logs.cloudWatchLogs.groupName');
Status := jResp.StringOf('build.logs.cloudWatchLogs.status');
StreamName := jResp.StringOf('build.logs.cloudWatchLogs.streamName');
CloudWatchLogsArn := jResp.StringOf('build.logs.cloudWatchLogsArn');
DeepLink := jResp.StringOf('build.logs.deepLink');
LogsGroupName := jResp.StringOf('build.logs.groupName');
S3DeepLink := jResp.StringOf('build.logs.s3DeepLink');
S3LogsBucketOwnerAccess := jResp.StringOf('build.logs.s3Logs.bucketOwnerAccess');
S3LogsEncryptionDisabled := jResp.IntOf('build.logs.s3Logs.encryptionDisabled');
S3LogsLocation := jResp.StringOf('build.logs.s3Logs.location');
S3LogsStatus := jResp.StringOf('build.logs.s3Logs.status');
S3LogsArn := jResp.StringOf('build.logs.s3LogsArn');
LogsStreamName := jResp.StringOf('build.logs.streamName');
NetworkInterfaceId := jResp.StringOf('build.networkInterface.networkInterfaceId');
SubnetId := jResp.StringOf('build.networkInterface.subnetId');
ProjectName := jResp.StringOf('build.projectName');
QueuedTimeoutInMinutes := jResp.IntOf('build.queuedTimeoutInMinutes');
ResolvedSourceVersion := jResp.StringOf('build.resolvedSourceVersion');
ServiceRole := jResp.StringOf('build.serviceRole');
Resource := jResp.StringOf('build.source.auth.resource');
AuthType := jResp.StringOf('build.source.auth.type');
Buildspec := jResp.StringOf('build.source.buildspec');
Context := jResp.StringOf('build.source.buildStatusConfig.context');
TargetUrl := jResp.StringOf('build.source.buildStatusConfig.targetUrl');
GitCloneDepth := jResp.IntOf('build.source.gitCloneDepth');
FetchSubmodules := jResp.IntOf('build.source.gitSubmodulesConfig.fetchSubmodules');
InsecureSsl := jResp.IntOf('build.source.insecureSsl');
SourceLocation := jResp.StringOf('build.source.location');
ReportBuildStatus := jResp.IntOf('build.source.reportBuildStatus');
SourceIdentifier := jResp.StringOf('build.source.sourceIdentifier');
SourceType := jResp.StringOf('build.source.type');
SourceVersion := jResp.StringOf('build.sourceVersion');
StartTime := jResp.IntOf('build.startTime');
TimeoutInMinutes := jResp.IntOf('build.timeoutInMinutes');
VpcId := jResp.StringOf('build.vpcConfig.vpcId');
i := 0;
count_i := jResp.SizeOfArray('build.cache.modes');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('build.cache.modes[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.environment.environmentVariables');
while i < count_i do
begin
jResp.I := i;
name := jResp.StringOf('build.environment.environmentVariables[i].name');
v_type := jResp.StringOf('build.environment.environmentVariables[i].type');
value := jResp.StringOf('build.environment.environmentVariables[i].value');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.exportedEnvironmentVariables');
while i < count_i do
begin
jResp.I := i;
name := jResp.StringOf('build.exportedEnvironmentVariables[i].name');
value := jResp.StringOf('build.exportedEnvironmentVariables[i].value');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.fileSystemLocations');
while i < count_i do
begin
jResp.I := i;
identifier := jResp.StringOf('build.fileSystemLocations[i].identifier');
location := jResp.StringOf('build.fileSystemLocations[i].location');
mountOptions := jResp.StringOf('build.fileSystemLocations[i].mountOptions');
mountPoint := jResp.StringOf('build.fileSystemLocations[i].mountPoint');
v_type := jResp.StringOf('build.fileSystemLocations[i].type');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.phases');
while i < count_i do
begin
jResp.I := i;
durationInSeconds := jResp.IntOf('build.phases[i].durationInSeconds');
endTime := jResp.IntOf('build.phases[i].endTime');
phaseStatus := jResp.StringOf('build.phases[i].phaseStatus');
phaseType := jResp.StringOf('build.phases[i].phaseType');
startTime := jResp.IntOf('build.phases[i].startTime');
j := 0;
count_j := jResp.SizeOfArray('build.phases[i].contexts');
while j < count_j do
begin
jResp.J := j;
message := jResp.StringOf('build.phases[i].contexts[j].message');
statusCode := jResp.StringOf('build.phases[i].contexts[j].statusCode');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.reportArns');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('build.reportArns[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.secondaryArtifacts');
while i < count_i do
begin
jResp.I := i;
artifactIdentifier := jResp.StringOf('build.secondaryArtifacts[i].artifactIdentifier');
bucketOwnerAccess := jResp.StringOf('build.secondaryArtifacts[i].bucketOwnerAccess');
encryptionDisabled := jResp.IntOf('build.secondaryArtifacts[i].encryptionDisabled');
location := jResp.StringOf('build.secondaryArtifacts[i].location');
md5sum := jResp.StringOf('build.secondaryArtifacts[i].md5sum');
overrideArtifactName := jResp.IntOf('build.secondaryArtifacts[i].overrideArtifactName');
sha256sum := jResp.StringOf('build.secondaryArtifacts[i].sha256sum');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.secondarySources');
while i < count_i do
begin
jResp.I := i;
authResource := jResp.StringOf('build.secondarySources[i].auth.resource');
authType := jResp.StringOf('build.secondarySources[i].auth.type');
buildspec := jResp.StringOf('build.secondarySources[i].buildspec');
buildStatusConfigContext := jResp.StringOf('build.secondarySources[i].buildStatusConfig.context');
buildStatusConfigTargetUrl := jResp.StringOf('build.secondarySources[i].buildStatusConfig.targetUrl');
gitCloneDepth := jResp.IntOf('build.secondarySources[i].gitCloneDepth');
gitSubmodulesConfigFetchSubmodules := jResp.IntOf('build.secondarySources[i].gitSubmodulesConfig.fetchSubmodules');
insecureSsl := jResp.IntOf('build.secondarySources[i].insecureSsl');
location := jResp.StringOf('build.secondarySources[i].location');
reportBuildStatus := jResp.IntOf('build.secondarySources[i].reportBuildStatus');
sourceIdentifier := jResp.StringOf('build.secondarySources[i].sourceIdentifier');
v_type := jResp.StringOf('build.secondarySources[i].type');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.secondarySourceVersions');
while i < count_i do
begin
jResp.I := i;
sourceIdentifier := jResp.StringOf('build.secondarySourceVersions[i].sourceIdentifier');
sourceVersion := jResp.StringOf('build.secondarySourceVersions[i].sourceVersion');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.vpcConfig.securityGroupIds');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('build.vpcConfig.securityGroupIds[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('build.vpcConfig.subnets');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('build.vpcConfig.subnets[i]');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "build": {
// "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"
// }
// }
// }
