ActiveDelphi

eduardohernandes · Enviada: Qui Jul 26, 2018 8:36 am Assunto: Json retornando result

Ola pessoal, sera que alguem poderia me ajudar...
Como faço para o Json não retornar Result?

"result": [
[
{
"empresa": "YDD",
"nome": "Eduardo",
"telefone": {
"listHelper": [
2
],
"items": [
{
"dDD": "11",
"numero": "111111",
"tipo": "Casa"
},

Mas apenas os dados
{
"empresa": "YDD",
"nome": "Eduardo",
"telefone": {
"listHelper": [
2
],
"items": [
{
"dDD": "11",
"numero": "111111",
"tipo": "Casa"
},

igormoita · Enviada: Qui Jul 26, 2018 5:50 pm Assunto:

Qual exatamente é seu objetivo com o retorno JSON, pois result faz parte do cabeçalho do mesmo.
Tem uma classe System.JSON própria para manipular esse tipo de informação. Já tentou utilizá-la? Tu poderia manipulá-la com a classe e jogar os dados dentro de um MemTable, sei lá...
_________________
SEMPRE COLOQUE [RESOLVIDO] NO SEU POST

eduardohernandes · Enviada: Qui Jul 26, 2018 6:29 pm Assunto:

O problema é esse, quando jogo para o memTable, só pega o result, e não os fields.

igormoita · Enviada: Qui Jul 26, 2018 6:37 pm Assunto:

Se esse JSON é, inicialmente, um tipo String e sempre terá o retorno do "result": [,
Vc tentar as funções de manipulação de String:

StringReplace ou System.AnsiStrings.LeftStr e retirar o result manualmente.
_________________
SEMPRE COLOQUE [RESOLVIDO] NO SEU POST

johncarf88 · Enviada: Sáb Nov 10, 2018 10:04 pm Assunto:

De onde voce pega esse json? de um datasnap rest?

se sim

e so adicionar essas duas units:
System.JSON
Data.DBXCommon,
no WebModule

e no evento formatresult do DSHTTPWebDispatcher1 esse codigo

procedure TWM.DSHTTPWebDispatcher1FormatResult(Sender: TObject;
var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
begin
Handled := True;
ResultVal := TJSONArray(ResultVal).Items[0];
end;

Espero que lhe ajude

anderbelluno · Enviada: Qui Dez 06, 2018 4:46 am Assunto:

Eduardo, já resolveu??