carlessoflu
Novato
Registrado: Quinta-Feira, 21 de Fevereiro de 2013
Mensagens: 3
|
 Enviada: Seg Set 04, 2023 1:37 pm Assunto: Como pegar o JSON do RestRequest? |
 |
|
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? O componente que estou usando é o RestClient, RestRequest e RestResponse.
| Código: |
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; |
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
