Проблемы и решения при передаче TBytes в TRestRequest.AddBody() в Delphi 10.1 Berlin

Delphi , Синтаксис , Массивы

Вопрос, с которым сталкиваются разработчики, использующие Delphi 10.1 Berlin для отправки данных в формате TBytes через REST-сервис, заключается в том, что стандартный метод TRestRequest.AddBody() не предназначен для работы с массивами байтов напрямую. Однако, существуют способы обойти эту проблему.

Альтернативные способы передачи данных в TRestRequest

Использование TBytesStream

Один из способов заключается в использовании класса TBytesStream, который позволяет обернуть TBytes в TStream, что делает возможным использование TBytes с методом AddBody().

procedure TForm1.Button1Click(Sender: TObject);
var
  ABytes: TBytes;
  AStream: TBytesStream;
begin
  ABytes := ...; // Загрузите данные в массив ABytes
  try
    AStream := TBytesStream.Create(ABytes);
    RESTRequest1.AddBody(AStream, ctIMAGE_JPEG); // Укажите соответствующий ContentType
    RESTRequest1.Execute;
  finally
    AStream.Free;
  end;
end;

Использование TRESTRequestParameterList.AddItem

Также можно использовать метод TRESTRequestParameterList.AddItem, который имеет перегрузку для работы с TBytes:

procedure TForm1.Button1Click(Sender: TObject);
var
  ABytes: TBytes;
begin
  ABytes := ...; // Загрузите данные в массив ABytes
  RESTRequest1.Params.AddItem('body', ABytes, pkGETorPOST, [poDoNotEncode], ctIMAGE_JPEG);
  RESTRequest1.Execute;
end;

Альтернатива: использование Indy's TIdHTTP

В некоторых случаях, TRestClient может быть излишне сложным или иметь ограничения. Indy's TIdHTTP может быть более удобным инструментом для выполнения HTTP-запросов:

procedure TForm1.Button1Click(Sender: TObject);
var
  ABytes: TBytes;
  AStream: TBytesStream;
begin
  ABytes := ...; // Загрузите данные в массив ABytes
  try
    AStream := TBytesStream.Create(ABytes);
    IdHTTP1.Request.ContentType := 'image/jpeg';
    IdHTTP1.Post('http://myserver:1111//Openxxx/RecxxxLxxxPxxxx', AStream);
  finally
    AStream.Free;
  end;
end;

Передача данных в Base64

Пользователи также предлагали передавать данные в Base64, что позволяет обойтись без использования TStream и напрямую передать строку в метод AddBody().

Подтвержденный ответ пользователя

Пользователь нашел решение, которое заключается в преобразовании TBytes в строку, используя функцию BytesToStr, и передаче этой строки в качестве параметра запроса:

function BytesToStr(abytes: TBytes): string;
var
  abyte: Byte;
begin
  for abyte in abytes do
  begin
    Result := Result + IntToStr(abyte) + ',';
  end;
  Result := '[' + Copy(Result, 1, Length(Result) - 1) + ']';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ABytes: TBytes;
begin
  ABytes := TFile.ReadAllBytes('images.jpg');
  RESTRequest1.Params.AddItem('body', BytesToStr(ABytes), pkREQUESTBODY, [], ctAPPLICATION_JSON);
  RESTRequest1.Execute;
end;

Заключение

При работе с TRestRequest в Delphi 10.1 Berlin для отправки данных в формате TBytes, важно понимать, что стандартные методы не поддерживают работу с массивами байтов напрямую. Однако, существуют различные обходные пути, такие как использование TBytesStream, TRESTRequestParameterList.AddItem, Indy's TIdHTTP или преобразование данных в Base64. Каждый из этих методов имеет свои преимущества и недостатки, и выбор конкретного метода зависит от требований и условий проекта.

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

Разработчики в Delphi 10.1 Berlin сталкиваются с трудностями при передаче данных в формате TBytes через TRestRequest, что требует от них использования альтернативных способов, таких как обертка TBytes в TStream, использование дополнительных параметров за

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

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

:: Главная :: Массивы ::