TRESTRequest: Adicionar parâmetros no Body em um request do tipo POST. Delphi Tokyo

[André]

Boa tarde. Estou precisando consumir uma API (Metodo Post), utilizando o trio (TRESTRequest,Client e Response), porém não consigo passar os parâmetros no body.

A autenticação funciona. 

Abaixo o código (já tentei de outras formas). Esse é erro que retorna.

--

Resposta JSON: {
  "error":"Request body could not be read properly."
}

Código da resposta: 400
Status da resposta: Bad Request

------

Se alguém puder postar algum exemplo tirando minha dúvida, eu agradeço.

procedure TforAtualProdutosRD.btnIncluirClick(Sender: TObject);
Var
  i: SmallInt;
  Json: string;

begin
  RESTClient1.BaseURL := 'https://crm.rdstation.com/api/v1/products';
  RESTClient1.AddParameter('token','código do token');

  RESTClient1.Accept := 'application/json';
  RESTClient1.ContentType := 'application/json';

  JSON :='{"product": {"description": "TESTE","name": "TESTE DO TESTE","base_price": "111"}}';

  RESTRequest1.AddBody(Json, TRESTContentType.ctAPPLICATION_JSON);

  RESTRequest1.Execute;

  Memo1.Lines.Add('Resposta JSON: ' + RESTRequest1.Response.JSONText);

  Memo1.Lines.Add('Código da resposta: ' + IntToStr(RESTRequest1.Response.StatusCode));

  Memo1.Lines.Add('Status da resposta: ' + RESTRequest1.Response.StatusText);
end;

[Juliomar Marchetti]

unit Unit1;

interface

uses
  Vcl.Forms, Vcl.StdCtrls, REST.Client, REST.Types, System.Classes, System.SysUtils;

type
  TForm1 = class(TForm)
    btnCreateProduct: TButton;
    RestClient1: TRestClient;
    RestRequest1: TRestRequest;
    RestResponse1: TRestResponse;
    procedure btnCreateProductClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RestClient1.BaseURL := 'https://api.rd.services';
  RestClient1.Params.AddHeader('Authorization', 'Bearer YOUR_ACCESS_TOKEN');
  RestRequest1.Client := RestClient1;
  RestRequest1.Method := rmPOST;
  RestRequest1.Resource := '/crm/v1/products';
  RestRequest1.Params.Clear;
  RestRequest1.Params.AddItem('Content-Type', 'application/json', pkHTTPHEADER, [poDoNotEncode]);
end;

procedure TForm1.btnCreateProductClick(Sender: TObject);
var
  JSONBody: string;
begin
  JSONBody := '{"name": "Produto de Teste", "code": "12345", "unit_value": 1000}';
  RestRequest1.AddBody(JSONBody, ctAPPLICATION_JSON);

  try
    RestRequest1.Execute;

    if RestResponse1.StatusCode = 201 then
      ShowMessage('Produto criado com sucesso!')
    else
      ShowMessage('Erro ao criar produto: ' + RestResponse1.Content);
  except
    on E: Exception do
      ShowMessage('Erro: ' + E.Message);
  end;
end;

end.

 

[André]

Obrigado Juliomar pelo retorno, porém, infelizmente não funcionou...

Fiz pequenos ajustes no exemplo que vc mandou. Autoriza o acesso a API e tudo, mas continua dando erro (Abaixo).

Pelo POSTMAN funciona (telas abaixo), mas não aplicação DELPHI não vai. Parece até erro do delphi (não quero acreditar nisso).

procedure TforAtualProdutosRD.FormCreate(Sender: TObject);
begin
  inherited;
//  RestClient1.BaseURL := 'https://api.rd.services';
  RestClient1.BaseURL := 'https://crm.rdstation.com';
//  RestClient1.Params.AddHeader('Authorization', 'Bearer 66b256661b500c000fdced63');
  RestClient1.Params.AddHeader('Host', 'crm.rdstation.com');
  RESTClient1.AddParameter('token','meu token');
  RestRequest1.Client := RestClient1;
  RestRequest1.Method := rmPOST;
  RestRequest1.Resource := '/api/v1/products';
  RestRequest1.Params.Clear;
  RestRequest1.Params.AddItem('Content-Type', 'application/json', pkHTTPHEADER, [poDoNotEncode]);
end;

procedure TforAtualProdutosRD.BitBtn1Click(Sender: TObject);
var
  JSONBody: string;
begin
  JSONBody :='{"name": "TESTE DO TESTE"}';
  RestRequest1.AddBody(JSONBody, ctAPPLICATION_JSON);

  try
    RestRequest1.Execute;

    if RestResponse1.StatusCode = 200 then
      ShowMessage('Produto criado com sucesso!')
    else
      ShowMessage('Erro ao criar produto: ' + RestResponse1.Content);
  except
    on E: Exception do
      ShowMessage('Erro: ' + E.Message);
  end;
end;
 

[André]

Juliomar, só para constar, testei na versão 12.2 do Delphi e FUNCIONOU.

Creio que eu posso dizer que é problema na versão do Delphi.

Obrigado pelo auxílio. Foi de grande valia para que eu chegasse a essa conclusão.

[Juliomar Marchetti]

Creio que possa ser feito algum ajuste

mas eu iria lhe dizer que eu particularmente uso o TNetHttpClient para comunicar com API