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

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

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

Проблема и ее контекст

Пользователь столкнулся с необходимостью загрузки файлов на сервис Amazon S3, имея на руках SecretAccessKey, SessionToken, Expiration и AccessKeyId. Несмотря на изучение документации по авторизационным заголовкам, он не смог самостоятельно построить необходимый заголовок для авторизации.

Пример кода с использованием Indy

В примере кода, предоставленном пользователем, используется компонент IdHTTP1 для загрузки файла. Однако, в коде отсутствует построение необходимого авторизационного заголовка, что и является основной проблемой.

FS := TFileStream.Create('c:\myfile.txt', fmOpenRead or fmShareDenyWrite);
try
  IdHTTP1.Request.CustomHeaders.Values['Authorization'] := ...; // здесь должен быть авторизационный заголовок
  IdHTTP1.Request.BasicAuthentication := False;
  IdHTTP1.Request.Date := ...;   // что вставлять здесь?
  IdHTTP1.Request.Expect := '100-continue';
  IdHTTP1.Request.ProtocolVersion := pv1_1;
  ...
  IdHTTP1.Put('http://'+BucketName+'.s3.amazonaws.com/myfile.txt', FS);
finally
  FS.Free;
end;

Решение проблемы с использованием Cloud Components

Пользователь также упоминает о существовании компонентов для работы с облачными сервисами в Delphi 10, которые могут упростить процесс загрузки файлов. В частности, упоминается компонент TAmazonConnectionInfo.

Пример загрузки файла с использованием Cloud Components

В подтвержденном ответе представлен код загрузки файла, использующий компоненты Cloud Components:

function UploadFile(File: TBytes; FileName: string; Bucket: string): boolean;
var
  Service: TAmazonStorageService;
  ConAmazon: TAmazonConnectionInfo;
begin
  try
    ConAmazon := TAmazonConnectionInfo.Create(nil);
    ConAmazon.AccountKey := '...'; // Ключ учетной записи
    ConAmazon.AccountName := '...'; // Имя учетной записи
    // Другие настройки соединения
    Service := TAmazonStorageService.Create(ConAmazon);
    Result := Service.UploadObject(Bucket, FileName, File, TRUE, nil, nil, amzbaPrivate, nil);
  finally
    ConAmazon.Free;
    Service.Free;
  end;
end;

Использование временных учетных данных

Для использования временных учетных данных необходимо обновить метод InitHeaders класса TAmazonStorageService, добавив в заголовок параметр x-amz-security-token:

Result.Values['x-amz-security-token'] := 'your_session_token_string';

Это позволит использовать временные учетные данные в соответствии со стандартом Amazon AWS4.

Заключение

В данной статье мы рассмотрели процесс загрузки файлов на Amazon S3 с использованием временных учетных данных в среде разработки Delphi. Мы начали с анализа проблемы, затем перешли к примеру использования Indy, после чего рассмотрели решение с применением Cloud Components и внесением изменений для поддержки временных учетных данных. Надеемся, что данная информация окажется полезной для вас!

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

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

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

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

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