Escrever JSON

Delphi

JSON

11/05/2021

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

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

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;
GOSTEI 1

Mais Respostas

Chromusmaster

Chromusmaster

11/05/2021

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
GOSTEI 0
Chromusmaster

Chromusmaster

11/05/2021


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
GOSTEI 0
Cezar Lopes

Cezar Lopes

11/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;
[/quote00]

Muito obrigado Natanael, resolveu meu problema! Valeu mesmo!
GOSTEI 0
POSTAR