BatchGetQueryExecution delphiAx Example
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
EffectiveEngineVersion: WideString;
SelectedEngineVersion: WideString;
Query: WideString;
Catalog: WideString;
Database: WideString;
QueryExecutionId: WideString;
S3AclOption: WideString;
EncryptionOption: WideString;
KmsKey: WideString;
ExpectedBucketOwner: WideString;
OutputLocation: WideString;
StatementType: WideString;
DataManifestLocation: WideString;
DataScannedInBytes: Integer;
EngineExecutionTimeInMillis: Integer;
QueryPlanningTimeInMillis: Integer;
QueryQueueTimeInMillis: Integer;
ServiceProcessingTimeInMillis: Integer;
TotalExecutionTimeInMillis: Integer;
ErrorCategory: Integer;
ErrorMessage: WideString;
ErrorType: Integer;
Retryable: Integer;
CompletionDateTime: Integer;
State: WideString;
StateChangeReason: WideString;
SubmissionDateTime: Integer;
WorkGroup: WideString;
ErrorCode: 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 := 'athena';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);
// URL: https://athena.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('athena.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('QueryExecutionIds[0]','string');
// The JSON request body created by the above code:
// {
// "QueryExecutionIds": [
// "string"
// ]
// }
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','AmazonAthena.BatchGetQueryExecution');
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('QueryExecutions');
while i < count_i do
begin
jResp.I := i;
EffectiveEngineVersion := jResp.StringOf('QueryExecutions[i].EngineVersion.EffectiveEngineVersion');
SelectedEngineVersion := jResp.StringOf('QueryExecutions[i].EngineVersion.SelectedEngineVersion');
Query := jResp.StringOf('QueryExecutions[i].Query');
Catalog := jResp.StringOf('QueryExecutions[i].QueryExecutionContext.Catalog');
Database := jResp.StringOf('QueryExecutions[i].QueryExecutionContext.Database');
QueryExecutionId := jResp.StringOf('QueryExecutions[i].QueryExecutionId');
S3AclOption := jResp.StringOf('QueryExecutions[i].ResultConfiguration.AclConfiguration.S3AclOption');
EncryptionOption := jResp.StringOf('QueryExecutions[i].ResultConfiguration.EncryptionConfiguration.EncryptionOption');
KmsKey := jResp.StringOf('QueryExecutions[i].ResultConfiguration.EncryptionConfiguration.KmsKey');
ExpectedBucketOwner := jResp.StringOf('QueryExecutions[i].ResultConfiguration.ExpectedBucketOwner');
OutputLocation := jResp.StringOf('QueryExecutions[i].ResultConfiguration.OutputLocation');
StatementType := jResp.StringOf('QueryExecutions[i].StatementType');
DataManifestLocation := jResp.StringOf('QueryExecutions[i].Statistics.DataManifestLocation');
DataScannedInBytes := jResp.IntOf('QueryExecutions[i].Statistics.DataScannedInBytes');
EngineExecutionTimeInMillis := jResp.IntOf('QueryExecutions[i].Statistics.EngineExecutionTimeInMillis');
QueryPlanningTimeInMillis := jResp.IntOf('QueryExecutions[i].Statistics.QueryPlanningTimeInMillis');
QueryQueueTimeInMillis := jResp.IntOf('QueryExecutions[i].Statistics.QueryQueueTimeInMillis');
ServiceProcessingTimeInMillis := jResp.IntOf('QueryExecutions[i].Statistics.ServiceProcessingTimeInMillis');
TotalExecutionTimeInMillis := jResp.IntOf('QueryExecutions[i].Statistics.TotalExecutionTimeInMillis');
ErrorCategory := jResp.IntOf('QueryExecutions[i].Status.AthenaError.ErrorCategory');
ErrorMessage := jResp.StringOf('QueryExecutions[i].Status.AthenaError.ErrorMessage');
ErrorType := jResp.IntOf('QueryExecutions[i].Status.AthenaError.ErrorType');
Retryable := jResp.IntOf('QueryExecutions[i].Status.AthenaError.Retryable');
CompletionDateTime := jResp.IntOf('QueryExecutions[i].Status.CompletionDateTime');
State := jResp.StringOf('QueryExecutions[i].Status.State');
StateChangeReason := jResp.StringOf('QueryExecutions[i].Status.StateChangeReason');
SubmissionDateTime := jResp.IntOf('QueryExecutions[i].Status.SubmissionDateTime');
WorkGroup := jResp.StringOf('QueryExecutions[i].WorkGroup');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('UnprocessedQueryExecutionIds');
while i < count_i do
begin
jResp.I := i;
ErrorCode := jResp.StringOf('UnprocessedQueryExecutionIds[i].ErrorCode');
ErrorMessage := jResp.StringOf('UnprocessedQueryExecutionIds[i].ErrorMessage');
QueryExecutionId := jResp.StringOf('UnprocessedQueryExecutionIds[i].QueryExecutionId');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "QueryExecutions": [
// {
// "EngineVersion": {
// "EffectiveEngineVersion": "string",
// "SelectedEngineVersion": "string"
// },
// "Query": "string",
// "QueryExecutionContext": {
// "Catalog": "string",
// "Database": "string"
// },
// "QueryExecutionId": "string",
// "ResultConfiguration": {
// "AclConfiguration": {
// "S3AclOption": "string"
// },
// "EncryptionConfiguration": {
// "EncryptionOption": "string",
// "KmsKey": "string"
// },
// "ExpectedBucketOwner": "string",
// "OutputLocation": "string"
// },
// "StatementType": "string",
// "Statistics": {
// "DataManifestLocation": "string",
// "DataScannedInBytes": number,
// "EngineExecutionTimeInMillis": number,
// "QueryPlanningTimeInMillis": number,
// "QueryQueueTimeInMillis": number,
// "ServiceProcessingTimeInMillis": number,
// "TotalExecutionTimeInMillis": number
// },
// "Status": {
// "AthenaError": {
// "ErrorCategory": number,
// "ErrorMessage": "string",
// "ErrorType": number,
// "Retryable": boolean
// },
// "CompletionDateTime": number,
// "State": "string",
// "StateChangeReason": "string",
// "SubmissionDateTime": number
// },
// "WorkGroup": "string"
// }
// ],
// "UnprocessedQueryExecutionIds": [
// {
// "ErrorCode": "string",
// "ErrorMessage": "string",
// "QueryExecutionId": "string"
// }
// ]
// }
