将文件夹添加到 Android 项目 (Delphi)

Question

When making Android apps with Delphi, I know how to use the Deployment Manager to add a file that I can access at runtime. But I need to add hundreds of files. Is there a way to add an entire folder instead of just individual files? Example use case: a language learning app with hundreds of pictures corresponding to vocabulary words.

Answer 1

Here is what worked for me:

1. Get an aws.amazon.com account and store the data you need in an S3 bucket

2. Use the Object Inspector to place an AmazonConnectInfo on your form. Edit the Account Name and Account Key to your aws credentials. Make sure the 'Region' and 'Endpoints' match the region you selected on aws.amazon.com, ex: "ca-central-1" for the Region and "s3.ca-central-1.amazonaws.com" for the three EndPoints.

3. Use this code to play any audio file from the bucket:

   const BUCKET_NAME = 'name of your s3 bucket';

   procedure TForm1.FetchAndPlaySound; var s3: TAmazonStorageService; thefilestream: TFileStream; NameOfFile: String;

   begin

   NameOfFile:= 'subfoldername/example.wav';

   thefilestream:= TFileStream.Create(System.Ioutils.TPath.GetDocumentsPath + PathDelim + 'Dynamite.wav',fmOpenWrite);

   s3:= TAmazonStorageService.Create(AmazonConnectionInfo1);

   try

   if s3.GetObject(BUCKET_NAME, NameOfFile, thefilestream ) then

   begin

   //Where 'dynamite.wav' is a placeholder file put in the local memory using the Deployment Manager, asset/internal

   MediaPlayer1.FileName:= System.Ioutils.TPath.GetDocumentsPath + PathDelim + 'Dynamite.wav';

   MediaPlayer1.Play;

   end

   else

   begin

   else ShowMessage('missing file: ' + NameOfFile);

   end;

   finally

   s3.Free;

   thefilestream.Free;

   end;