ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Processar um retorno em Json no Delphi XE4

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
renatobenedetti
Novato
Novato


Registrado: Quinta-Feira, 12 de Setembro de 2013
Mensagens: 13

MensagemEnviada: Seg Ago 12, 2019 8:40 pm    Assunto: Processar um retorno em Json no Delphi XE4 Responder com Citação

Olá pessoal, preciso de uma ajuda sobre Json no Delphi, estou apanhando um bocado por nao conhecer nada sobre isso no delphi

Vou colocar abaixo um retorno de Json que preciso processar. são várias APIs que preciso processar de retorno, mas não sei nem por onde começar.

Do retorno abaixo, preciso processar os registros, pode nao vir nada, pode vir 1 ou vários

Alguém poderia por gentileza me dar um norte de como fazer ?

Agradeço desde já

{
"Errors": [],
"IsValid": true,
"Warnings": null,
"Page": {
"ErrorMessage": null,
"Index": 0,
"PageCount": 0,
"PageSize": 1000,
"RecordCount": 5
},
"Result": [
{
"Attempts": 8,
"CreatedDate": "/Date(1565096266837-0300)/",
"DomainEventTypeName": null,
"EntityKeyName": "OrderNumber",
"EntityKeyValue": "SOL-00003",
"EntityTypeName": "EZ.Store.Model.Sales.PurchaseOrder",
"LockDate": "/Date(1565288062653-0300)/",
"Operation": "U",
"QueueID": 1,
"QueueItemID": "8f8e2f75-0d85-438c-b61b-9ea8fa9bbff9",
"QueueSubscriptionID": 15
},
{
"Attempts": 0,
"CreatedDate": "/Date(1565447285477-0300)/",
"DomainEventTypeName": "EZ.Store.Model.Profile.Events.CustomerUpdated",
"EntityKeyName": "CustomerID",
"EntityKeyValue": "252541",
"EntityTypeName": "EZ.Store.Model.Profile.Person",
"LockDate": null,
"Operation": "U",
"QueueID": 1,
"QueueItemID": "9eeffb3a-d155-4592-8c86-d3f4ac0dad39",
"QueueSubscriptionID": 15
},
{
"Attempts": 0,
"CreatedDate": "/Date(1565539302053-0300)/",
"DomainEventTypeName": "EZ.Store.Model.Profile.Events.CustomerUpdated",
"EntityKeyName": "CustomerID",
"EntityKeyValue": "252542",
"EntityTypeName": "EZ.Store.Model.Profile.Person",
"LockDate": null,
"Operation": "U",
"QueueID": 1,
"QueueItemID": "fe3d0a00-3425-4326-b35c-ae51ead0d965",
"QueueSubscriptionID": 15
},
{
"Attempts": 0,
"CreatedDate": "/Date(1565584003767-0300)/",
"DomainEventTypeName": "EZ.Store.Model.Profile.Events.CustomerInserted",
"EntityKeyName": "CustomerID",
"EntityKeyValue": "252543",
"EntityTypeName": "EZ.Store.Model.Profile.Company",
"LockDate": null,
"Operation": "I",
"QueueID": 1,
"QueueItemID": "770a517e-98ca-46a7-87ad-b5a73cf32ef6",
"QueueSubscriptionID": 15
},
{
"Attempts": 0,
"CreatedDate": "/Date(1565584003937-0300)/",
"DomainEventTypeName": "EZ.Store.Model.Profile.Events.CustomerUpdated",
"EntityKeyName": "CustomerID",
"EntityKeyValue": "252543",
"EntityTypeName": "EZ.Store.Model.Profile.Company",
"LockDate": null,
"Operation": "U",
"QueueID": 1,
"QueueItemID": "25bd74d9-ef8b-45df-9921-9422c0935118",
"QueueSubscriptionID": 15
}
]
}
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 8910
Localização: Sinop-MT

MensagemEnviada: Qua Ago 14, 2019 8:51 am    Assunto: Responder com Citação

da uma olhada neste link:

https://github.com/hgourvest/superobject

nao sei se o XE4 ja tem alguma rotina pra tratar JSON
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 8910
Localização: Sinop-MT

MensagemEnviada: Qua Ago 14, 2019 8:53 am    Assunto: Responder com Citação

entra no nosso grupo do whats:

https://chat.whatsapp.com/KSu11m8rQ9eCbyoMHTSDp9

qq coisa, manda uma msg pra mim: 66 99616-7379 q te adiciono la
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB