(Delphi DLL) Download S3 CloudTrail Log and Un-Gzip

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.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
bucketName: PWideChar;
objectName: PWideChar;
localFilePath: PWideChar;
success: Boolean;
statusCode: Integer;
jsonPath: PWideChar;
gzip: HCkGzip;
json: HCkJsonObject;

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

http := CkHttp_Create();

CkHttp_putAwsAccessKey(http,'AWS_ACCESS_KEY');
CkHttp_putAwsSecretKey(http,'AWS_SECRET_KEY');
CkHttp_putS3Ssl(http,True);
CkHttp_putAwsRegion(http,'us-west-2');
CkHttp_putAwsEndpoint(http,'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 := CkHttp_S3_DownloadFile(http,bucketName,objectName,localFilePath);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

jsonPath := 'qa_output/cloudTrailLog.json';
gzip := CkGzip_Create();
success := CkGzip_UncompressFile(gzip,localFilePath,jsonPath);
if (success = False) then
  begin
    Memo1.Lines.Add(CkGzip__lastErrorText(gzip));
    Exit;
  end;

json := CkJsonObject_Create();
CkJsonObject_LoadFile(json,jsonPath);
CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

// 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"
//     }
//   ]
// }

CkHttp_Dispose(http);
CkGzip_Dispose(gzip);
CkJsonObject_Dispose(json);

end;