Gera��o de chaves JSON (DataSnap Delphi);

09/11/2018

Bom dia Pessoal, estou estudando e tentando desenvolver uma aplica��o datasnap onde eu possa disponibilizar os meus dados para outro software web atrav�s do json.

Estou com algumas d�vidas quanto a gera��o de chaves no Delphi para JSON.

Meu select gera est� tabela:

+-----------+---------+
| nome | salario |
+-----------+---------+
| Pedro | 5000 |
| Marcos | 2000 |
| Ana | 8000 |
| Jaqueline | 3000 |
+-----------+---------+

Meu JSON est� saindo assim:

{"result":[{"nome":"Pedro","salario":"2000","nome":"Ana","salario":"3000"}]}.

Como podem perceber, ele n�o est� pegando o salario correto do Pedro, alem de mostrar menos registros do que a minha tabela possui e ao terminar o "nome" : "salario". Como eu fa�o para gerar outro par de chaves? {}

Segue C�digo

function TServerMethods1.GetSalarios: TJsonObject;
Var
  FDQuery : TFDQuery;
  LJSONObject : TJsonObject;
  I: Integer;
  NomeColuna, ValorColuna : String;
begin
 FDQuery := TFDQuery.Create(nil);
 try
   FDQuery.Connection := cnnConexao;
   FDQuery.SQL.Add(''select nome, salario from funcionarios'');
   FDQuery.Active := True;
   FDQuery.First;
   LJSONObject := TJsonObject.Create;
   while (not FDQuery.Eof) do
   begin
      for I := 0 to FDQuery.FieldDefs.Count -1 do
      begin
        NomeColuna  := FDQuery.FieldDefs[I].Name;
        ValorColuna := FDQuery.FieldByName(NomeColuna).AsString;
        LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create(NomeColuna),TJSONString.Create(ValorColuna)));
        FDQuery.Next;
      end;
   end;
 finally
  FDQuery.Free;
  Showmessage(LJSONObject.ToString);
 end;
 Result := LJSonObject;
end;

Desde j� Agrade�o!

D�verson Rando

Curtir t�pico + 0

Responder