Dicas de Programador

 Em alguns momentos precisamos transmitir arquivos de uma plataforma para outra.  Uma das formas possíveis é converter um arquivo em base 64, passar a informação via JSON e a estrutura que recebe a informação transformar em arquivo novamente. Segue exemplo abaixo de como fazer no delphi para transformar o arquivo em uma base 64. Utilizaremos as seguintes uses   System.Classes,  System.JSON e  System.NetEncoding;

Para podermos consumir a API de forma nativa vamos precisar das seguintes uses:   Rest.Client,  REST.Types, Rest.Json; Veja abaixo um exemplo de como consumir a api do google. https://maps.googleapis.com/maps/api/geocode/json?address=ENDERECO&key=MINHA CHAVE DA API. É possível serializar a variável LJSON em uma classe, conforme exemplo do artigo anterior, segue link:  https://dicaprogramador.blogspot.com/2024/11/serializar-e-desserializar-json-em.html

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 a...