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.