Serializar e desserializar JSON em Delphi de Forma nativa

-
Aqui vamos mostrar como deserializar este JSON em delphi de forma nativa sem uso de componentes. 
Veja abaixo um exemplo de JSON.

{
  "nome": "Produto A",
  "preco": 29.99,
  "disponivel": true,
  "detalhes": [
    {
      "descricao": "Produto de alta qualidade",
      "estoque": 150
    },
    {
      "descricao": "Disponível em várias cores",
      "estoque": 75
    },
    {
      "descricao": "Inclui garantia de 2 anos",
      "estoque": 200
    }
  ]
}

Primeiro vamos precisar criar um classe com os campos que serão recebidos do JSON, perceba que detalhes é uma lista então teremos que criar um array na classe.

Nesta classe iremos precisar da uses Rest.Json.Types para poder definir o atributo JSONName, que serve para definir o nome do campo a serializar ou desserializar o JSON.

Então nossas classe ficarão assim.




Perceba o atributo acima das variáveis.

Como temos uma lista podemos criar uma procedure Add para alimentar esse array e o clear e destroy para liberar da memoria.

Veja sua implementação.



Serializar JSON

Agora para serializar vamos usar as uses Rest.Json e System.JSON

Veja na imagem abaixo que alimentamos os valores na classe e depois utilizamos o comando Json.ObjectToJsonString para serializar a classe e gerar um JSON.



Desserializar JSON

Para desserializar é muito simples veja exemplo abaixo.




Esse post lhe ajudou? deixe seu comentário.

Comentários

Postar um comentário

Postagens mais visitadas deste blog

Como fazer leitura de Arquivo CSV e XLS em Delphi

-
Segue abaixo solução encontrada para ler arquivos csv e xls.: procedure TFUIImportacaoPreco. BtnLerArquivoClick(Sender: TObject); var   I, LContarRegistro: Integer;   LColuna,  LArquivoCSV: TStringList;   LArquivoXLS: String;   Excel, Sheet: Variant;   LIndice: Currency; begin   inherited;   if (CeRefFabrica.AsInteger = CePreco.AsInteger) then     raise EValidation.Create('Antes de realizar a leitura fazer as configurações de linha e coluna');   if FECaminhoArquivo.Text = '' then     raise EValidation.Create('Selecione um arquivo');   FPosicaoCabecalho := CeCabecalho.AsInteger;   FPosicaoPreco     := CePreco.AsInteger;   FPosicaoRef       := CeRefFabrica.AsInteger;   if Pos('.CSV', UpperCase(Copy( FECaminhoArquivo.FileName, length(FECaminhoArquivo. FileName) -4, length(FECaminhoArquivo. FileName))))  > 0  then   begin     //Desc...
Leia mais

Arredondamento de valores Formato ABNT

-
Regras de arredondamento na Numeração Decimal - Norma ABNT NBR 5891 Dezembro de 1977. Mais informações: O algarismo a ser conservado no sistema ISS.Net é o segundo após a vírgula. Serão considerados as 6 casas após a vírgula para os cálculos. 2. Regras 2.1  Quando o algarismo a ser conservado for seguido de algarismo inferior a 5, permanece o algarismo a ser conservado e retiram-se os posteriores. Ex.: 86,06 * 5% = 4,303 fica 4,30, visto que o 3 é inferior a 5. 2.2  Quando o algarismo a ser conservado for seguido de algarismo superior a 5, ou igual a 5 seguido de no mínimo um algarismo diferente de zero, soma-se uma unidade ao algarismo a ser conservado e retiram-se os posteriores. Ex.1: 309,75 * 5% = 15,4875 fica 15,49, visto que o 7 é superior a 5. Ex.2: 602,27* 2% = 12,0454 fica 12,05, visto que os algarismos seguintes ao 5 são diferentes de zero. 2.3  Quando o algarismo a ser conservado for ímpar, seguido de 5 e posteriormente de zeros, soma-se uma un...
Leia mais