RetryBuild Xojo Example
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim rest As New Chilkat.Rest
Dim success As Boolean
Dim authAws As New Chilkat.AuthAws
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
success = rest.SetAuthAws(authAws)
// 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,True,True)
If (success <> True) Then
System.DebugLog("ConnectFailReason: " + Str(rest.ConnectFailReason))
System.DebugLog(rest.LastErrorText)
Return
End If
// 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
Dim json As New Chilkat.JsonObject
success = json.UpdateString("id","string")
success = json.UpdateString("idempotencyToken","string")
// The JSON request body created by the above code:
// {
// "id": "string",
// "idempotencyToken": "string"
// }
success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","CodeBuild_20161006.RetryBuild")
Dim sbRequestBody As New Chilkat.StringBuilder
success = json.EmitSb(sbRequestBody)
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/",sbRequestBody,sbResponseBody)
If (success <> True) Then
System.DebugLog(rest.LastErrorText)
Return
End If
Dim respStatusCode As Int32
respStatusCode = rest.ResponseStatusCode
System.DebugLog("response status code = " + Str(respStatusCode))
If (respStatusCode <> 200) Then
System.DebugLog("Response Header:")
System.DebugLog(rest.ResponseHeader)
System.DebugLog("Response Body:")
System.DebugLog(sbResponseBody.GetAsString())
Return
End If
Dim jResp As New Chilkat.JsonObject
success = jResp.LoadSb(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
Dim strVal As String
Dim name As String
Dim v_type As String
Dim value As String
Dim identifier As String
Dim location As String
Dim mountOptions As String
Dim mountPoint As String
Dim durationInSeconds As Int32
Dim endTime As Int32
Dim phaseStatus As String
Dim phaseType As String
Dim startTime As Int32
Dim j As Int32
Dim count_j As Int32
Dim message As String
Dim statusCode As String
Dim artifactIdentifier As String
Dim bucketOwnerAccess As String
Dim encryptionDisabled As Int32
Dim md5sum As String
Dim overrideArtifactName As Int32
Dim sha256sum As String
Dim authResource As String
Dim authType As String
Dim buildspec As String
Dim buildStatusConfigContext As String
Dim buildStatusConfigTargetUrl As String
Dim gitCloneDepth As Int32
Dim gitSubmodulesConfigFetchSubmodules As Int32
Dim insecureSsl As Int32
Dim reportBuildStatus As Int32
Dim sourceIdentifier As String
Dim sourceVersion As String
Dim Arn As String
Arn = jResp.StringOf("build.arn")
Dim ArtifactIdentifier As String
ArtifactIdentifier = jResp.StringOf("build.artifacts.artifactIdentifier")
Dim BucketOwnerAccess As String
BucketOwnerAccess = jResp.StringOf("build.artifacts.bucketOwnerAccess")
Dim EncryptionDisabled As Int32
EncryptionDisabled = jResp.IntOf("build.artifacts.encryptionDisabled")
Dim Location As String
Location = jResp.StringOf("build.artifacts.location")
Dim Md5sum As String
Md5sum = jResp.StringOf("build.artifacts.md5sum")
Dim OverrideArtifactName As Int32
OverrideArtifactName = jResp.IntOf("build.artifacts.overrideArtifactName")
Dim Sha256sum As String
Sha256sum = jResp.StringOf("build.artifacts.sha256sum")
Dim BuildBatchArn As String
BuildBatchArn = jResp.StringOf("build.buildBatchArn")
Dim BuildComplete As Int32
BuildComplete = jResp.IntOf("build.buildComplete")
Dim BuildNumber As Int32
BuildNumber = jResp.IntOf("build.buildNumber")
Dim BuildStatus As String
BuildStatus = jResp.StringOf("build.buildStatus")
Dim CacheLocation As String
CacheLocation = jResp.StringOf("build.cache.location")
Dim v_Type As String
v_Type = jResp.StringOf("build.cache.type")
Dim CurrentPhase As String
CurrentPhase = jResp.StringOf("build.currentPhase")
Dim SessionEnabled As Int32
SessionEnabled = jResp.IntOf("build.debugSession.sessionEnabled")
Dim SessionTarget As String
SessionTarget = jResp.StringOf("build.debugSession.sessionTarget")
Dim EncryptionKey As String
EncryptionKey = jResp.StringOf("build.encryptionKey")
Dim EndTime As Int32
EndTime = jResp.IntOf("build.endTime")
Dim Certificate As String
Certificate = jResp.StringOf("build.environment.certificate")
Dim ComputeType As String
ComputeType = jResp.StringOf("build.environment.computeType")
Dim Image As String
Image = jResp.StringOf("build.environment.image")
Dim ImagePullCredentialsType As String
ImagePullCredentialsType = jResp.StringOf("build.environment.imagePullCredentialsType")
Dim PrivilegedMode As Int32
PrivilegedMode = jResp.IntOf("build.environment.privilegedMode")
Dim Credential As String
Credential = jResp.StringOf("build.environment.registryCredential.credential")
Dim CredentialProvider As String
CredentialProvider = jResp.StringOf("build.environment.registryCredential.credentialProvider")
Dim EnvironmentType As String
EnvironmentType = jResp.StringOf("build.environment.type")
Dim Id As String
Id = jResp.StringOf("build.id")
Dim Initiator As String
Initiator = jResp.StringOf("build.initiator")
Dim GroupName As String
GroupName = jResp.StringOf("build.logs.cloudWatchLogs.groupName")
Dim Status As String
Status = jResp.StringOf("build.logs.cloudWatchLogs.status")
Dim StreamName As String
StreamName = jResp.StringOf("build.logs.cloudWatchLogs.streamName")
Dim CloudWatchLogsArn As String
CloudWatchLogsArn = jResp.StringOf("build.logs.cloudWatchLogsArn")
Dim DeepLink As String
DeepLink = jResp.StringOf("build.logs.deepLink")
Dim LogsGroupName As String
LogsGroupName = jResp.StringOf("build.logs.groupName")
Dim S3DeepLink As String
S3DeepLink = jResp.StringOf("build.logs.s3DeepLink")
Dim S3LogsBucketOwnerAccess As String
S3LogsBucketOwnerAccess = jResp.StringOf("build.logs.s3Logs.bucketOwnerAccess")
Dim S3LogsEncryptionDisabled As Int32
S3LogsEncryptionDisabled = jResp.IntOf("build.logs.s3Logs.encryptionDisabled")
Dim S3LogsLocation As String
S3LogsLocation = jResp.StringOf("build.logs.s3Logs.location")
Dim S3LogsStatus As String
S3LogsStatus = jResp.StringOf("build.logs.s3Logs.status")
Dim S3LogsArn As String
S3LogsArn = jResp.StringOf("build.logs.s3LogsArn")
Dim LogsStreamName As String
LogsStreamName = jResp.StringOf("build.logs.streamName")
Dim NetworkInterfaceId As String
NetworkInterfaceId = jResp.StringOf("build.networkInterface.networkInterfaceId")
Dim SubnetId As String
SubnetId = jResp.StringOf("build.networkInterface.subnetId")
Dim ProjectName As String
ProjectName = jResp.StringOf("build.projectName")
Dim QueuedTimeoutInMinutes As Int32
QueuedTimeoutInMinutes = jResp.IntOf("build.queuedTimeoutInMinutes")
Dim ResolvedSourceVersion As String
ResolvedSourceVersion = jResp.StringOf("build.resolvedSourceVersion")
Dim ServiceRole As String
ServiceRole = jResp.StringOf("build.serviceRole")
Dim Resource As String
Resource = jResp.StringOf("build.source.auth.resource")
Dim AuthType As String
AuthType = jResp.StringOf("build.source.auth.type")
Dim Buildspec As String
Buildspec = jResp.StringOf("build.source.buildspec")
Dim Context As String
Context = jResp.StringOf("build.source.buildStatusConfig.context")
Dim TargetUrl As String
TargetUrl = jResp.StringOf("build.source.buildStatusConfig.targetUrl")
Dim GitCloneDepth As Int32
GitCloneDepth = jResp.IntOf("build.source.gitCloneDepth")
Dim FetchSubmodules As Int32
FetchSubmodules = jResp.IntOf("build.source.gitSubmodulesConfig.fetchSubmodules")
Dim InsecureSsl As Int32
InsecureSsl = jResp.IntOf("build.source.insecureSsl")
Dim SourceLocation As String
SourceLocation = jResp.StringOf("build.source.location")
Dim ReportBuildStatus As Int32
ReportBuildStatus = jResp.IntOf("build.source.reportBuildStatus")
Dim SourceIdentifier As String
SourceIdentifier = jResp.StringOf("build.source.sourceIdentifier")
Dim SourceType As String
SourceType = jResp.StringOf("build.source.type")
Dim SourceVersion As String
SourceVersion = jResp.StringOf("build.sourceVersion")
Dim StartTime As Int32
StartTime = jResp.IntOf("build.startTime")
Dim TimeoutInMinutes As Int32
TimeoutInMinutes = jResp.IntOf("build.timeoutInMinutes")
Dim VpcId As String
VpcId = jResp.StringOf("build.vpcConfig.vpcId")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = jResp.SizeOfArray("build.cache.modes")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("build.cache.modes[i]")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("build.environment.environmentVariables")
While i < count_i
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
Wend
i = 0
count_i = jResp.SizeOfArray("build.exportedEnvironmentVariables")
While i < count_i
jResp.I = i
name = jResp.StringOf("build.exportedEnvironmentVariables[i].name")
value = jResp.StringOf("build.exportedEnvironmentVariables[i].value")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("build.fileSystemLocations")
While i < count_i
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
Wend
i = 0
count_i = jResp.SizeOfArray("build.phases")
While i < count_i
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
jResp.J = j
message = jResp.StringOf("build.phases[i].contexts[j].message")
statusCode = jResp.StringOf("build.phases[i].contexts[j].statusCode")
j = j + 1
Wend
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("build.reportArns")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("build.reportArns[i]")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("build.secondaryArtifacts")
While i < count_i
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
Wend
i = 0
count_i = jResp.SizeOfArray("build.secondarySources")
While i < count_i
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
Wend
i = 0
count_i = jResp.SizeOfArray("build.secondarySourceVersions")
While i < count_i
jResp.I = i
sourceIdentifier = jResp.StringOf("build.secondarySourceVersions[i].sourceIdentifier")
sourceVersion = jResp.StringOf("build.secondarySourceVersions[i].sourceVersion")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("build.vpcConfig.securityGroupIds")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("build.vpcConfig.securityGroupIds[i]")
i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("build.vpcConfig.subnets")
While i < count_i
jResp.I = i
strVal = jResp.StringOf("build.vpcConfig.subnets[i]")
i = i + 1
Wend
// 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"
// }
// }
// }
