Преобразование команды CURL в код Indy для Delphi XE3 с отправкой данных на сервис Echonest API

Delphi , Интернет и Сети , URL

В процессе разработки небольшого медиапроигрывателя с встроенной поддержкой распознавания аудио с помощью API Echonest, у меня возникла необходимость отправить данные на сервис, используя команду CURL. Так как в Delphi XE3 нет встроенной поддержки CURL, а доступные третьи-party библиотеки не гарантируют совместимость с современными версиями Delphi, я решил использовать компоненты Indy для отправки данных.

Исходная команда CURL, которую нужно преобразовать:

curl -F "api_key=FILDTEOIK2HBORODV" -F "filetype=mp3" -F "track=@audio.mp3" "http://developer.echonest.com/api/v4/track/upload"

Для преобразования этой команды в код на Object Pascal (Delphi) с использованием Indy, выполните следующие шаги:

1. Добавьте компоненты Indy в свой проект. Для этого найдите компоненты Indy в Palette (Панель инструментов) и перетащите TIdHTTP и TIdMultipartFormDataStream на форму.
2. Импортируйте необходимые библиотеки в единицу (Unit):

uses
  ..., IdHTTP, IdMultipartFormData;

1. Создайте экземпляры компонентов TIdHTTP и TIdMultipartFormDataStream, а также переменную для хранения данных, которые будут отправлены:

var
  IdHTTP1: TIdHTTP;
  Data: TIdMultipartFormDataStream;
  FileName: string;
begin
  IdHTTP1 := TIdHTTP.Create(nil);
  try
    Data := TIdMultipartFormDataStream.Create;
    try
      // Здесь будет код для отправки данных
    finally
      Data.Free;
    end;
  finally
    IdHTTP1.Free;
  end;
end;

1. Добавьте данные в поток TIdMultipartFormDataStream. В нашем случае это будет ключ API, тип файла и сам файл:

Data.AddFormField('api_key', 'FILDTEOIK2HBORODV');
Data.AddFormField('filetype', 'mp3');
FileName := 'C:\path\to\audio.mp3'; // Замените на путь к вашему файлу
Data.AddFile('track', FileName);

1. Отправьте данные на сервер с помощью метода Post компонента TIdHTTP:

IdHTTP1.Post('http://developer.echonest.com/api/v4/track/upload', Data);

Теперь у вас есть рабочий код на Object Pascal (Delphi) для отправки данных на сервис Echonest API с использованием компонентов Indy. Этот код можно использовать в качестве отправной точки для дальнейшей разработки и настройки в соответствии с вашими конкретными требованиями.

Пример полного кода:

uses
  ..., IdHTTP, IdMultipartFormData;

var
  IdHTTP1: TIdHTTP;
  Data: TIdMultipartFormDataStream;
  FileName: string;
begin
  IdHTTP1 := TIdHTTP.Create(nil);
  try
    Data := TIdMultipartFormDataStream.Create;
    try
      Data.AddFormField('api_key', 'FILDTEOIK2HBORODV');
      Data.AddFormField('filetype', 'mp3');
      FileName := 'C:\path\to\audio.mp3'; // Замените на путь к вашему файлу
      Data.AddFile('track', FileName);
      IdHTTP1.Post('http://developer.echonest.com/api/v4/track/upload', Data);
    finally
      Data.Free;
    end;
  finally
    IdHTTP1.Free;
  end;
end;

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

Пользователь хочет преобразовать команду CURL для отправки данных на сервис Echonest API в код Indy для Delphi XE3.

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

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

:: Главная :: URL ::