Como pegar o JSON do RestRequest?

[carlessoflu]

Olá. Estou fazendo uma integração com a Tray Commerce, e preciso enviar para eles os JSON das minhas requisições para fazer a homologação.

O problema é que não consegui encontrar onde pego os JSON das requisições.

Pegar o JSON das respostas é tranquilo. O que preciso é do JSON antes de enviar.

O Código abaixo, por exemplo, é um PUT para atualizar um produto, preciso do JSON dele.

Alguém sabe como faço para pegar esse JSON?

DMTabelas.RESTClient1.BaseURL := BaseURL+'products/'+idrefsite+'?access_token='+Access_Token;
DMTabelas.RESTRequest1.Method := rmPUT;
DMTabelas.RESTResponse1.RootElement := '';
DMTabelas.RESTRequest1.Params.Clear;
DMTabelas.RESTRequest1.Params.AddItem('name',fieldbyname('descricao').asstring,TRESTRequestParameterKind.pkGETorPOST);
if ((not fieldbyname('ncm').IsNull) and (Trim(fieldbyname('ncm').AsString) <> '')) then
   DMTabelas.RESTRequest1.Params.AddItem('ncm',fieldbyname('ncm').asstring,TRESTRequestParameterKind.pkGETorPOST);
if not fieldbyname('preco_venda').IsNull then
   DMTabelas.RESTRequest1.Params.AddItem('price',stringreplace(fieldbyname('preco_venda').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST);
if not fieldbyname('preco_custo').IsNull then
   DMTabelas.RESTRequest1.Params.AddItem('cost_price',stringreplace(fieldbyname('preco_custo').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST);
if (not fieldbyname('peso').IsNull) then
   DMTabelas.RESTRequest1.Params.AddItem('weight',stringreplace(FloatToStr(fieldbyname('peso').asFloat*1000), ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST)
else
   DMTabelas.RESTRequest1.Params.AddItem('weight','300',TRESTRequestParameterKind.pkGETorPOST);
if (not fieldbyname('altura').IsNull) then
   DMTabelas.RESTRequest1.Params.AddItem('height',stringreplace(fieldbyname('altura').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST);
if (not fieldbyname('largura').IsNull) then
   DMTabelas.RESTRequest1.Params.AddItem('width',stringreplace(fieldbyname('largura').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST);
if (not fieldbyname('comprimento').IsNull) then
   DMTabelas.RESTRequest1.Params.AddItem('length',stringreplace(fieldbyname('comprimento').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST);
if (not fieldbyname('id_tray').IsNull) then
                  DMTabelas.RESTRequest1.Params.AddItem('category_id',DMTabelas.QryTemp.fieldbyname('id_tray').AsString,TRESTRequestParameterKind.pkGETorPOST);
DMTabelas.RESTRequest1.Execute;

 

[Juliomar Marchetti]

F7 e F8 jovem ali no execute.;

vai entrar no código e dai tu vai indo até chegar o momento que monta o json e tu pega ele

[carlessoflu]

7 minutos atrás, Juliomar Marchetti disse:

F7 e F8 jovem ali no execute.;

vai entrar no código e dai tu vai indo até chegar o momento que monta o json e tu pega ele

Pois é, já fiz isso, mas ainda assim não encontrei o JSON montado, por isso vim perguntar aqui. Pra saber se alguém sabe alguma propriedade, ou em qual parte do código faz o json.

[Juliomar Marchetti]

olha por aqui que tu pega o trecho de json