ActiveDelphi

[renatobenedetti]

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
}
]
}

[joemil]

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/

[joemil]

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/