BatchGetProjects delphiAx Example
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
arn: WideString;
ArtifactIdentifier: WideString;
BucketOwnerAccess: WideString;
EncryptionDisabled: Integer;
Location: WideString;
Name: WideString;
NamespaceType: WideString;
OverrideArtifactName: Integer;
Packaging: WideString;
Path: WideString;
v_Type: WideString;
BadgeEnabled: Integer;
BadgeRequestUrl: WideString;
BatchReportMode: WideString;
CombineArtifacts: Integer;
MaximumBuildsAllowed: Integer;
ServiceRole: WideString;
TimeoutInMins: Integer;
cacheLocation: WideString;
cacheType: WideString;
concurrentBuildLimit: Integer;
created: Integer;
description: WideString;
encryptionKey: WideString;
Certificate: WideString;
ComputeType: WideString;
Image: WideString;
ImagePullCredentialsType: WideString;
PrivilegedMode: Integer;
Credential: WideString;
CredentialProvider: WideString;
environmentType: WideString;
lastModified: Integer;
GroupName: WideString;
Status: WideString;
StreamName: WideString;
S3LogsBucketOwnerAccess: WideString;
S3LogsEncryptionDisabled: Integer;
S3LogsLocation: WideString;
S3LogsStatus: WideString;
name: WideString;
projectVisibility: WideString;
publicProjectAlias: WideString;
queuedTimeoutInMinutes: Integer;
resourceAccessRole: 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;
timeoutInMinutes: Integer;
VpcId: WideString;
BranchFilter: WideString;
BuildType: WideString;
LastModifiedSecret: Integer;
PayloadUrl: WideString;
Secret: WideString;
v_Url: WideString;
j: Integer;
count_j: Integer;
strVal: WideString;
v_type: WideString;
value: WideString;
identifier: WideString;
location: WideString;
mountOptions: WideString;
mountPoint: WideString;
artifactIdentifier: WideString;
bucketOwnerAccess: WideString;
encryptionDisabled: Integer;
namespaceType: WideString;
overrideArtifactName: Integer;
packaging: WideString;
path: WideString;
authResource: WideString;
authType: WideString;
buildspec: WideString;
buildStatusConfigContext: WideString;
buildStatusConfigTargetUrl: WideString;
gitCloneDepth: Integer;
gitSubmodulesConfigFetchSubmodules: Integer;
insecureSsl: Integer;
reportBuildStatus: Integer;
sourceIdentifier: WideString;
key: WideString;
k: Integer;
count_k: Integer;
excludeMatchedPattern: Integer;
pattern: 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('names[0]','string');
// The JSON request body created by the above code:
// {
// "names": [
// "string"
// ]
// }
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','CodeBuild_20161006.BatchGetProjects');
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
i := 0;
count_i := jResp.SizeOfArray('projects');
while i < count_i do
begin
jResp.I := i;
arn := jResp.StringOf('projects[i].arn');
ArtifactIdentifier := jResp.StringOf('projects[i].artifacts.artifactIdentifier');
BucketOwnerAccess := jResp.StringOf('projects[i].artifacts.bucketOwnerAccess');
EncryptionDisabled := jResp.IntOf('projects[i].artifacts.encryptionDisabled');
Location := jResp.StringOf('projects[i].artifacts.location');
Name := jResp.StringOf('projects[i].artifacts.name');
NamespaceType := jResp.StringOf('projects[i].artifacts.namespaceType');
OverrideArtifactName := jResp.IntOf('projects[i].artifacts.overrideArtifactName');
Packaging := jResp.StringOf('projects[i].artifacts.packaging');
Path := jResp.StringOf('projects[i].artifacts.path');
v_Type := jResp.StringOf('projects[i].artifacts.type');
BadgeEnabled := jResp.IntOf('projects[i].badge.badgeEnabled');
BadgeRequestUrl := jResp.StringOf('projects[i].badge.badgeRequestUrl');
BatchReportMode := jResp.StringOf('projects[i].buildBatchConfig.batchReportMode');
CombineArtifacts := jResp.IntOf('projects[i].buildBatchConfig.combineArtifacts');
MaximumBuildsAllowed := jResp.IntOf('projects[i].buildBatchConfig.restrictions.maximumBuildsAllowed');
ServiceRole := jResp.StringOf('projects[i].buildBatchConfig.serviceRole');
TimeoutInMins := jResp.IntOf('projects[i].buildBatchConfig.timeoutInMins');
cacheLocation := jResp.StringOf('projects[i].cache.location');
cacheType := jResp.StringOf('projects[i].cache.type');
concurrentBuildLimit := jResp.IntOf('projects[i].concurrentBuildLimit');
created := jResp.IntOf('projects[i].created');
description := jResp.StringOf('projects[i].description');
encryptionKey := jResp.StringOf('projects[i].encryptionKey');
Certificate := jResp.StringOf('projects[i].environment.certificate');
ComputeType := jResp.StringOf('projects[i].environment.computeType');
Image := jResp.StringOf('projects[i].environment.image');
ImagePullCredentialsType := jResp.StringOf('projects[i].environment.imagePullCredentialsType');
PrivilegedMode := jResp.IntOf('projects[i].environment.privilegedMode');
Credential := jResp.StringOf('projects[i].environment.registryCredential.credential');
CredentialProvider := jResp.StringOf('projects[i].environment.registryCredential.credentialProvider');
environmentType := jResp.StringOf('projects[i].environment.type');
lastModified := jResp.IntOf('projects[i].lastModified');
GroupName := jResp.StringOf('projects[i].logsConfig.cloudWatchLogs.groupName');
Status := jResp.StringOf('projects[i].logsConfig.cloudWatchLogs.status');
StreamName := jResp.StringOf('projects[i].logsConfig.cloudWatchLogs.streamName');
S3LogsBucketOwnerAccess := jResp.StringOf('projects[i].logsConfig.s3Logs.bucketOwnerAccess');
S3LogsEncryptionDisabled := jResp.IntOf('projects[i].logsConfig.s3Logs.encryptionDisabled');
S3LogsLocation := jResp.StringOf('projects[i].logsConfig.s3Logs.location');
S3LogsStatus := jResp.StringOf('projects[i].logsConfig.s3Logs.status');
name := jResp.StringOf('projects[i].name');
projectVisibility := jResp.StringOf('projects[i].projectVisibility');
publicProjectAlias := jResp.StringOf('projects[i].publicProjectAlias');
queuedTimeoutInMinutes := jResp.IntOf('projects[i].queuedTimeoutInMinutes');
resourceAccessRole := jResp.StringOf('projects[i].resourceAccessRole');
serviceRole := jResp.StringOf('projects[i].serviceRole');
Resource := jResp.StringOf('projects[i].source.auth.resource');
AuthType := jResp.StringOf('projects[i].source.auth.type');
Buildspec := jResp.StringOf('projects[i].source.buildspec');
Context := jResp.StringOf('projects[i].source.buildStatusConfig.context');
TargetUrl := jResp.StringOf('projects[i].source.buildStatusConfig.targetUrl');
GitCloneDepth := jResp.IntOf('projects[i].source.gitCloneDepth');
FetchSubmodules := jResp.IntOf('projects[i].source.gitSubmodulesConfig.fetchSubmodules');
InsecureSsl := jResp.IntOf('projects[i].source.insecureSsl');
sourceLocation := jResp.StringOf('projects[i].source.location');
ReportBuildStatus := jResp.IntOf('projects[i].source.reportBuildStatus');
SourceIdentifier := jResp.StringOf('projects[i].source.sourceIdentifier');
sourceType := jResp.StringOf('projects[i].source.type');
sourceVersion := jResp.StringOf('projects[i].sourceVersion');
timeoutInMinutes := jResp.IntOf('projects[i].timeoutInMinutes');
VpcId := jResp.StringOf('projects[i].vpcConfig.vpcId');
BranchFilter := jResp.StringOf('projects[i].webhook.branchFilter');
BuildType := jResp.StringOf('projects[i].webhook.buildType');
LastModifiedSecret := jResp.IntOf('projects[i].webhook.lastModifiedSecret');
PayloadUrl := jResp.StringOf('projects[i].webhook.payloadUrl');
Secret := jResp.StringOf('projects[i].webhook.secret');
v_Url := jResp.StringOf('projects[i].webhook.url');
j := 0;
count_j := jResp.SizeOfArray('projects[i].buildBatchConfig.restrictions.computeTypesAllowed');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('projects[i].buildBatchConfig.restrictions.computeTypesAllowed[j]');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].cache.modes');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('projects[i].cache.modes[j]');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].environment.environmentVariables');
while j < count_j do
begin
jResp.J := j;
name := jResp.StringOf('projects[i].environment.environmentVariables[j].name');
v_type := jResp.StringOf('projects[i].environment.environmentVariables[j].type');
value := jResp.StringOf('projects[i].environment.environmentVariables[j].value');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].fileSystemLocations');
while j < count_j do
begin
jResp.J := j;
identifier := jResp.StringOf('projects[i].fileSystemLocations[j].identifier');
location := jResp.StringOf('projects[i].fileSystemLocations[j].location');
mountOptions := jResp.StringOf('projects[i].fileSystemLocations[j].mountOptions');
mountPoint := jResp.StringOf('projects[i].fileSystemLocations[j].mountPoint');
v_type := jResp.StringOf('projects[i].fileSystemLocations[j].type');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].secondaryArtifacts');
while j < count_j do
begin
jResp.J := j;
artifactIdentifier := jResp.StringOf('projects[i].secondaryArtifacts[j].artifactIdentifier');
bucketOwnerAccess := jResp.StringOf('projects[i].secondaryArtifacts[j].bucketOwnerAccess');
encryptionDisabled := jResp.IntOf('projects[i].secondaryArtifacts[j].encryptionDisabled');
location := jResp.StringOf('projects[i].secondaryArtifacts[j].location');
name := jResp.StringOf('projects[i].secondaryArtifacts[j].name');
namespaceType := jResp.StringOf('projects[i].secondaryArtifacts[j].namespaceType');
overrideArtifactName := jResp.IntOf('projects[i].secondaryArtifacts[j].overrideArtifactName');
packaging := jResp.StringOf('projects[i].secondaryArtifacts[j].packaging');
path := jResp.StringOf('projects[i].secondaryArtifacts[j].path');
v_type := jResp.StringOf('projects[i].secondaryArtifacts[j].type');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].secondarySources');
while j < count_j do
begin
jResp.J := j;
authResource := jResp.StringOf('projects[i].secondarySources[j].auth.resource');
authType := jResp.StringOf('projects[i].secondarySources[j].auth.type');
buildspec := jResp.StringOf('projects[i].secondarySources[j].buildspec');
buildStatusConfigContext := jResp.StringOf('projects[i].secondarySources[j].buildStatusConfig.context');
buildStatusConfigTargetUrl := jResp.StringOf('projects[i].secondarySources[j].buildStatusConfig.targetUrl');
gitCloneDepth := jResp.IntOf('projects[i].secondarySources[j].gitCloneDepth');
gitSubmodulesConfigFetchSubmodules := jResp.IntOf('projects[i].secondarySources[j].gitSubmodulesConfig.fetchSubmodules');
insecureSsl := jResp.IntOf('projects[i].secondarySources[j].insecureSsl');
location := jResp.StringOf('projects[i].secondarySources[j].location');
reportBuildStatus := jResp.IntOf('projects[i].secondarySources[j].reportBuildStatus');
sourceIdentifier := jResp.StringOf('projects[i].secondarySources[j].sourceIdentifier');
v_type := jResp.StringOf('projects[i].secondarySources[j].type');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].secondarySourceVersions');
while j < count_j do
begin
jResp.J := j;
sourceIdentifier := jResp.StringOf('projects[i].secondarySourceVersions[j].sourceIdentifier');
sourceVersion := jResp.StringOf('projects[i].secondarySourceVersions[j].sourceVersion');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].tags');
while j < count_j do
begin
jResp.J := j;
key := jResp.StringOf('projects[i].tags[j].key');
value := jResp.StringOf('projects[i].tags[j].value');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].vpcConfig.securityGroupIds');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('projects[i].vpcConfig.securityGroupIds[j]');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].vpcConfig.subnets');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('projects[i].vpcConfig.subnets[j]');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('projects[i].webhook.filterGroups');
while j < count_j do
begin
jResp.J := j;
k := 0;
count_k := jResp.SizeOfArray('projects[i].webhook.filterGroups[j]');
while k < count_k do
begin
jResp.K := k;
excludeMatchedPattern := jResp.IntOf('projects[i].webhook.filterGroups[j][k].excludeMatchedPattern');
pattern := jResp.StringOf('projects[i].webhook.filterGroups[j][k].pattern');
v_type := jResp.StringOf('projects[i].webhook.filterGroups[j][k].type');
k := k + 1;
end;
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('projectsNotFound');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('projectsNotFound[i]');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "projects": [
// {
// "arn": "string",
// "artifacts": {
// "artifactIdentifier": "string",
// "bucketOwnerAccess": "string",
// "encryptionDisabled": boolean,
// "location": "string",
// "name": "string",
// "namespaceType": "string",
// "overrideArtifactName": boolean,
// "packaging": "string",
// "path": "string",
// "type": "string"
// },
// "badge": {
// "badgeEnabled": boolean,
// "badgeRequestUrl": "string"
// },
// "buildBatchConfig": {
// "batchReportMode": "string",
// "combineArtifacts": boolean,
// "restrictions": {
// "computeTypesAllowed": [
// "string"
// ],
// "maximumBuildsAllowed": number
// },
// "serviceRole": "string",
// "timeoutInMins": number
// },
// "cache": {
// "location": "string",
// "modes": [
// "string"
// ],
// "type": "string"
// },
// "concurrentBuildLimit": number,
// "created": number,
// "description": "string",
// "encryptionKey": "string",
// "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"
// },
// "fileSystemLocations": [
// {
// "identifier": "string",
// "location": "string",
// "mountOptions": "string",
// "mountPoint": "string",
// "type": "string"
// }
// ],
// "lastModified": number,
// "logsConfig": {
// "cloudWatchLogs": {
// "groupName": "string",
// "status": "string",
// "streamName": "string"
// },
// "s3Logs": {
// "bucketOwnerAccess": "string",
// "encryptionDisabled": boolean,
// "location": "string",
// "status": "string"
// }
// },
// "name": "string",
// "projectVisibility": "string",
// "publicProjectAlias": "string",
// "queuedTimeoutInMinutes": number,
// "resourceAccessRole": "string",
// "secondaryArtifacts": [
// {
// "artifactIdentifier": "string",
// "bucketOwnerAccess": "string",
// "encryptionDisabled": boolean,
// "location": "string",
// "name": "string",
// "namespaceType": "string",
// "overrideArtifactName": boolean,
// "packaging": "string",
// "path": "string",
// "type": "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",
// "tags": [
// {
// "key": "string",
// "value": "string"
// }
// ],
// "timeoutInMinutes": number,
// "vpcConfig": {
// "securityGroupIds": [
// "string"
// ],
// "subnets": [
// "string"
// ],
// "vpcId": "string"
// },
// "webhook": {
// "branchFilter": "string",
// "buildType": "string",
// "filterGroups": [
// [
// {
// "excludeMatchedPattern": boolean,
// "pattern": "string",
// "type": "string"
// }
// ]
// ],
// "lastModifiedSecret": number,
// "payloadUrl": "string",
// "secret": "string",
// "url": "string"
// }
// }
// ],
// "projectsNotFound": [
// "string"
// ]
// }
