Chilkat Tools

RetryBuild Delphi (DLL) Example

AWS CodeBuild

var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
strVal: PWideChar;
name: PWideChar;
v_type: PWideChar;
value: PWideChar;
identifier: PWideChar;
location: PWideChar;
mountOptions: PWideChar;
mountPoint: PWideChar;
durationInSeconds: Integer;
endTime: Integer;
phaseStatus: PWideChar;
phaseType: PWideChar;
startTime: Integer;
j: Integer;
count_j: 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;
sourceVersion: PWideChar;
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;
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,'id','string');
CkJsonObject_UpdateString(json,'idempotencyToken','string');

// The JSON request body created by the above code:

// {
//   "id": "string",
//   "idempotencyToken": "string"
// }

CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','CodeBuild_20161006.RetryBuild');

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

Arn := CkJsonObject__stringOf(jResp,'build.arn');
ArtifactIdentifier := CkJsonObject__stringOf(jResp,'build.artifacts.artifactIdentifier');
BucketOwnerAccess := CkJsonObject__stringOf(jResp,'build.artifacts.bucketOwnerAccess');
EncryptionDisabled := CkJsonObject_IntOf(jResp,'build.artifacts.encryptionDisabled');
Location := CkJsonObject__stringOf(jResp,'build.artifacts.location');
Md5sum := CkJsonObject__stringOf(jResp,'build.artifacts.md5sum');
OverrideArtifactName := CkJsonObject_IntOf(jResp,'build.artifacts.overrideArtifactName');
Sha256sum := CkJsonObject__stringOf(jResp,'build.artifacts.sha256sum');
BuildBatchArn := CkJsonObject__stringOf(jResp,'build.buildBatchArn');
BuildComplete := CkJsonObject_IntOf(jResp,'build.buildComplete');
BuildNumber := CkJsonObject_IntOf(jResp,'build.buildNumber');
BuildStatus := CkJsonObject__stringOf(jResp,'build.buildStatus');
CacheLocation := CkJsonObject__stringOf(jResp,'build.cache.location');
v_Type := CkJsonObject__stringOf(jResp,'build.cache.type');
CurrentPhase := CkJsonObject__stringOf(jResp,'build.currentPhase');
SessionEnabled := CkJsonObject_IntOf(jResp,'build.debugSession.sessionEnabled');
SessionTarget := CkJsonObject__stringOf(jResp,'build.debugSession.sessionTarget');
EncryptionKey := CkJsonObject__stringOf(jResp,'build.encryptionKey');
EndTime := CkJsonObject_IntOf(jResp,'build.endTime');
Certificate := CkJsonObject__stringOf(jResp,'build.environment.certificate');
ComputeType := CkJsonObject__stringOf(jResp,'build.environment.computeType');
Image := CkJsonObject__stringOf(jResp,'build.environment.image');
ImagePullCredentialsType := CkJsonObject__stringOf(jResp,'build.environment.imagePullCredentialsType');
PrivilegedMode := CkJsonObject_IntOf(jResp,'build.environment.privilegedMode');
Credential := CkJsonObject__stringOf(jResp,'build.environment.registryCredential.credential');
CredentialProvider := CkJsonObject__stringOf(jResp,'build.environment.registryCredential.credentialProvider');
EnvironmentType := CkJsonObject__stringOf(jResp,'build.environment.type');
Id := CkJsonObject__stringOf(jResp,'build.id');
Initiator := CkJsonObject__stringOf(jResp,'build.initiator');
GroupName := CkJsonObject__stringOf(jResp,'build.logs.cloudWatchLogs.groupName');
Status := CkJsonObject__stringOf(jResp,'build.logs.cloudWatchLogs.status');
StreamName := CkJsonObject__stringOf(jResp,'build.logs.cloudWatchLogs.streamName');
CloudWatchLogsArn := CkJsonObject__stringOf(jResp,'build.logs.cloudWatchLogsArn');
DeepLink := CkJsonObject__stringOf(jResp,'build.logs.deepLink');
LogsGroupName := CkJsonObject__stringOf(jResp,'build.logs.groupName');
S3DeepLink := CkJsonObject__stringOf(jResp,'build.logs.s3DeepLink');
S3LogsBucketOwnerAccess := CkJsonObject__stringOf(jResp,'build.logs.s3Logs.bucketOwnerAccess');
S3LogsEncryptionDisabled := CkJsonObject_IntOf(jResp,'build.logs.s3Logs.encryptionDisabled');
S3LogsLocation := CkJsonObject__stringOf(jResp,'build.logs.s3Logs.location');
S3LogsStatus := CkJsonObject__stringOf(jResp,'build.logs.s3Logs.status');
S3LogsArn := CkJsonObject__stringOf(jResp,'build.logs.s3LogsArn');
LogsStreamName := CkJsonObject__stringOf(jResp,'build.logs.streamName');
NetworkInterfaceId := CkJsonObject__stringOf(jResp,'build.networkInterface.networkInterfaceId');
SubnetId := CkJsonObject__stringOf(jResp,'build.networkInterface.subnetId');
ProjectName := CkJsonObject__stringOf(jResp,'build.projectName');
QueuedTimeoutInMinutes := CkJsonObject_IntOf(jResp,'build.queuedTimeoutInMinutes');
ResolvedSourceVersion := CkJsonObject__stringOf(jResp,'build.resolvedSourceVersion');
ServiceRole := CkJsonObject__stringOf(jResp,'build.serviceRole');
Resource := CkJsonObject__stringOf(jResp,'build.source.auth.resource');
AuthType := CkJsonObject__stringOf(jResp,'build.source.auth.type');
Buildspec := CkJsonObject__stringOf(jResp,'build.source.buildspec');
Context := CkJsonObject__stringOf(jResp,'build.source.buildStatusConfig.context');
TargetUrl := CkJsonObject__stringOf(jResp,'build.source.buildStatusConfig.targetUrl');
GitCloneDepth := CkJsonObject_IntOf(jResp,'build.source.gitCloneDepth');
FetchSubmodules := CkJsonObject_IntOf(jResp,'build.source.gitSubmodulesConfig.fetchSubmodules');
InsecureSsl := CkJsonObject_IntOf(jResp,'build.source.insecureSsl');
SourceLocation := CkJsonObject__stringOf(jResp,'build.source.location');
ReportBuildStatus := CkJsonObject_IntOf(jResp,'build.source.reportBuildStatus');
SourceIdentifier := CkJsonObject__stringOf(jResp,'build.source.sourceIdentifier');
SourceType := CkJsonObject__stringOf(jResp,'build.source.type');
SourceVersion := CkJsonObject__stringOf(jResp,'build.sourceVersion');
StartTime := CkJsonObject_IntOf(jResp,'build.startTime');
TimeoutInMinutes := CkJsonObject_IntOf(jResp,'build.timeoutInMinutes');
VpcId := CkJsonObject__stringOf(jResp,'build.vpcConfig.vpcId');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.cache.modes');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    strVal := CkJsonObject__stringOf(jResp,'build.cache.modes[i]');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.environment.environmentVariables');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    name := CkJsonObject__stringOf(jResp,'build.environment.environmentVariables[i].name');
    v_type := CkJsonObject__stringOf(jResp,'build.environment.environmentVariables[i].type');
    value := CkJsonObject__stringOf(jResp,'build.environment.environmentVariables[i].value');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.exportedEnvironmentVariables');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    name := CkJsonObject__stringOf(jResp,'build.exportedEnvironmentVariables[i].name');
    value := CkJsonObject__stringOf(jResp,'build.exportedEnvironmentVariables[i].value');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.fileSystemLocations');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    identifier := CkJsonObject__stringOf(jResp,'build.fileSystemLocations[i].identifier');
    location := CkJsonObject__stringOf(jResp,'build.fileSystemLocations[i].location');
    mountOptions := CkJsonObject__stringOf(jResp,'build.fileSystemLocations[i].mountOptions');
    mountPoint := CkJsonObject__stringOf(jResp,'build.fileSystemLocations[i].mountPoint');
    v_type := CkJsonObject__stringOf(jResp,'build.fileSystemLocations[i].type');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.phases');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    durationInSeconds := CkJsonObject_IntOf(jResp,'build.phases[i].durationInSeconds');
    endTime := CkJsonObject_IntOf(jResp,'build.phases[i].endTime');
    phaseStatus := CkJsonObject__stringOf(jResp,'build.phases[i].phaseStatus');
    phaseType := CkJsonObject__stringOf(jResp,'build.phases[i].phaseType');
    startTime := CkJsonObject_IntOf(jResp,'build.phases[i].startTime');
    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'build.phases[i].contexts');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        message := CkJsonObject__stringOf(jResp,'build.phases[i].contexts[j].message');
        statusCode := CkJsonObject__stringOf(jResp,'build.phases[i].contexts[j].statusCode');
        j := j + 1;
      end;

    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.reportArns');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    strVal := CkJsonObject__stringOf(jResp,'build.reportArns[i]');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.secondaryArtifacts');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    artifactIdentifier := CkJsonObject__stringOf(jResp,'build.secondaryArtifacts[i].artifactIdentifier');
    bucketOwnerAccess := CkJsonObject__stringOf(jResp,'build.secondaryArtifacts[i].bucketOwnerAccess');
    encryptionDisabled := CkJsonObject_IntOf(jResp,'build.secondaryArtifacts[i].encryptionDisabled');
    location := CkJsonObject__stringOf(jResp,'build.secondaryArtifacts[i].location');
    md5sum := CkJsonObject__stringOf(jResp,'build.secondaryArtifacts[i].md5sum');
    overrideArtifactName := CkJsonObject_IntOf(jResp,'build.secondaryArtifacts[i].overrideArtifactName');
    sha256sum := CkJsonObject__stringOf(jResp,'build.secondaryArtifacts[i].sha256sum');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.secondarySources');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    authResource := CkJsonObject__stringOf(jResp,'build.secondarySources[i].auth.resource');
    authType := CkJsonObject__stringOf(jResp,'build.secondarySources[i].auth.type');
    buildspec := CkJsonObject__stringOf(jResp,'build.secondarySources[i].buildspec');
    buildStatusConfigContext := CkJsonObject__stringOf(jResp,'build.secondarySources[i].buildStatusConfig.context');
    buildStatusConfigTargetUrl := CkJsonObject__stringOf(jResp,'build.secondarySources[i].buildStatusConfig.targetUrl');
    gitCloneDepth := CkJsonObject_IntOf(jResp,'build.secondarySources[i].gitCloneDepth');
    gitSubmodulesConfigFetchSubmodules := CkJsonObject_IntOf(jResp,'build.secondarySources[i].gitSubmodulesConfig.fetchSubmodules');
    insecureSsl := CkJsonObject_IntOf(jResp,'build.secondarySources[i].insecureSsl');
    location := CkJsonObject__stringOf(jResp,'build.secondarySources[i].location');
    reportBuildStatus := CkJsonObject_IntOf(jResp,'build.secondarySources[i].reportBuildStatus');
    sourceIdentifier := CkJsonObject__stringOf(jResp,'build.secondarySources[i].sourceIdentifier');
    v_type := CkJsonObject__stringOf(jResp,'build.secondarySources[i].type');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.secondarySourceVersions');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    sourceIdentifier := CkJsonObject__stringOf(jResp,'build.secondarySourceVersions[i].sourceIdentifier');
    sourceVersion := CkJsonObject__stringOf(jResp,'build.secondarySourceVersions[i].sourceVersion');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.vpcConfig.securityGroupIds');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    strVal := CkJsonObject__stringOf(jResp,'build.vpcConfig.securityGroupIds[i]');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'build.vpcConfig.subnets');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    strVal := CkJsonObject__stringOf(jResp,'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"
//     }
//   }
// }

CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
Chilkat Online Tools

RetryBuild Delphi (DLL) Example

AWS CodeBuild
