DataSnap e JSON Result

Delphi

08/07/2013

Então Senhores

Estou estudando o datasnap tendo como retorno um TJSONObject, porém percebi que ao executar o método através da URL (Método GET) o parâmetro enviado é retornado da seguinte forma:

{
	"nome": "andreza b",
	"result": [
		{
			"Rows": [
				{"id_cliente": "11542","nome": "ANDREZA BENVINDO PESSANHA"},
				{"id_cliente": "57632","nome": "ANDREZA BASTO"},
				{"id_cliente": "71001","nome": "ANDREZA BENVINDO PESSANHA"}
			],
			"id": "{7E5CFE06-DB74-44AD-B0F7-1AC9B8826764}",
			"RowsCount": "3",
			"Timer": "00:00:00:033"
		}
	]
}


Eu gostaria de simplificar este result, gostaria que meu datasnap retornasse somente o seguinte:

{
	"Rows": [
		{"id_cliente": "11542","nome": "ANDREZA BENVINDO PESSANHA"},
		{"id_cliente": "57632","nome": "ANDREZA BASTO"},
		{"id_cliente": "71001","nome": "ANDREZA BENVINDO PESSANHA"}
	],
	"id": "{E079EDDD-A2C7-4BBB-BC79-AB6FF7B17C8B}",
	"RowsCount": "3",
	"Timer": "00:00:00:033"
}


É possível?
Se sim, como?
Aloizio Castro

Aloizio Castro

Curtidas 0

Respostas

Gabriel Baltazar

Gabriel Baltazar

08/07/2013

Coloca isso aqui no final do seu método.

GetInvocationMetadata().ResponseContent := jsonObject.toJson;
  GetInvocationMetadata().ResponseCode    := 200; // Esse é o cod. retorno http
GOSTEI 0
POSTAR