-1

Boa noite Galera, sou iniciante em Delphi e estou tentando enviar uma requisição de criação para uma Api mas estou com uma certa dificuldade com o POST. como faço esse envio? estou tentando por essa API: https://reqres.in Desde já agradeço a ajuda.

procedure TfrmPrincipal.Button7Click(Sender: TObject);
var
    res: TJSONValue;
    ParamNome: TRequestParam;
    ParamProfissao: TRequestParam;
    ParamArray: array of TRequestParam;
    ParamObj: TRequestParam;

begin

    ParamNome := RequestParam('name', 'Morpheus');
    ParamProfissao := RequestParam('job', 'Leader');
    ParamArray :=[
            ParamNome,
            ParamProfissao
            ];
    ParamObj := RequestParam('nome', ParamArray);

    res := TRestService.Ocorrencia.request(
        'https://reqres.in/api',
        'users',
       TRestService.POST


    );
    ParamObj := RequestParam('nome', ParamArray);
    Memo1.Lines.Text := ParamObj.valor.ToJSON;

end;
3
  • Alguém pode ajudar?? 15/09/2020 às 15:47
  • O que está a acontecer com esse código? 16/09/2020 às 11:52
  • Obrigado pela ajuda não estava conseguindo copilar, mas consegui passando o valor ParamObj dentro do Array. TRestService.POST, [ ParamObj ] 16/09/2020 às 14:55

1 Resposta 1

0

Consegui resolver passando o valor ParamObj dentro do array.

var
    res: TJSONValue;
    ParamNome: TRequestParam;
    ParamProfissao: TRequestParam;
    ParamArray: array of TRequestParam;
    ParamObj: TRequestParam;

begin

    ParamNome := RequestParam('name', 'Felipe');
    ParamProfissao := RequestParam('job', 'Cozinheiro');
    ParamArray :=[
            ParamNome,
            ParamProfissao
            ];
    ParamObj := RequestParam('usuario', ParamArray);

    res := TRestService.Ocorrencia.request(
            'https://reqres.in/api',
            'users',
            TRestService.POST,
            [
                ParamObj
            ]
    );

    Memo1.Lines.Text := res.ToJSON;
   
end;

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .