Работа с папками и файлами в Amazon S3 через Delphi: создание, удаление и передача данных

Delphi , Программа и Интерфейс , Процессы и Сервисы

В процессе разработки приложений для работы с облачными хранилищами часто возникает необходимость создания и управления папками и файлами. Amazon S3 предоставляет мощные инструменты для работы с большими объемами данных, и в данной статье мы рассмотрим, как можно организовать работу с папками и файлами в Amazon S3, используя язык программирования Object Pascal и среду разработки Delphi.

Основы работы с Amazon S3

Прежде всего, стоит отметить, что Amazon S3 не использует традиционное понятие папок, как в файловых системах. Вместо этого, S3 работает с объектами, где каждый объект состоит из ключа (key), который может содержать дефиниционые разделители, создавая впечатление структуры каталогов и подкаталогов. Таким образом, для создания "папки" в Amazon S3 достаточно указать корректный ключ для нового объекта.

Создание папок в Amazon S3 через Delphi

Для создания "папки" в Amazon S3 через Delphi, вам нужно будет использовать метод создания нового объекта, указав ключ, который содержит разделители для имитации структуры каталогов. Например, для создания "папки" с именем Folder_1 в "корзине" MyBucket, вы можете вызвать следующий код:

uses
  System.SysUtils,
  AWS.S3;

var
  S3Client: TAWSS3Client;
begin
  S3Client := TAWSS3Client.Create(nil);
  try
    // Укажите ключ доступа, секретный ключ и, если необходимо, регион
    S3Client.AWSRegion := 'us-west-2';
    S3Client.AccessKeyId := 'YOUR_ACCESS_KEY';
    S3Client.SecretAccessKey := 'YOUR_SECRET_KEY';

    // Создание "папки" через создание объекта с пустым содержимым
    S3Client.PutObject(
      BucketName: 'MyBucket',
      Key: 'Folder_1/',
      Body: TMemoryStream.Create);
  finally
    S3Client.Free;
  end;

Удаление папок в Amazon S3 через Delphi

Аналогично созданию, удаление "папки" осуществляется через операцию удаления объекта. В данном случае, вы должны вызвать метод удаления объекта, передав ключ объекта, который вы хотите удалить:

uses
  System.SysUtils,
  AWS.S3;

var
  S3Client: TAWSS3Client;
begin
  S3Client := TAWSS3Client.Create(nil);
  try
    // Укажите ключ доступа, секретный ключ и, если необходимо, регион
    S3Client.AWSRegion := 'us-west-2';
    S3Client.AccessKeyId := 'YOUR_ACCESS_KEY';
    S3Client.SecretAccessKey := 'YOUR_SECRET_KEY';

    // Удаление "папки" (объекта)
    S3Client.DeleteObject(
      BucketName: 'MyBucket',
      Key: 'Folder_1/');
  finally
    S3Client.Free;
  end;

Загрузка и выгрузка файлов в созданные папки

Для загрузки файла в "папку" используйте метод PutObject, укажите ключ, который будет включать имя "папки" и имя файла:

uses
  System.SysUtils,
  AWS.S3,
  System.IOUtils;

var
  S3Client: TAWSS3Client;
  FileStream: TFileStream;
begin
  S3Client := TAWSS3Client.Create(nil);
  try
    // Конфигурация клиента аналогично предыдущим примерам

    // Открытие файла для загрузки
    FileStream := TFileStream.Create('path\to\your\file.txt', fmOpenRead or fmShareDenyNone);
    try
      // Загрузка файла в "папку" с ключом, включающим имя "папки" и имя файла
      S3Client.PutObject(
        BucketName: 'MyBucket',
        Key: 'Folder_1/SubFolder_1/File1.xml',
        Body: FileStream);
    finally
      FileStream.Free;
    end;
  finally
    S3Client.Free;
  end;

Для выгрузки файла из "папки" используйте метод GetObject, также указывая соответствующий ключ:

uses
  System.SysUtils,
  AWS.S3,
  System.IOUtils;

var
  S3Client: TAWSS3Client;
  OutputStream: TMemoryStream;
begin
  S3Client := TAWSS3Client.Create(nil);
  try
    // Конфигурация клиента аналогично предыдущим примерам

    // Получение файла из "папки" для сохранения на локальный диск
    S3Client.GetObject(
      BucketName: 'MyBucket',
      Key: 'Folder_1/SubFolder_1/File1.xml',
      function(const Data: TStream): Boolean;
    begin
      OutputStream := TMemoryStream.Create;
      OutputStream.CopyFrom(Data, Data.Size);
      with TFileStream.Create('path\to\save\file1.xml', fmCreate) do
      try
        Write(OutputStream.Memory, OutputStream.Size);
      finally
        Free;
      end;
      Result := True;
    end);
  finally
    S3Client.Free;
  end;

Работа с подкаталогами

Для работы с подкаталогами, достаточно использовать аналогичные подходы, расширяя ключ объекта, используя разделитель /. Например, для создания подкаталога SubFolder_1 внутри Folder_1, ключ будет выглядеть как MyBucket/Folder_1/SubFolder_1/.

Удаление полных структур каталогов

Удаление целых "каталогов" или их содержимого можно организовать через перебор ключей с использованием префикса. Для этого можно использовать операцию перечисления объектов (list objects) с указанием префикса каталога.

Заключение

Используя примеры кода выше, вы сможете управлять структурами "каталогов" и файлами в Amazon S3 с помощью Delphi и Object Pascal. Не забывайте, что Amazon S3 не имеет физических каталогов, но с помощью специальных ключей и операций можно создавать удобную иерархию для удобства организации и доступа к вашим данным.

Создано по материалам из источника по ссылке.

Работа с облачным хранилищем Amazon S3 через Delphi, включая создание, удаление и передачу данных, а также управление структурой 'папок' с использованием объектов и ключей.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процессы и Сервисы ::