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;