Como obter um JSON a partir de um TDataSet? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como obter um JSON a partir de um TDataSet?

 

Com a crescente número de pessoas que estão navegando em serviços cambiáveis entre aplicativos (ou linguagens), serializar um TDataet pode ser uma solução simples e “stander” de mercado para troca de informações.

Veja o que o Delphi oferece sobre o assunto:

Declare System.uJson, Data.DB.Helper na seção uses.

Veja o exemplo:

1
2
3
4
function DatasetToJson( const ADataset:TDataset ) : string;
begin
  Result := ADataset.ToJson;
end;

Como este simples código, é possível converter seu Dataset em um arquivo JSON.

Para baixar a unit Data.DB.Helper.pas, acesse:
https://github.com/amarildolacerda/helpers/blob/master/Data.DB.Helper.pas

Para baixar a unit System.uJSON.pas, acesse:
https://github.com/amarildolacerda/helpers/blob/master/System.uJSON.pas

Autor original: Amarildo Lacerda

Este texto foi escrito bom base no material disponível em:
https://github.com/amarildolacerda/docs/blob/master/DelphiXFirebid.pdf

Dúvidas ou sugestões, deixe nos comentários do post.

Facebook Comments

Posts Relacionados

  • Administrador
  • 1.794 views
  • 0 comentários
  • 18 de fevereiro de 2016

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados