Error 500: Internal Server Error

[lereismachado]

Boa tarde pessoal,
estou implementando um api rest com o horse, e tenho o seguinte end-point
Post /produtos
{
"codigo": 1,
"codigo_interno": "1",
"seq_pla_produto": "",
"descricao": "",
"desc_nfe": "TESTE",
"desc_complementar_nfe": "12",
"sigla": "TST",
"unidade": "KG",
"cod_sub_grupo_produto": "10",
"cod_ncm": "",
"insumos": "S",
"ativo": "S",
"observacao": "TESTANDO",
"estoque_minimo": 0,
"estoque_maximo": 0,
"cean": "",
"tipo_insumos": "",
"toxicologia": "",
"ambiental": ""
}

executa tudo conforme implementado, salva na tabela do meu banco monta json de retorno porem ao realiza o REQ.SEND(Retorno).Status(201) ocorre algum erro de AV e quebra meu retorno saindo

Minha procedure que esta executando no metodo
InsereProduto.txt

Erro

[jcaique]

Olá

Veja como você está criando o objeto retornado na function Dm.InsereProduto.

Acredito que ele possa estar sendo destruído nesta function e sendo retornado ou simplesmente ela não está retornando alguma coisa.
Ai na hora de executar Res.Send(Retorno).Status(201); a variável Retorno está nil

[lereismachado]

Boa tarde @jcaique , depois de muito bate cabeça, entendi que não precisava fazer freeandnil no objeto Retorno na propria procedure InsereProduto, pois quando o objeto era retorno da função dm.InsereProduto.

Pelo que entendi, todo objeto utilizado para construção do Send não precisaria ser destruído no final da minha procedure.

Valeu pelo retorno

[jcaique]

Show.

Se caso o objeto criado fosse na própria rotina que chama a InsereProduto, voce até poderia chamar o FreeAndNil após todo o uso dele.

Se aceitar uma dica, seria interessante você trabalhar com classes, assim evitaria a criação de diversas variáveis locais e nos parâmetros das funções também.

Sucesso!

[diegobastos]

Concordo com o uso de classes, inclusive se usar objetos de classes do tipo class(TInterfacedObject) já estará usufruindo da contagem de referência automática no Delphi, deste modo não existindo mais referências o obj automaticamente é destruído.