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; |
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.
-
InfusTec
-
16.556 views
- 1 comentários
- 18 de fevereiro de 2016
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo
O ToJson da erro de Out of Memory !