Delphi ActiveX

Download S3 CloudTrail Log and Un-Gzip

See more Amazon S3 Examples

Demonstrates how to download a Amazon CloudTrail log from an S3 bucket. The file in this example is a .json.gz. The file is uncompressed and the JSON parsed. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
bucketName: WideString;
objectName: WideString;
localFilePath: WideString;
statusCode: Integer;
jsonPath: WideString;
gzip: TChilkatGzip;
json: TChilkatJsonObject;

begin
success := 0;

// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := TChilkatHttp.Create(Self);

http.AwsAccessKey := 'AWS_ACCESS_KEY';
http.AwsSecretKey := 'AWS_SECRET_KEY';
http.AwsRegion := 'us-west-2';
http.AwsEndpoint := 's3-us-west-2.amazonaws.com';

bucketName := 'chilkat.logs';
objectName := '/AWSLogs/957491831129/CloudTrail/us-west-1/2016/11/12/957491831129_CloudTrail_us-west-1_20161112T1335Z_umXfD4RxHE5nDGuI.json.gz';
localFilePath := 'qa_output/cloudTrailLog.json.gz';

success := http.S3_DownloadFile(bucketName,objectName,localFilePath);
if (success <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

statusCode := http.LastStatus;
if (statusCode <> 200) then
  begin
    Memo1.Lines.Add('Failed to download, response status code = ' + IntToStr(statusCode));
    Exit;
  end;

jsonPath := 'qa_output/cloudTrailLog.json';
gzip := TChilkatGzip.Create(Self);
success := gzip.UncompressFile(localFilePath,jsonPath);
if (success = 0) then
  begin
    Memo1.Lines.Add(gzip.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.LoadFile(jsonPath);
json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());

// Sample JSON is shown below.
// Go to http://tools.chilkat.io/jsonParse.cshtml 
// and copy/paste the JSON into the online tool to generate parsing code.

// {
//   "Records": [
//     {
//       "eventVersion": "1.05",
//       "userIdentity": {
//         "type": "Root",
//         "principalId": "954591834127",
//         "arn": "arn:aws:iam::954591834127:root",
//         "accountId": "954591834127",
//         "accessKeyId": "ASIAJ3DEMXUXI43B6FYQ",
//         "sessionContext": {
//           "attributes": {
//             "mfaAuthenticated": "false",
//             "creationDate": "2016-11-12T13:09:31Z"
//           }
//         }
//       },
//       "eventTime": "2016-11-12T13:34:39Z",
//       "eventSource": "cloudtrail.amazonaws.com",
//       "eventName": "DescribeTrails",
//       "awsRegion": "us-west-1",
//       "sourceIPAddress": "98.228.98.57",
//       "userAgent": "console.amazonaws.com",
//       "requestParameters": {
//         "trailNameList": [
//         ]
//       },
//       "responseElements": null,
//       "requestID": "c2a0376c-a8dc-11e6-89e7-85ac5ce5ee56",
//       "eventID": "eb5afd70-dae1-41f0-82b4-91c3c936d9ba",
//       "eventType": "AwsApiCall",
//       "recipientAccountId": "954591834127"
//     }
//   ]
// }
end;