Chilkat Online Tools

CreateCustomActionType delphiAx Example

AWS CodePipeline

var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
description: WideString;
key: Integer;
name: WideString;
queryable: Integer;
required: Integer;
secret: Integer;
v_type: WideString;
key_str: WideString;
value: WideString;
Category: WideString;
Owner: WideString;
Provider: WideString;
Version: WideString;
MaximumCount: Integer;
MinimumCount: Integer;
OutputArtifactDetailsMaximumCount: Integer;
OutputArtifactDetailsMinimumCount: Integer;
EntityUrlTemplate: WideString;
ExecutionUrlTemplate: WideString;
RevisionUrlTemplate: WideString;
ThirdPartyConfigurationUrl: 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 := 'codepipeline';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);

// URL: https://codepipeline.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('codepipeline.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('category','string');
json.UpdateString('configurationProperties[0].description','string');
json.UpdateInt('configurationProperties[0].key',123);
json.UpdateString('configurationProperties[0].name','string');
json.UpdateInt('configurationProperties[0].queryable',123);
json.UpdateInt('configurationProperties[0].required',123);
json.UpdateInt('configurationProperties[0].secret',123);
json.UpdateString('configurationProperties[0].type','string');
json.UpdateInt('inputArtifactDetails.maximumCount',123);
json.UpdateInt('inputArtifactDetails.minimumCount',123);
json.UpdateInt('outputArtifactDetails.maximumCount',123);
json.UpdateInt('outputArtifactDetails.minimumCount',123);
json.UpdateString('provider','string');
json.UpdateString('settings.entityUrlTemplate','string');
json.UpdateString('settings.executionUrlTemplate','string');
json.UpdateString('settings.revisionUrlTemplate','string');
json.UpdateString('settings.thirdPartyConfigurationUrl','string');
json.UpdateString('tags[0].key','string');
json.UpdateString('tags[0].value','string');
json.UpdateString('version','string');

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

// {
//   "category": "string",
//   "configurationProperties": [
//     {
//       "description": "string",
//       "key": boolean,
//       "name": "string",
//       "queryable": boolean,
//       "required": boolean,
//       "secret": boolean,
//       "type": "string"
//     }
//   ],
//   "inputArtifactDetails": {
//     "maximumCount": number,
//     "minimumCount": number
//   },
//   "outputArtifactDetails": {
//     "maximumCount": number,
//     "minimumCount": number
//   },
//   "provider": "string",
//   "settings": {
//     "entityUrlTemplate": "string",
//     "executionUrlTemplate": "string",
//     "revisionUrlTemplate": "string",
//     "thirdPartyConfigurationUrl": "string"
//   },
//   "tags": [
//     {
//       "key": "string",
//       "value": "string"
//     }
//   ],
//   "version": "string"
// }

rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','CodePipeline_20150709.CreateCustomActionType');

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

Category := jResp.StringOf('actionType.id.category');
Owner := jResp.StringOf('actionType.id.owner');
Provider := jResp.StringOf('actionType.id.provider');
Version := jResp.StringOf('actionType.id.version');
MaximumCount := jResp.IntOf('actionType.inputArtifactDetails.maximumCount');
MinimumCount := jResp.IntOf('actionType.inputArtifactDetails.minimumCount');
OutputArtifactDetailsMaximumCount := jResp.IntOf('actionType.outputArtifactDetails.maximumCount');
OutputArtifactDetailsMinimumCount := jResp.IntOf('actionType.outputArtifactDetails.minimumCount');
EntityUrlTemplate := jResp.StringOf('actionType.settings.entityUrlTemplate');
ExecutionUrlTemplate := jResp.StringOf('actionType.settings.executionUrlTemplate');
RevisionUrlTemplate := jResp.StringOf('actionType.settings.revisionUrlTemplate');
ThirdPartyConfigurationUrl := jResp.StringOf('actionType.settings.thirdPartyConfigurationUrl');
i := 0;
count_i := jResp.SizeOfArray('actionType.actionConfigurationProperties');
while i < count_i do
  begin
    jResp.I := i;
    description := jResp.StringOf('actionType.actionConfigurationProperties[i].description');
    key := jResp.IntOf('actionType.actionConfigurationProperties[i].key');
    name := jResp.StringOf('actionType.actionConfigurationProperties[i].name');
    queryable := jResp.IntOf('actionType.actionConfigurationProperties[i].queryable');
    required := jResp.IntOf('actionType.actionConfigurationProperties[i].required');
    secret := jResp.IntOf('actionType.actionConfigurationProperties[i].secret');
    v_type := jResp.StringOf('actionType.actionConfigurationProperties[i].type');
    i := i + 1;
  end;

i := 0;
count_i := jResp.SizeOfArray('tags');
while i < count_i do
  begin
    jResp.I := i;
    key_str := jResp.StringOf('tags[i].key');
    value := jResp.StringOf('tags[i].value');
    i := i + 1;
  end;

// A sample JSON response body parsed by the above code:

// {
//   "actionType": {
//     "actionConfigurationProperties": [
//       {
//         "description": "string",
//         "key": boolean,
//         "name": "string",
//         "queryable": boolean,
//         "required": boolean,
//         "secret": boolean,
//         "type": "string"
//       }
//     ],
//     "id": {
//       "category": "string",
//       "owner": "string",
//       "provider": "string",
//       "version": "string"
//     },
//     "inputArtifactDetails": {
//       "maximumCount": number,
//       "minimumCount": number
//     },
//     "outputArtifactDetails": {
//       "maximumCount": number,
//       "minimumCount": number
//     },
//     "settings": {
//       "entityUrlTemplate": "string",
//       "executionUrlTemplate": "string",
//       "revisionUrlTemplate": "string",
//       "thirdPartyConfigurationUrl": "string"
//     }
//   },
//   "tags": [
//     {
//       "key": "string",
//       "value": "string"
//     }
//   ]
// }