DescribeCluster delphiAx Example
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
KeyArn: WideString;
j: Integer;
count_j: Integer;
strVal: WideString;
enabled: Integer;
Arn: WideString;
Data: WideString;
ClientRequestToken: WideString;
ActivationCode: WideString;
ActivationExpiry: Integer;
ActivationId: WideString;
Provider: WideString;
RoleArn: WideString;
CreatedAt: Integer;
Endpoint: WideString;
Issuer: WideString;
IpFamily: WideString;
ServiceIpv4Cidr: WideString;
ServiceIpv6Cidr: WideString;
Name: WideString;
PlatformVersion: WideString;
ClusterSecurityGroupId: WideString;
EndpointPrivateAccess: Integer;
EndpointPublicAccess: Integer;
VpcId: WideString;
clusterRoleArn: WideString;
Status: WideString;
v_String: WideString;
Version: 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 := 'eks';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);
// URL: https://eks.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('eks.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;
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','DescribeCluster');
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestNoBodySb('GET','/clusters/{name}',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('cluster.arn');
Data := jResp.StringOf('cluster.certificateAuthority.data');
ClientRequestToken := jResp.StringOf('cluster.clientRequestToken');
ActivationCode := jResp.StringOf('cluster.connectorConfig.activationCode');
ActivationExpiry := jResp.IntOf('cluster.connectorConfig.activationExpiry');
ActivationId := jResp.StringOf('cluster.connectorConfig.activationId');
Provider := jResp.StringOf('cluster.connectorConfig.provider');
RoleArn := jResp.StringOf('cluster.connectorConfig.roleArn');
CreatedAt := jResp.IntOf('cluster.createdAt');
Endpoint := jResp.StringOf('cluster.endpoint');
Issuer := jResp.StringOf('cluster.identity.oidc.issuer');
IpFamily := jResp.StringOf('cluster.kubernetesNetworkConfig.ipFamily');
ServiceIpv4Cidr := jResp.StringOf('cluster.kubernetesNetworkConfig.serviceIpv4Cidr');
ServiceIpv6Cidr := jResp.StringOf('cluster.kubernetesNetworkConfig.serviceIpv6Cidr');
Name := jResp.StringOf('cluster.name');
PlatformVersion := jResp.StringOf('cluster.platformVersion');
ClusterSecurityGroupId := jResp.StringOf('cluster.resourcesVpcConfig.clusterSecurityGroupId');
EndpointPrivateAccess := jResp.IntOf('cluster.resourcesVpcConfig.endpointPrivateAccess');
EndpointPublicAccess := jResp.IntOf('cluster.resourcesVpcConfig.endpointPublicAccess');
VpcId := jResp.StringOf('cluster.resourcesVpcConfig.vpcId');
clusterRoleArn := jResp.StringOf('cluster.roleArn');
Status := jResp.StringOf('cluster.status');
v_String := jResp.StringOf('cluster.tags.string');
Version := jResp.StringOf('cluster.version');
i := 0;
count_i := jResp.SizeOfArray('cluster.encryptionConfig');
while i < count_i do
begin
jResp.I := i;
KeyArn := jResp.StringOf('cluster.encryptionConfig[i].provider.keyArn');
j := 0;
count_j := jResp.SizeOfArray('cluster.encryptionConfig[i].resources');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('cluster.encryptionConfig[i].resources[j]');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('cluster.logging.clusterLogging');
while i < count_i do
begin
jResp.I := i;
enabled := jResp.IntOf('cluster.logging.clusterLogging[i].enabled');
j := 0;
count_j := jResp.SizeOfArray('cluster.logging.clusterLogging[i].types');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('cluster.logging.clusterLogging[i].types[j]');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('cluster.resourcesVpcConfig.publicAccessCidrs');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('cluster.resourcesVpcConfig.publicAccessCidrs[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('cluster.resourcesVpcConfig.securityGroupIds');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('cluster.resourcesVpcConfig.securityGroupIds[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('cluster.resourcesVpcConfig.subnetIds');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('cluster.resourcesVpcConfig.subnetIds[i]');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "cluster": {
// "arn": "string",
// "certificateAuthority": {
// "data": "string"
// },
// "clientRequestToken": "string",
// "connectorConfig": {
// "activationCode": "string",
// "activationExpiry": number,
// "activationId": "string",
// "provider": "string",
// "roleArn": "string"
// },
// "createdAt": number,
// "encryptionConfig": [
// {
// "provider": {
// "keyArn": "string"
// },
// "resources": [
// "string"
// ]
// }
// ],
// "endpoint": "string",
// "identity": {
// "oidc": {
// "issuer": "string"
// }
// },
// "kubernetesNetworkConfig": {
// "ipFamily": "string",
// "serviceIpv4Cidr": "string",
// "serviceIpv6Cidr": "string"
// },
// "logging": {
// "clusterLogging": [
// {
// "enabled": boolean,
// "types": [
// "string"
// ]
// }
// ]
// },
// "name": "string",
// "platformVersion": "string",
// "resourcesVpcConfig": {
// "clusterSecurityGroupId": "string",
// "endpointPrivateAccess": boolean,
// "endpointPublicAccess": boolean,
// "publicAccessCidrs": [
// "string"
// ],
// "securityGroupIds": [
// "string"
// ],
// "subnetIds": [
// "string"
// ],
// "vpcId": "string"
// },
// "roleArn": "string",
// "status": "string",
// "tags": {
// "string": "string"
// },
// "version": "string"
// }
// }