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.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
O ToJson da erro de Out of Memory !