Escrever JSON

11/05/2021

0

Bom dia!
Alguém saberia me dizer como monto um JSON assim:

{
"success": [
"8814",
"8826"
],
"errors": [

]
} exatamente assim.

Agradeço antecimadamente pelo auxílio.

Obrigado!
Cezar Lopes

Cezar Lopes

Responder

Post mais votado

13/05/2021

Veja um exemplo:

var
  ja, ja2: TJSONArray;
  jo: TJSONObject;
begin
  Memo1.Clear;

  ja := TJSONArray.Create;
  ja2 := TJSONArray.Create;
  jo := TJSONObject.Create;
  try
    ja.Add('8814');
    ja.Add('8826');
    jo.AddPair(TJSONPair.Create('success', ja));
    jo.AddPair(TJSONPair.Create('errors', ja2));

    Memo1.Lines.Add(jo.ToString);
  finally
    FreeAndNil(jo);
  end;
end;

Natanael Ferreira

Natanael Ferreira
Responder

Mais Posts

12/05/2021

Chromusmaster

Bom dia!
Alguém saberia me dizer como monto um JSON assim:

{
"success": [
"8814",
"8826"
],
"errors": [

]
} exatamente assim.

Agradeço antecimadamente pelo auxílio.

Obrigado!


Em qual linguagem?

Segue alguns auxilio que pode ser uteis:
https://www.w3schools.com/js/js_json_php.asp
https://stackoverflow.com/questions/16921652/how-to-write-a-json-file-in-c/16921677
https://docs.microsoft.com/pt-br/dotnet/standard/serialization/system-text-json-how-to
https://www.javatpoint.com/java-json-example
Responder

12/05/2021

Chromusmaster


Em qual linguagem?

Segue alguns auxilio que pode ser uteis:
https://www.w3schools.com/js/js_json_php.asp
https://stackoverflow.com/questions/16921652/how-to-write-a-json-file-in-c/16921677
https://docs.microsoft.com/pt-br/dotnet/standard/serialization/system-text-json-how-to
https://www.javatpoint.com/java-json-example


E por ultimo em Delphi:
http://docwiki.embarcadero.com/RADStudio/Sydney/en/JSON
Responder

13/05/2021

Cezar Lopes

Veja um exemplo:

var
  ja, ja2: TJSONArray;
  jo: TJSONObject;
begin
  Memo1.Clear;

  ja := TJSONArray.Create;
  ja2 := TJSONArray.Create;
  jo := TJSONObject.Create;
  try
    ja.Add('8814');
    ja.Add('8826');
    jo.AddPair(TJSONPair.Create('success', ja));
    jo.AddPair(TJSONPair.Create('errors', ja2));

    Memo1.Lines.Add(jo.ToString);
  finally
    FreeAndNil(jo);
  end;
end;
[/quote00]

Muito obrigado Natanael, resolveu meu problema! Valeu mesmo!
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar